charpter4_数据的输入输出讲述.pptVIP

V i s u a l B A S I C 程序设计 第四章 数据的输入输出 实验总结 * * 第四章 数据的输入输出 本章内容及要求： 数据的输入函数 常用的格式定位函数 常用的数据输出函数 重点：常用的输入输出函数 难点： Inputbox、Msgbox函数 * 4.1 数据输入 一、 InputBox函数 缺省值 标题题 提示 变量名=InputBox (提示信息[，标题][，缺省] [，x坐标][，y坐标] ) 其中:提示 提示信息,标题 标题区显示,缺省输入区缺省值 例如，要在屏幕上显示如下的对话框: * 例如：有下列语句如下: Dim str1 As String * 40, strName As String * 40 str1 = 请输入你的姓名 + Chr(13) + 然后单击确定 strName = InputBox(str1, 输入框, , 5000, 5000) Print str1 Print strName 当键盘输入“王晓明” 后,变量str2获得键盘输入的值. 其中：chr(13)代表回车键，chr(10)代表换行键 缺省值 标题题 提示 例题： 在对话框中输入圆的半径，计算并输出圆的面积。 * Private Sub Command1_Click() Dim r, s As Single r = InputBox(请输入半径：, 计算圆的面积, 1) s = 3.14 * r * r Print Print 圆的面积是 ： ; s End Sub 练习： 编制一个程序，输入矩形的长和宽，输出矩形的面积。要求： ① 采用文本框和Print语句结合的方式进行输入和输出。 ② 采用InputBox函数和MsgBox函数结合的方式进行输入和输出。 * Private Sub Command1_Click() Dim a, b, s As Single a = Val(Text1.Text) b = Val(Text2.Text) s = a * b Print 矩形面积是： s End Sub Private Sub Command1_Click() Dim a, b, s As Single a = InputBox(请输入矩形的长：, 矩形的长) b = InputBox(请输入矩形的宽：, 矩形的宽) s = a * b MsgBox 矩形的面积是： s End Sub * 二、 MsgBox函数和MsgBox语句 函数形式:变量= MsgBox(提示信息, [按钮[＋图标]+ [缺省按钮] ，[标题]) 语句形式: MsgBox 提示信息, [按钮[＋图标] +[缺省按钮], [标题] 图标 标题 提示信息 命令按钮 * 说明： １. “标题”和“提示”与InputBox函数中对应的参数相同； ２. “按钮＋图标 +缺省按钮+模式”是整型表达式，决定信息框按钮数目、 (默认按钮)出现在信息框上的图标类型及操作模式 ３. 若程序中需要返回值，则使用函数，否则可调用msgbox语句。 MsgBox函数和MsgBox语句 * 按钮及图标值如下: 根据用户所选按钮，函数返回1—7的整数值，其含义如下表: 例题 例4-2P64，显示如图4-4（a）所示的消息框，提示信息“数据已经修改，是否保存？”，有“是(Y)”、“否(N)”和“取消”3个命令按钮，默认按钮为“是(Y)”按钮。单击“是(Y)”按钮，显示如图4-4（b）所示的消息框，显示“正在保存”；单击“否(N)”按钮，显示如图4-4（c）所示的消息框，显示“不保存退出”；单击“取消”，则直接退出。 * 4-4（a） 图4-4（b） 图4-4（c） 代码讲解 Private Sub Form_Click() choice = MsgBox(数据已经修改，是否保存？, _ vbYesNoCancel + vbQuestion + vbDefaultButton1, 提示) If choice = vbYes Then MsgBox 正在保存… Else If choice = vbNo Then MsgBox 不保存退出 End If End If End Sub * * 4.2 数据输出 一、Print方法 [对象名.] Pri