作业帮vb编程,目的是根据输入的直角三角形的直角边长计算周长及面积.想在没填数据或者填的不是数字的时候弹出一个消息框.代码是：Private Sub Command1_Click()If IsEmpty(Text1.Text) = True Or IsEmpty(Text2.Text)
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/04 11:24:35
vb编程,目的是根据输入的直角三角形的直角边长计算周长及面积.想在没填数据或者填的不是数字的时候弹出一个消息框.代码是：Private Sub Command1_Click()If IsEmpty(Text1.Text) = True Or IsEmpty(Text2.Text)
vb编程,目的是根据输入的直角三角形的直角边长计算周长及面积.
想在没填数据或者填的不是数字的时候弹出一个消息框.代码是：
Private Sub Command1_Click()
If IsEmpty(Text1.Text) = True Or IsEmpty(Text2.Text) = True Then
m = MsgBox("请完整输入!",vbInformation,"提示")
ElseIf IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) = True Then
x = Val(Text1.Text)
y = Val(Text2.Text)
Text4.Text = LTrim(Str(0.5 * x * y))
Text3.Text = LTrim(Str(Round((x + y + (x ^ 2 + y ^ 2) ^ 0.5),2)))
Else:z = MsgBox("请检查数据格式(整数或小数)!",vbOKOnly + vbCritical + vbSystemModal,"错误")
End If
End Sub
Text1和2是输入直角边边长的地方.Text3是周长,Text4是面积.结果运行的时候就算有没填的也不会弹出“请完整输入”的消息框,但会弹出“请检查数据格式”的消息框.我对着书上看了2个小时都没弄好!
还有,就是如果不加LTrim的话,算出的结果前面会有一个空格,何故?
vb编程,目的是根据输入的直角三角形的直角边长计算周长及面积.想在没填数据或者填的不是数字的时候弹出一个消息框.代码是：Private Sub Command1_Click()If IsEmpty(Text1.Text) = True Or IsEmpty(Text2.Text)
IsEmpty不要这样用,判断文本框是否有内容可以改成Trim(Text1.Text) = "",Trim表示把文本框内的空格去掉.
LTrim表示将内容左边开始去掉空格,所以就会出现所说的情况.
Private Sub Command1_Click()
If Trim(Text1.Text) = "" Or Trim(Text2.Text) = "" Then
m = MsgBox("请完整输入!", vbInformation, "提示")
ElseIf IsNumeric(Text1.Text) = True And IsNumeric(Text2.Text) = True Then
x = Val(Text1.Text)
y = Val(Text2.Text)
Text4.Text = LTrim(Str(0.5 * x * y))
Text3.Text = LTrim(Str(Round((x + y + (x ^ 2 + y ^ 2) ^ 0.5), 2)))
Else: z = MsgBox("请检查数据格式(整数或小数)!", vbOKOnly + vbCritical + vbSystemModal, "错误")
End If
End Sub