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/07/02 06:13:59
![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](/uploads/image/z/11527319-47-9.jpg?t=Private+Sub+Command1_Click%28%29Dim+g+As+Doublea+%3D+Abs%28Text1.Text%29b+%3D+Abs%28Text2.Text%29c+%3D+Abs%28Text3.Text%29e+%3D+a+%2A+c+%2F+bIf+e+0+Theng+%3D+Abs%28e+-+2+%2A+b%29Text4.Text+%3D+gElseMsgBox+%22+%E5%8F%82%E6%95%B0%E6%9C%89%E8%AF%AF%21%22End+IfEnd+Sub%E5%A6%82%E4%BD%95%E8%A7%A3%E5%86%B3%E6%88%91%E6%89%93%E5%85%A5%E5%AD%97%E6%AF%8D%E6%88%96%E5%85%B6%E5%AE%83%E7%AC%A6%E5%8F%B7%E6%97%B6%2C%E5%BC%B9%E5%87%BA)
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