inputbox()和val(inputbox())

Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer

a = Val(InputBox("请输入a"))      /a=inputbox("") ，是将输入框用户输入的内容 反馈给变量a，不管用户输入的是文本、数字或其他

/a=Val(inputbox("")) 是将输入框用户输入的内容 转换成数值 后 反馈给变量a，如用户输入的是文本等非数字内容，则反馈给a为0

b = Val(InputBox("请输入b"))
c = Val(InputBox("请输入c"))
If a + b > c And a + c > b And b + c > a Then
Print "可以构成三角形"
Else
Print "不能构成三角形"
End If


End Sub