【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行用于输出计算结果。

【结果展示】

 

转载于:https://www.cnblogs.com/OliverQin/p/6206506.html