第4章程序控制结构-顺序结构要点.ppt

* 第4章 程序控制结构 【例4-8】 Private Sub Form_Click() Print Tab(6); @@@@@@@@@@@@ Print Tab(6); -; Spc(10); - Print Tab(6); *@; Spc(8); @* Print Tab(7); *; Spc(8); * Print Tab(8); *; Spc(6); * Print Tab(9); *; Spc(4); *” Print Tab(10); **; Spc(0); ** End Sub 4.1.2 数据的输入/输出操作 * 第4章 程序控制结构 2、与用户交互的函数和过程 InputBox函数 4.1.2 数据的输入/输出操作 对话框标题 提示信息 默认内容 * 第4章 程序控制结构 提示内容：指定在对话框中出现的文本，最多可有1024个字符。 对话框标题：指定对话框的标题，是可选项。 格式： 变量名 = InputBox(提示内容, [对话框标题], [默认内容], [x坐标], [y坐标]) 默认内容：显示在文本输入框中，为可选项。 x坐标y坐标：确定对话框左上角在屏幕上的位置。 说 明 4.1.2 数据的输入/输出操作－InputBox函数 * 第4章 程序控制结构 【例4-10】用InputBox函数接收圆球的半径r，求圆球表面积s(s =4πr2) Private Sub Form_Click() Const pi = 3.1415926 Dim r As Single, area As Single, p As String p = 请输入圆球的半径, Chr(13) 然后单击确定或取消按纽。 r = Val(InputBox(p, “计算圆球表面积, 10, , 100)) Font.Size = 18 area = 4 * pi * r ^ 2 Print 圆球表面积：; area End Sub 4.1.2 数据的输入/输出操作－InputBox函数 * 第4章 程序控制结构 2、与用户交互的函数和过程 MsgBox函数和MsgBox过程 4.1.2 数据的输入/输出操作 对话框标题 图标 按钮类型 提示信息 * 第4章 程序控制结构 格式： 变量 = MsgBox (消息内容[, 对话框类型] [, 对话框标题][, 帮助文件名, 帮助文件编号]) 消息内容：指定在对话框中出现的文本。 对话框类型：设置对话框中出现的按钮和图标，一般有3个参数，分别用来指定按钮类型、图标类型和默认按钮。 对话框标题：在对话框标题栏中显示的内容。 帮助文件名, 帮助文件编号：由帮助文件的作者指定的帮助文件编号。 说 明 4.1.2 数据的输入/输出操作－MsgBox函数 * 第5章 顺序结构 MsgBox对话框的按钮类型 (P103) 值 常量 按钮类型 0 VbOkOnly 只有确定按钮 1 VbOkCancel 有确定和取消按钮 2 VbAbortRetryIgnore 有终止、重试和忽略按钮 3 VbYesNoCancel 有是、否和取消按钮 4 VbYesNo 有是和否按钮 5 VbRetryCancel 有重试和取消按钮 4.1.2 数据的输入/输出操作－MsgBox函数 * 第4章 程序控制结构 MsgBox对话框的图标类型 值 常量 图标类型 16 VbCritical 停止图标 32 VbQuestion 问号图标 48 VbExclamantion 感叹号图标 64 VbInformation 信息图标 值 常量 默认按钮 0 VbDefaultButton1 指定默认按钮为第一按钮 256 VbDefaultButton2 指定默认按钮为第二按钮 512 VbDefaultButton3 指定默认按钮为第三按钮 4.1.2 数据的输入/输出操作－MsgBox函数 MsgBox对话框的默认按钮 * 第4章 程序控制结构 MsgBox()函数的返回值 按 钮 返回值 常 量 “确定”按钮 1 VbOk “取消”按钮 2 VbCancel “终止”按钮 3 VbAbort “重试”按钮 4 VbRetry “忽略”按钮 5