VB语言出错请帮忙看看

来源:百度知道 编辑:UC知道 时间:2024/07/04 13:31:11
Private Sub cmdcompute_Click(Index As Integer)
firstnum = Val(txtoutput.Text)
txtoutput.Text = ""
Select Case Index
Case 0
computetype = "add"
Case 1
computetype = "subtraction"
Case 2
computetype = "multiplication"
Case 3
computetype = "division"
End Select
equalsym = False
pointsym = False

End Sub
提示:编码错误 变量为定义

把代码窗口最上面的Option Explicit删除,就不会出现这个错误提示了。不过这可不是好习惯哦。

不是提示很清楚了么 没有定义变量噻 用dim 定义一下就可以 要么就是你打错字母了