有了这个技能就可以轻松计算三角形(还可以完成信息老师布置的作业)
工具/原料
vb
设计界面
1、打开VB建立一个工程,设计一个界面(下图是我简单的示范)
2、把text1的属性名改成a=
3、依次修改text2,text3,text4,button的属性名(如下图)
编程
1、双击button进入编辑
2、输入代码Dima,b,c,q,sAsSinglea=V瞢铍库祢al(Text1.Text)芟鲠阻缒b=Val(Text2.Text)c=Val(Text3.Text)If(a+b>c)And(a+c>b)And(c+b>a)Thenq=(a+b+c)/2s=Sqr(q*(q-a)*(q-b)*(q-c))Text4=Format(s,"0.##")Elsems=MsgBox("不能构成三角形,重新输入边长:",0,"提示:")Text1=""Text2=""Text3=""Text1.SetFocusEndIf
测试
1、单击运行启动开始测试
2、输入任意一个不能构成三角形的值,测试效果
3、输入任意一个能构成三角形的值,测试效果
保存
1、保存工程
2、打开exe文件进行计算