1、在窗体层使用了 Option Explicit语句,则必须使用 Dim、Private、Public、ReDim 或 Static 等语句来显式声明所有的变量。如果使用了未声明的变量,程序在编译时就会出现错误。
2、Command1的单击事件中块IF缺少End If。
Private Sub Command3_Click()
x = Val(Text1.Text)
If x <> 0 Then y = x ^ 2 - 5
If x = 0 Then y = 3 * x + 2
Text4.Text = y
End Sub
这里面少了两个end if
应该在最前面“声明”处定义x,y
楼上错了,这里不需要 End If