ASP源码.NET源码PHP源码JSP源码JAVA源码DELPHI源码PB源码VC源码VB源码Android源码

inputbox和valinputbox

来源:网络整理     时间:2017-03-17     关键词:

本篇文章主要介绍了" 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

相关图片

相关文章