第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
例3-1编一程序,当用户单击图中的 Command1按钮时程序弹 出输入框,要求用户输入信息;当用户输入信息并确定后,接 着弹出含有“是”和“否”按钮的消息框(标题为默认内容)。 若用户单击“是”按钮则程序继续运行;若单击“否”按钮 则程序退出 InputBox与 MsgBox使用例x 程序如下: Private Sub Command1 Click X= InputBox("请输入信息") y= MsgBox(, vb YesNo) fy=7Then'如果用户单击“否”按钮,那么 End'结束程序 vb3_1 AAA End if 是 否(N End sub 当用户在前一个输入框中输入“AAA时,弹出的消息 框
例3-1 编一程序,当用户单击图中的Command1按钮时程序弹 出输入框,要求用户输入信息;当用户输入信息并确定后,接 着弹出含有“是”和“否”按钮的消息框(标题为默认内容)。 若用户单击“是”按钮则程序继续运行;若单击“否”按钮 则程序退出。 程序如下: Private Sub Command1_Click() x = InputBox("请输入信息") y = MsgBox(x, vbYesNo) If y = 7 Then '如果用户单击“否”按钮,那么 End '结束程序 End If End Sub 当用户在前一个输入框中输入“AAA”时,弹出的消息 框
313Prin方法 Print方法的作用是在一些对象上输出信息,其一般使用格式如下: 「对象 Print spc(m)|Tabm)表达式列表结束符l 其中 对象:可选参数。可以是窗体、图片框名称或打印机对象 Spc(mn):可选参数。等效于 Space(n),表示输出n个空格字符 Tab(n):可选参数;用来将插入点定位在绝对列号n上; Tab表示下一个打印区 表达式列表:可选参数;是要打印的数值或字符串表达式 结束符:可选参数(有,;);指定下一个字符的插入点位置
3.1.3 Print方法 Print方法的作用是在一些对象上输出信息,其一般使用格式如下: [对象].Print [Spc(n) | Tab(n)] [表达式列表] [结束符] 其中: 对象:可选参数。可以是窗体、图片框名称或打印机对象。 Spc(n):可选参数。等效于Space(n),表示输出n个空格字符。 Tab(n):可选参数;用来将插入点定位在绝对列号n上; Tab表示下一个打印区。 表达式列表:可选参数;是要打印的数值或字符串表达式。 结束符:可选参数(有,;);指定下一个字符的插入点位置
例3-2_ Print方法的使用例。本程序执行后,输出的 结果将如图所示。 a Form1 Private Sub Form Click( ABC1■■■口 ABC2 X=50:y="库存书 Print"ABCI":"■■■■■" 1234567890 111存书=50本 Print"ABC2","□口口口口" 222存书=50本 Picture 1. Print Picture l Print 1234567890 Picture1Print Tab(3):"111;;"=,X; "4 Picture1 Print Spc(3);222, y: =,x; "4 End Sub
例3-2 Print方法的使用例。本程序执行后,输出的 结果将如图所示。 Private Sub Form_Click() x = 50 : y = "库存书" Print "ABC1"; "■■■■■" Print "ABC2", "□□□□□" Picture1.Print Picture1.Print "1234567890" Picture1.Print Tab(3); "111"; y; "="; x; "本" Picture1.Print Spc(3); "222"; y; "="; x; "本" End Sub
3.14格式输出 输出数据的格式由 Format函数确定, Format的一般格式如下 Format(表达式,格式字符串) 其中: 表达式:是要格式化的数值、日期或字符串类型表达式。 格式字符串:是一个加双引号的字符串,它说明前面的表达式 按什么格式输出。格式字符串有三类:数值格式、日期格式和 字符串格式。分别参见表3-3、表3-4和表3-5
3.1.4 格式输出 输出数据的格式由Format函数确定,Format的一般格式如下: Format(表达式,格式字符串) 其中: 表达式:是要格式化的数值、日期或字符串类型表达式。 格式字符串:是一个加双引号的字符串,它说明前面的表达式 按什么格式输出。格式字符串有三类:数值格式、日期格式和 字符串格式。分别参见表3-3、表3-4和表3-5
表3-3常用数值格式字符串及其含义 符号 作用 数值表达式 格式字符串 显示结果 0实际数字小于符号位数,数字前后加0:大于按实123456 "000 012345670 际数值显示或小数按四舍五入 1234567 "00000" 123457 #实际数字小于符号位数,数字前后不加0:大于按124567 1234567 实际数值显示或小数按四舍五入 1234567 "辦翔辨 123457 加小数点 1234 "000000 123400 千分位 1234567 绷0 1,2345670 %数值乘以100,加百分号 1234567 辨% 123456.7% $在数字前强加 1234567 "$胼 123457 +在数字前强加+ -124.567 +辨瓣 +12457 在数字前强加 1234567 辨辨 -123457 E+用指数表示 0.1234 000E+00 123E01 E与E+类似 1234567 0E0T" 12E4