【VB编程】05.MsgBox与InputBox函数

在VBA程序中,数据的输入输出是通过函数实现的,其实现的方式是通过对话框的形式表示出来的。例如MsgBox,Inputbox等,不要误认为是输入输出语句的关键字,其实仅仅是一个普通函数而已。

【MsgBox函数】

【Tips】

MsgBox是一个函数,那么必定存再返回值,MsgBox的返回值是由用户所选择的按钮决定的,在设计程序时可依据MsgBox的返回值做不同的处理,此时需要保存MsgBox函数的返回值,保存MsgBox函数的返回值的变量最好声明一个整型变量

【代码区域】

Private Sub 查看Msgbox的返回值() '测试Msgbox的返回值
 Dim result As Integer
 result = MsgBox("请选择一个按钮", vbYesNoCancel, "测试按钮窗口")
 MsgBox "MsgBox函数的返回值是: " & result '显示Msgbox函数的返回值
End Sub

  

【代码解析】

第二行声明了一个变量,第三行用于输出一个提示,第四行用于展示result返回值

【结果展示】

【InputBox函数】

【Tips】

在使用InputBox函数,此时的返回值是一个字符串类型,其返回值取决于用户在文本框中输入的内容,在其构造的对话框中,当单击确定时,InputBox函数文本框中的字符串类型转化为Variant类型的数据,经过转换之后可直接与integer参与计算,但点击取消后,则会报错如下:

                                                                

 

【代码区域】

Private Sub 加法计算()
 Dim jiashu As Integer
 Dim beijiashu As Integer
 Dim qiuhe As Integer
 jiashu = InputBox("请输入加数", "加法计算")
 beijishu = InputBox("请输入被加数", "加法计算")
 qiuhe = jiashu + beijiashu
 MsgBox "两数之和为" & qiuhe, vbOKOnly, "加法计算器"
End Sub

  

【代码解析】

第5,6行用于输入两个数,第七行用于计算两个数之和,第8行用于输出计算结果。

【结果展示】

 

posted @ 2016-12-21 10:05  OLIVER_QIN  阅读(2655)  评论(0编辑  收藏  举报