VB提示错误变量未定义,请问这是什么情况?
VB提示错误变量未定义,代码如下,请大神指导啊!!!!!
Option Explicit
Private Sub Command1_Click()
'定义变量
Dim num1 As Integer
Dim num2 As Integer
Dim mysultiply As Long
'输入数据
num1 = Txtnum1.Text
num2 = Txtnum2.Text
'加工处理
mymultiply = num1 * num2
'输出数据
txtresult.Text = mymultiply
End Sub
定义的变量名称 mysultiply 与使用的变量名称 mymultiply 不一致引起。
另外:
num1 = Txtnum1.Text
num2 = Txtnum2.Text
最好改为
num1 = Val(Txtnum1.Text)
num2 = Val(Txtnum2.Text)
否则,在文本框无内容或为字母的情况下,会出现类型不匹配错误。
热门标签: