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

[yclVB]

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，是哪错了

[cbm6666]

'返回信息的值取错了, 最后一行也写反了.

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

[XinJW]

楼上正解.

[bluefox1979]

如此简单

[qq163297]

看不懂哈

[yclVB]

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

谢谢

[cbm6666]

%=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]

非常感谢cbm666
呵呵，得把你加为好友

[熊孩子开学喽]

这MSG1实在是...
刚吃完饭，没忍住，吐了。

[yclVB]

WALLESCAI这有什么问题吗
我是VB新手，写的不好请指教