UC知道这段VB代码错在哪里,为什么倒数第五行说缺少语句结束?急问`!!!
来源：百度知道 编辑：UC知道 时间：2024/06/04 14:55:13
Option Explicit
Private Sub Form_Load()
Dim intreply As Integer
Dim intquery As Integer
Dim strquery As String
intreply = vbNo
intquery = 0
Do While intreply = vbNo
intquery = intquery + 1
strquery = "这是第"&intquery&"次向您询问,我们做个朋友吧?"
intreply = MsgBox(strquery, vbYesNo + vbQuestion, "友好")
Loop
MsgBox "让我们风雨同舟!"
End Sub
Private Sub Form_Load()
Dim intreply As Integer
Dim intquery As Integer
Dim strquery As String
intreply = vbNo
intquery = 0
Do While intreply = vbNo
intquery = intquery + 1
strquery = "这是第"&intquery&"次向您询问,我们做个朋友吧?"
intreply = MsgBox(strquery, vbYesNo + vbQuestion, "友好")
Loop
MsgBox "让我们风雨同舟!"
End Sub
strquery = "这是第"&intquery&"次向您询问,我们做个朋友吧?"
问题处在“&intquery&”这里。
应该在 & 与变量名之间加上空白符（空格或这TAB）。
在VB里面，有“&H……”是用来表示16进制的。
VB可以识别到双引号，但是&开头，VB会尝试读取 &i... 自然就读不通了。
把你倒数第五行的代码：
strquery = "这是第"&intquery&"次向您询问,我们做个朋友吧?"
改成：
strquery = "这是第" & intquery & "次向您询问,我们做个朋友吧?"
以后，代码可以正常执行。
strquery = "这是第" & intquery & "次向您询问,我们做个朋友吧?"