Question

VB编程：从键盘输入三角形的三边，判断能否构成三角形：如果能构成三角形，则计算其面积

Answer 1

代码如下：

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关键字和系统常量做名字

Answer 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

追问

确定吗？？

追答

自己试下，应该可以