本篇文章主要介绍了" inputbox和valinputbox",主要涉及到方面的内容,对于VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播感兴趣的同学可以参考一下:
Private Sub Command1_Click()Dim a As IntegerDim b As IntegerDim c As Integera = ...
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
以上就介绍了 inputbox和valinputbox,包括了方面的内容,希望对VBjrs看球网直播吧_低调看直播体育app软件下载_低调看体育直播有兴趣的朋友有所帮助。
本文网址链接:http://www.codes51.com/article/detail_4225155.html