高考问答美剧 飞机失事 荒岛:熟悉VB得朋友们请进
来源：百度文库 编辑：高考问答 时间：2024/05/04 18:38:30
请问我这段代码对吗
private sub form_click()
msg1$="aaaaaaaaaaaaa"
msg2$="bbbbbbbbbbbbb"
r=msgbox(msg1$,34,msg2$)
print r
end sub
为什么总告诉我变量未定义，我应改怎么定义啊
private sub form_click()
msg1$="aaaaaaaaaaaaa"
msg2$="bbbbbbbbbbbbb"
r=msgbox(msg1$,34,msg2$)
print r
end sub
为什么总告诉我变量未定义，我应改怎么定义啊
这段代码没有问题。
请确认你的代码前面是不是加了"Option Explicit",
如果加了请在前面加上定义语句
就没有问题了
------------------
补充：
我昏。lvxunjun怎么COPY我的。
我刚试了代码，不能这样定义。我把代码删了。
推荐楼主去掉"Option Explicit"或者整个这样改：
Option Explicit
Dim r As Integer
Dim msg1 As String
Dim msg2 As String
Private Sub form_click()
msg1 = "aaaaaaaaaaaaa"
msg2 = "bbbbbbbbbbbbb"
r = MsgBox(msg1, 34, msg2)
Print r
End Sub
确认你的代码前面是不是加了"Option Explicit",
如果加了请在前面加上定义语句
dim msg1$ as string,msg2$ as string,r as integer