第3章程序控制结构.pptVIP

第3 章程序控制结构 3.1 输入输出语句 3.2 顺序结构 3.3 选择结构 3.4 循环结构 3.5 辅助控制语句 3.6 常用算法举例 输入：信息从计算机外传输到计算机内存。 输入方式有： 键盘、鼠标、外存储设备、文件、InputBox。 一般通过一个内存变量来接收所输入的数据 。 输出：信息从计算机内存传输到计算机主机外。 输出去向有： 显示器屏幕（程序界面,消息对话框MsgBox ） 打印机 文件 3.1.1 InputBox函数 引例. 若书写下列语句： x＝InputBox(请输入一个数,给x赋值,666,100,200) 则执行上述语句时会出现下面所示的对话框： 若用户直接单击“确定”按钮，则x将得到值666；若用户输入888替换掉原默认值，再单击“确定”按钮，则x将得到值888。 InputBox函数的一般使用格式如下： x＝InputBox(提示内容 [,标题] [,函数的默认值] [,x] [,y]) 其中：提示内容 ?必填参数，是将出现在对话框的字符。 标题—————?将出现在对话框标题栏的字符。 函数的默认值 ?默认出现的输入内容。 X和y—————?对话框出现的位置（左上角点的水平、垂直坐标）。 3.1.2 MsgBox函数和MsgBox过程 引例. 若书写下列语句： x＝InputBox(请输入密码字符) If Len(x)6 Then 当x中的值少于6个字符时，则执行下面语句 y=MsgBox(错误：您输入的字符串不足6位,VbOkOnly,密码消息) End If 执行上述语句时若在输入框中输入少于6个字符的内容，则会出现下面图所示的消息框；而输入6个以上字符则不出现下面的消息框。 注意：消息框中出现的提示内容、标题栏内容、按钮的形式。 3.1.2 MsgBox函数和MsgBox过程 InputBox和MsgBox的综合应用 例3-1 编一程序，当用户单击图3-3的Command1按钮时程序弹出输入框，要求用户输入信息；当用户输入信息并确定后,接着弹出含有“是”和“否”按钮的消息框(标题为默认内容)。若用户单击“是”按钮则程序继续运行；若单击“否”按钮则程序退出。 程序如下： Private Sub Command1_Click() x = InputBox(请输入信息) y = MsgBox(x, vbYesNo) If y = 7 Then 如果用户单击“否”按钮，那么 End 结束程序 End If End Sub 3.1.3 Print方法 Print方法的作用是在一些对象上输出信息,其一般使用格式如下： [对象].Print [Spc(n) | Tab(n)] [表达式列表] [结束符] 其中： 对象： 可选参数。可以是窗体、图片框名称或打印机对象。 Space(n)：可选参数。表示输出n个空格字符。 Tab(n)：可选参数；用来将插入点定位在绝对列号n上。 表达式列表：可选参数；是要打印的数值或字符串表达式。 结束符：可选参数；指定下一个字符的插入点位置。 如：Picture1.Print Tab(10); abc ；12; 功能：定位在当前光标的第十列显示abc和12，最后的分号表示下个字符紧凑显示 Print 方法的例题 例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.1.4 格式输出 输出数据的格式由Format函数确定,Format的一般格式如下： Format（表达式,格式字符串） 其中： 1）表达式：是要格式化的数值、日期或字符串类型表达式。 2）格式字符串：是一个加双引号的字符串，它说明前面的表达式按什么格式输出。 如： Format(5459.4, ##,##0.00) 返回 5,459.