Private Sub Command1_Click()Dim g As Doublea = Abs(Text1.Text)b = Abs(Text2.Text)c = Abs(Text3.Text)e = a * c / bIf e 0 Theng = Abs(e - 2 * b)Text4.Text = gElseMsgBox " 参数有误!"End IfEnd Sub如何解决我打入字母或其它符号时,弹出
来源:学生作业帮助网 编辑:六六作业网 时间:2024/11/24 16:44:21
Private Sub Command1_Click()Dim g As Doublea = Abs(Text1.Text)b = Abs(Text2.Text)c = Abs(Text3.Text)e = a * c / bIf e 0 Theng = Abs(e - 2 * b)Text4.Text = gElseMsgBox " 参数有误!"End IfEnd Sub如何解决我打入字母或其它符号时,弹出
Private Sub Command1_Click()
Dim g As Double
a = Abs(Text1.Text)
b = Abs(Text2.Text)
c = Abs(Text3.Text)
e = a * c / b
If e 0 Then
g = Abs(e - 2 * b)
Text4.Text = g
Else
MsgBox " 参数有误!"
End If
End Sub
如何解决我打入字母或其它符号时,弹出参数有误窗口
2.如何只显示结果的前六位数.
Private Sub Command1_Click()Dim g As Doublea = Abs(Text1.Text)b = Abs(Text2.Text)c = Abs(Text3.Text)e = a * c / bIf e 0 Theng = Abs(e - 2 * b)Text4.Text = gElseMsgBox " 参数有误!"End IfEnd Sub如何解决我打入字母或其它符号时,弹出
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 48 And KeyAscii