怎么样关闭开发者模式:有谁知道这个VB程序有什么问题?

来源:百度文库 编辑:查人人中国名人网 时间:2024/05/04 06:29:16
Private Sub Command1_Click()
Dim a, b, c As Integer
a = InputBox("a=")
b = InputBox("b=")
c = InputBox("c=")

If a + b > c And a + c > b And b + c > a Then
d = a + b + c
Print " 周长 d="; d
Else: Print "无法组成三角形"
End If
End Sub
为什么我a b c都输了1,运行后却显示"无法组成三角形"

Private Sub Command1_Click()
Dim a, b, c As Integer
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
d = a + b + c
Print " 周长 d="; d
Else
Print "无法组成三角形"
End If
End Sub

inputbox的到的数据类型为string