![](https://iknow-base.cdn.bcebos.com/lxb/notice.png)
VB编程:从键盘输入三角形的三边,判断能否构成三角形:如果能构成三角形,则计算其面积
2个回答
展开全部
代码如下:
Private Sub Command1_Click();
a = Val(InputBox("输入a的长"));
b = Val(InputBox("输入b的长"));
c = Val(InputBox("输入c的长"));
If a + b > c And a + c > b And b + c > a Then;
p = (a + b + c) / 2;
s = Sqr(p * (p - a) * (p - b) * (p - c));
Print "面积:"; s;
Else;
Print "不是三角形";
End If;
End Su;
扩展资料
VB书写代码的格式:
1、VB代码中不区分字母的大小写。
2、同一行可以书写多条语句,语句间用冒号“:”分隔。
3、一条语句可以写在同一行,也可以写在多行。续行符号是一个空格加下划线“_”。
注释语句以Rem开头,也可以使用单引号“‘”。后者注释内容可直接出现在相关语句的后面。
VB6中新增了“块注释/取消块注释”:在代码模式下,右击工具栏,在弹出菜单里把“编辑”项选中„„
变量和常量的命名规则:有数字,字母,下划线组成;字母作首字符;不超过255个字符;不能以VB关键字和系统常量做名字
展开全部
Private Sub Command1_Click()
a = Val(InputBox("输入a的长"))
b = Val(InputBox("输入b的长"))
c = Val(InputBox("输入c的长"))
If a + b > c And a + c > b And b + c > a Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "面积:"; s
Else
Print "不是三角形"
End If
End Su
a = Val(InputBox("输入a的长"))
b = Val(InputBox("输入b的长"))
c = Val(InputBox("输入c的长"))
If a + b > c And a + c > b And b + c > a Then
p = (a + b + c) / 2
s = Sqr(p * (p - a) * (p - b) * (p - c))
Print "面积:"; s
Else
Print "不是三角形"
End If
End Su
追问
确定吗??
追答
自己试下,应该可以
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询