inputbox()和val(inputbox())
来源:互联网 发布:我的手机没有4g网络 编辑:程序博客网 时间:2024/05/16 10:55
Private Sub Command1_Click()
Dim a As Integer
Dim b As Integer
Dim c As Integer
c = Val(InputBox("请输入c"))
If a + b > c And a + c > b And b + c > a Then
Print "可以构成三角形"
Else
Print "不能构成三角形"
End If
End Sub
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
0 0
- inputbox()和val(inputbox())
- msgbox 和 inputbox 没有权限
- InputBox函数
- InputBox函数和MsgBox函数综合示例
- InputBox函数和MsgBox函数综合示例
- Delphi:InputQuery和InputBox的区别
- VBScript实现inputbox多输入框和inputbox和checkbox框
- 【VBA研究】VBA的InputBox函数和Application的InputBox方法
- C#里的InputBox
- InputBox函数用法小结
- C#里的InputBox
- vb.net InputBox用法
- Delphi Inputbox,InputQuery用法
- InputBox函数用法小结
- MFC InputBox 输入框
- msgbox函数和inputbox函数应该注意的几点
- Delphi中Inputbox 和Inputquery 函数的使用
- Delphi中Inputbox 和Inputquery 函数的使用
- Android MVC、MVP、MVVM模式框架
- 面试记录总结
- eclipse下的Servers工程与Tomcat的关系
- 广告点击率预估模型
- 微软的序列号生成和验证
- inputbox()和val(inputbox())
- redis集群数据备份和数据复制方式
- java中什么是泛型
- 关于MAP迭代器的使用
- OkHttp(第三方框架)的使用
- 11. Container With Most Water
- JI大王的进化
- 对软件测试教育的一点思考
- ACM程序设计书中题目--k (移动砖块)