《程序控制结构》PPT课件.ppt

《《程序控制结构》PPT课件.ppt》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、第3章程序控制结构3.1输入输出语句3.2顺序结构3.3选择结构3.4循环结构3.5辅助控制语句3.6常用算法举例输入：信息从计算机外传输到计算机内存。输入方式有：键盘、鼠标、外存储设备、文件、InputBox。一般通过一个内存变量来接收所输入的数据。输出：信息从计算机内存传输到计算机主机外。输出去向有：显示器屏幕（程序界面,消息对话框MsgBox）打印机文件3.1输入输出语句9/9/20212引例.若书写下列语句：x＝InputBox("请输入一个数","给x赋值","666",100,200)则执行上述语句时会出现下面所示的对

2、话框：若用户直接单击“确定”按钮，则x将得到值"666"；若用户输入"888"替换掉原默认值，再单击“确定”按钮，则x将得到值"888"。InputBox函数的一般使用格式如下：x＝InputBox(提示内容[,标题][,函数的默认值][,x][,y])其中：提示内容必填参数，是将出现在对话框的字符。标题—————将出现在对话框标题栏的字符。函数的默认值默认出现的输入内容。X和y—————对话框出现的位置（左上角点的水平、垂直坐标）。3.1.1InputBox函数9/9/20213引例.若书写下列语句：x＝InputBox

3、("请输入密码字符")IfLen(x)<6Then'当x中的值少于6个字符时，则执行下面语句y=MsgBox("错误：您输入的字符串不足6位",VbOkOnly,"密码消息")EndIf执行上述语句时若在输入框中输入少于6个字符的内容，则会出现下面图所示的消息框；而输入6个以上字符则不出现下面的消息框。注意：消息框中出现的提示内容、标题栏内容、按钮的形式。MsgBox例3.1.2MsgBox函数和MsgBox过程9/9/202143.1.2MsgBox函数和MsgBox过程函数形式：变量名=MsgBox(提示[,按钮][,标题])

4、过程形式:MsgBox提示[,按钮][,标题]按钮值如下:函数返回所选按钮整数值:9/9/20215例3-1编一程序，当用户单击图3-3的Command1按钮时程序弹出输入框，要求用户输入信息；当用户输入信息并确定后,接着弹出含有“是”和“否”按钮的消息框(标题为默认内容)。若用户单击“是”按钮则程序继续运行；若单击“否”按钮则程序退出。程序如下：PrivateSubCommand1_Click()x=InputBox("请输入信息")y=MsgBox(x,vbYesNo)Ify=7Then'如果用户单击“否”按钮，那么End'结

5、束程序EndIfEndSub当用户在前一个输入框中输入“AAA”时，弹出的消息框InputBox和MsgBox的综合应用9/9/202163.1.3Print方法Print方法的作用是在一些对象上输出信息,其一般使用格式如下：[对象].Print[Spc(n)

6、Tab(n)][表达式列表][结束符]其中：对象：可选参数。可以是窗体、图片框名称或打印机对象。Space(n)：可选参数。表示输出n个空格字符。Tab(n)：可选参数；用来将插入点定位在绝对列号n上。表达式列表：可选参数；是要打印的数值或字符串表达式。结束符：可选参数；指

7、定下一个字符的插入点位置。如：Picture1.PrintTab(10);"abc"；12;功能：定位在当前光标的第十列显示abc和12，最后的分号表示下个字符紧凑显示9/9/20217Print方法的例题例3-2Print方法的使用例。本程序执行后，输出的结果如图所示。PrivateSubForm_Click()x=50:y="库存书"Print"ABC1";"■■■■■"Print"ABC2","□□□□□"Picture1.PrintPicture1.Print"1234567890"Picture1.PrintTab(3)

8、;"111";y;"=";x;"本"Picture1.PrintSpc(3);"222";y;"=";x;"本"EndSub9/9/202183.1.4格式输出输出数据的格式由Format函数确定,Format的一般格式如下：Format（表达式,格式字符串）其中：1）表达式：是要格式化的数值、日期或字符串类型表达式。2）格式字符串：是一个加双引号的字符串，它说明前面的表达式按什么格式输出。如：Format(5459.4,"##,##0.00")'返回"5,459.40"格式字符串有三类：数值格式、日期格式和字符串格式。分别参见表

9、3-3、表3-4和表3-5。9/9/202191）数值格式9/9/2021102）日期格式9/9/2021113）字符串格式9/9/202112Format格式的例题举例:DimMyTime,MyDate,MyStrMyTime=#17:04:23