大家好,我初学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,是哪错了