Private Sub KPFANG_Click()
Dim ERR开负平方 As Integer
If IPH1 < 0 Then
ERR开负平方 = MsgBox("负数怎么开方!本计算机即将爆炸!", vbOKOnly + vbCritical, "[Red Alent][红色警报]")
Else
IPH1 = Val(IP1.Text)
IPH2 = Val(IP2.Text)
OPH = Sqr(IPH1)
OP.Caption = OPH
End If
End Sub
=============
这是计算机中开平方的代码,想让他在输入变量 IPH1 < 0 时,启动MSGBOX报错,但其仍然向下执行开方,没有转到then后面
Dim ERR开负平方 As Integer
If IPH1 < 0 Then
ERR开负平方 = MsgBox("负数怎么开方!本计算机即将爆炸!", vbOKOnly + vbCritical, "[Red Alent][红色警报]")
Else
IPH1 = Val(IP1.Text)
IPH2 = Val(IP2.Text)
OPH = Sqr(IPH1)
OP.Caption = OPH
End If
End Sub
=============
这是计算机中开平方的代码,想让他在输入变量 IPH1 < 0 时,启动MSGBOX报错,但其仍然向下执行开方,没有转到then后面