Question

VB题编程求解 点击命令按钮command1，程序分别输入三角形的三边边长，判断并输出三角形的形状

VB题编程求解
点击命令按钮command1，程序分别输入三角形的三边边长，判断并输出三角形的形状，有等边三角形，等腰三角形，一般三角形，不够成三角形四种，使用inputbox和msgbox完成输入输出

Answer 1

Dim A As Integer, B As Integer, C As Integer
A = InputBox("请输入第一条边的长度")
B = InputBox("请输入第二条边的长度")
C = InputBox("请输入第三条边的长度")
If A > B + C Or B > C + A Or C > A + B Then
MsgBox "不构成三角形"
ElseIf A = B And A = C Then
MsgBox "等边三角形"
ElseIf A = B Or A = C Or B = C Then
MsgBox "等腰三角形"
Else
MsgBox "一般三角形"
End If

追问

追答

你把上面的代码放到command1的click事件中即可

追问

追答

你把代码复制即可
Private Sub Command1_Click()
Dim A As Integer, B As Integer, C As Integer
A = InputBox("请输入第一条边的长度")
B = InputBox("请输入第二条边的长度")
C = InputBox("请输入第三条边的长度")
If A > B + C Or B > C + A Or C > A + B Then
MsgBox "不构成三角形"
ElseIf A = B And A = C Then
MsgBox "等边三角形"
ElseIf A = B Or A = C Or B = C Then
MsgBox "等腰三角形"
Else
MsgBox "一般三角形"
End If
End Sub

追问

then的位置我写的是不是不对啊

本来就是在command1的click事件中

追答

把if那一行的then后面加个换行
把最后一个elseif换成else

追问

是这样吗

还是不行

追答

在Vb 中不能有A=B=C这种写法,只能是 A=B AND A=C

追问

那个then老是显示缺少语句结束

追答

把最后一个ElseIF 改为 ELSE

追问

我只要一改elself，在then后回车就出现缺少语句结束

追答

是ELSEIF 不是 ELSELF

追问

追答

把第一个if中的then后面加一个回车符