vb编程,目的是根据输入的直角三角形的直角边长计算周长及面积.
题目
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的话,算出的结果前面会有一个空格,何故?
答案
举一反三
已知函数f(x)=x,g(x)=alnx,a∈R.若曲线y=f(x)与曲线y=g(x)相交,且在交点处有相同的切线,求a的值和该切线方程.
我想写一篇关于奥巴马的演讲的文章,写哪一篇好呢?为什么好
最新试题
- 表示死的意思的搞笑词语
- 做英语翻译,翻译哪些文件给的金比较多点啊,大概是多少,在北京翻译一般文件刚过CATTI3的可以给多少呢?Thank
- 圆o的两弦AB、CD垂直于点P,AP=4,BP=6,CP=3,DP=8.求圆o的半径.
- 我一看到你就紧张 用英语怎么说
- 长方形ABCD的面积是160平方米,E,F分别是CD和BC的中点,求三角形AEF的面积?
- 【急】!已知loga^2 x=logab y=logb^2(x+y)(a,b均为不等于1的正数,且ab不等于1)求x/y的值
- 若对于任意的x∈[1,3],x2+(1-a)x-a+2≥0恒成立,则实数a的取值范围是 _ .
- 急需一篇以“我心中的美”为主题的英语演讲稿,哪位大哥大姐英语水平好的帮个忙吧
- 诚实做人是一种财富,维护尊严是一种财富?你认为还可以怎么做也能拥有财富呢?把你的想法写成一篇日记.
- 1减5分之2减9分之4
热门考点