大家好,我初学VB,帮帮我看代码哪出问题了

yclVB 2008-03-04 06:17:21
Private Sub Form_click()
Dim msg1 As String
Dim style As Integer
Dim title As String
Dim response As Integer
Dim msg2 As String
msg1 = "谁能用爱烘干我这颗潮湿的心." + Chr(13) + "给我一声问候,一点湿情." + Chr(13) + "谁能用心感受我这份滴水的痴情." + Chr(13) + "给我一片晴空,一声叮咛." + Chr(13) + "你喜欢听这首歌吗?"
style = vbApplicationModal + vbDefaultButton1 + vbInformation + vbYesNoCancel
title = "歌一首"
response = MsgBox(msg1, style, title)
Select Case response
Case vbYes
msg2 = "你我想法一样."
Case vbNo
msg2 = "非常遗憾."
Case vbCancel
msg2 = "不想回答是吗?"
End Select
MsgBox msg2 = "询问结果:"
End Sub
不管选“是,否,取消”都出现FALSE,是哪错了
...全文
136 点赞 收藏 9
写回复
9 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
yclVB 2008-03-05
WALLESCAI这有什么问题吗
我是VB新手,写的不好请指教
回复
这MSG1实在是...
刚吃完饭,没忍住,吐了。
回复
yclVB 2008-03-04
非常感谢cbm666
呵呵,得把你加为好友
回复
cbm6666 2008-03-04
%=Integer 整型
&=Long 长整型
!=Single 单精度浮点型
#=Double 双精度浮点型
$=String 字符型
@=Currency 货币型

Dim a&,b%,c!,d#,e$,f@.....随你在一行内完成,这是VB合法的简写,如此可以缩减代码,容易看.

MsgBox "询问结果:" & msg2
这行里面的 & 就与上面说的不同意思了, 这里的 & 相当于 + 两个以上的字符串要结合起来便使用 a & b & c

例如:
Dim a$,b$,c$
a="111"
b="222"
c="333"
msgbox a & b & c 你可以看到 111222333 与 a + b + c 是一样的,但不建议你用 +

回复
yclVB 2008-03-04
首先谢谢大家的解答
用cbm666朋友的方法改正了问题解决了
我在这还有问题问你们,还是关于这个代码
在定义变量的时候cbm666 朋友用的$和%定义INTEGER和STRING
那是不是定义这两种变量都可以用这两个符号来代替
还有就是代码的最后一行”MsgBox "询问结果:" & msg2“ 为什么要用“&"连接变量msg2
msgbox函数的语法是没有&的吧

谢谢
回复
qq163297 2008-03-04
看不懂哈
回复
bluefox1979 2008-03-04
如此简单
回复
XinJW 2008-03-04
楼上正解.
回复
cbm6666 2008-03-04
'返回信息的值取错了, 最后一行也写反了.

Private Sub Form_click()
Dim msg1$, msg2$, title$, style%, response%
msg1 = "谁能用爱烘干我这颗潮湿的心." & Chr(13) & "给我一声问候,一点湿情." & Chr(13) & "谁能用心感受我这份滴水的痴情." & Chr(13) & "给我一片晴空,一声叮咛." & Chr(13) & "你喜欢听这首歌吗?"
style = vbApplicationModal + vbDefaultButton1 + vbInformation + vbYesNoCancel
title = "歌一首"
response = MsgBox(msg1, style, title)
Select Case response
Case 6
msg2 = "你我想法一样."
Case 7
msg2 = "非常遗憾."
Case 2
msg2 = "不想回答是吗?"
End Select
MsgBox "询问结果:" & msg2
End Sub

回复
相关推荐
发帖
VB基础类
创建于2007-09-28

7492

社区成员

VB 基础类
申请成为版主
帖子事件
创建了帖子
2008-03-04 06:17
社区公告
暂无公告