vb编程,目的是根据输入的直角三角形的直角边长计算周长及面积.

想在没填数据或者填的不是数字的时候弹出一个消息框.代码是：

PrivateSubCommand1_Click()

IfIsEmpty(Text1.Text)=TrueOrIsEmpty(Text2.Text)=TrueThen

m=MsgBox("请完整输入!",vbInformation,"提示")

ElseIfIsNumeric(Text1.Text)=TrueAndIsNumeric(Text2.Text)=TrueThen

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,"错误")

EndIf

EndSub

Text1和2是输入直角边边长的地方.Text3是周长,Text4是面积.结果运行的时候就算有没填的也不会弹出“请完整输入”的消息框,但会弹出“请检查数据格式”的消息框.我对着书上看了2个小时都没弄好!

还有,就是如果不加LTrim的话,算出的结果前面会有一个空格,何故?