题目
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的话,算出的结果前面会有一个空格,何故?
想在没填数据或者填的不是数字的时候弹出一个消息框.代码是:
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的话,算出的结果前面会有一个空格,何故?
提问时间:2020-10-31
答案
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
奥巴马演讲不用看稿子.为什么中国领导演讲要看?
想找英语初三上学期的首字母填空练习……
英语翻译
最新试题
热门考点
- 1已知函数f(x)=4x2-kx-8 (1)若y=f(x)在[-3,2]上具有单调性,求实数k的取值范围. (2)若y=f(x)的(-∞,2]有最小值为-12,求实数k的值.
- 2there are altogether eleven books on the shelf ,____five are mine.
- 3已知a、b、c是△ABC的三边,且满足a+4/3=b+3/2=c+8/4,且a+b+c=12,请你探索△ABC的形状.
- 4take a new look on 与take on a new look 区别
- 5请认真观察下面每组汉字从左到右的变化,再各用一四字成语恰好其分地表达出来?
- 6高中语文文言实词如何讲解?
- 7is your name Tom?肯定回答是?
- 8求方程2的x次方+3x=7的近似值(精确到0,.1)
- 9With a blend of cassia,avocado,bamboo and grapeseed是什么意思
- 10空气中氧气和氮气的体积比是21:78,660立方米的空气中有氧气和氮气各多少立方米?