第3章程序控制结构 3.1输入输出语句 3.2顺序结构 3.3选择结构 3.4循环结构 3.5辅助控制语句 3.6常用算法举例
第3 章程序控制结构 3.1 输入输出语句 3.2 顺序结构 3.3 选择结构 3.4 循环结构 3.5 辅助控制语句 3.6 常用算法举例
31输入输出语句 输入:信息从计算机外设传输到计算机内存 输入的来源有: 键盘、鼠标、外存储设备。 (B中输入的形式有: InputBox、文件) 输出:信息从计算机内存传输到计算机主机外。 输出去向有 显示器屏幕、外存储设备、打印机 (VB中输出的形式有: Msg Box、 print、文件)
3.1 输入输出语句 输入：信息从计算机外设传输到计算机内存。 输入的来源有： 键盘、鼠标、外存储设备。 （VB中输入的形式有：InputBox、文件） 输出：信息从计算机内存传输到计算机主机外。 输出去向有： 显示器屏幕、外存储设备、打印机 （VB中输出的形式有： MsgBox 、print、文件）
311 InputBox函数 若执行下列语句,时会出现下面所示的对话框 x= inpuTbox("请输入一个数","给x赋值","666,100,200) 给赋值 请输入一个数 确定 取消 若用户直接单击“确定”按钮,则x将得到值"666";若用户输入 "888"替换掉原默认值,再单击“确定”按钮,则ⅹ将得到值"88″ InputBox函数的一般使用格式如下: x1= InputBox(提示内容,标题],函数的默认值,xly) 其中:提示内容——必填参数,是将出现在对话框的字符。标题将出现 在对话框标题栏的字符。函数的默认值默认出现的输入内容。X和y 对话框出现的位置(左上角点的水平、垂直坐标)
3.1.1 InputBox函数 若执行下列语句，时会出现下面所示的对话框： x＝InputBox("请输入一个数","给x赋值","666",100,200) 若用户直接单击“确定”按钮，则x将得到值"666"；若用户输入 "888"替换掉原默认值，再单击“确定”按钮，则x将得到值"888"。 InputBox函数的一般使用格式如下： x1＝InputBox(提示内容[,标题] [,函数的默认值][,x] [,y]) 其中：提示内容——必填参数，是将出现在对话框的字符。标题——将出现 在对话框标题栏的字符。函数的默认值——默认出现的输入内容。X和y—— 对话框出现的位置（左上角点的水平、垂直坐标）。 例
312 Msg Box函数和 MsgBox过程 x= Input Box("请输入密码字符") IfLen(x)<6Then!当x中的值少于6个字符时,则执行下面语句 y= Msg Box("错误:您输入的字符串不足6位", VbOkonly"密 码消息") End If 执行上述语句时若在输入框中输入少于6个字符的内容,则会 出现下面图所示的消息框;而输入6个以上字符则不出现下 面的消息框。 密码消息 错误:您输入的字符串不足6位 确定 MsgBox例 注意消息框中出现的提示内容、标题栏内容、按钮的形式
3.1.2 MsgBox函数和MsgBox过程 x＝InputBox("请输入密码字符") If Len(x)<6 Then '当x中的值少于6个字符时，则执行下面语句 y=MsgBox("错误：您输入的字符串不足6位",VbOkOnly,"密 码消息") End If 执行上述语句时若在输入框中输入少于6个字符的内容，则会 出现下面图所示的消息框；而输入6个以上字符则不出现下 面的消息框。 MsgBox例 注意消息框中出现的提示内容、标题栏内容、按钮的形式。 例
312 Msg Box函数和 Msg Box过程 函数形式:变量名= MsgBox(提示[按钮标题]) 过程形式: MsgBox提示[按钮][标题] 分组内部常数按扭值 描述 函数返回所选按钮整数值: 0只显示0按纽 内部常数返回值被按下的按钮 按 oOkCancel 1显示Ok,Caml按钮 book k 钮 voabartretrylgmone2|显示Aort,ey,g按:妞 carcel Cancel 数e93显示Ye,N, Cancel*按 abort 3 Abort 日 voLes No Ye,1按钮 soRer Retry foRetryCancel 5显示 Retry Cancel按扭 voRtical 16关键信息图标红色STOP标志 palmore 5 anore 标 bQuestion 32询问信息图标? wbye yoExlamation 48警告信息图标! yaNo No 型 lnformation 64信息图标i 不同组的方式可用“+组合使用,如 vbOkonly+ acRitical
3.1.2 MsgBox函数和MsgBox过程 函数形式：变量名 = MsgBox( 提示 [,按钮][,标题] ) 过程形式: MsgBox 提示 [,按钮] [,标题] 函数返回所选按钮整数值: 不同组的方式可用“+”组合使用，如:vbOkOnly+vbCritical r r r r