《Visual Basic程序设计教程 项目式 教学课件 ppt 作者 陈秀莉 王体英 项目三Visual Basic基本程序控制结构》由会员分享，可在线阅读，更多相关《Visual Basic程序设计教程 项目式 教学课件 ppt 作者 陈秀莉 王体英 项目三Visual Basic基本程序控制结构（84页珍藏版）》请在金锄头文库上搜索。
1、项目三 Visual Basic基本程序控制结构 本项目主要包括VB基本输入输出语句，顺序结构、分支结构和循环结构程序设计。 【学习目标】 熟练掌握Print方法、输入/输出消息框函数的使用； 熟练掌握行if语句、块if结构、Select Case情况选择结构有使用，掌握选择的嵌套结构； 熟练掌握实现循环结构的For/Next循环结构及Exit For语句、Do/Loop循环结构的使用，掌握多重循环,使用文本输入框InputBox()函数 在Visual Basic中，除了可以通过文本框。组合框等控件来实现数据的输入与输出之外，还可以利用其提供的基本输入/输出语句。 一、任务分析 本任务是使用
2、InputBox()函数，屏幕上产生一个输入对话框，提示用户输入数据，返回一个用户在对话框中输入的值赋给变量。,二、相关知识 InputBox（）函数是Visual Basic所提供的从键盘输入数据的函数，当程序运行到该函数时，它在屏幕上产生一个输入对话框，提示用户输入数据，返回一个用户在对话框中输入的值赋给变量。其语法格式如下： = InputBox (,对话框标题,编辑框中默认值,x坐标,y坐标,帮助文件名,帮助主题号) 说明： 输入框的样式是固定的，用户不能改变。用户能改变的是输入框的“提示”和“标题”的内容及对话框的显示位置。 “提示”。字符串表达式，在对话框中作为提示信息出现，提示用
3、户输入数据，常用字符串常量表示。显示多行信息时，可以自动换行；也可以用插入“回车Chr(13)”和“换行Chr(10)”控制符的方法，强制换行，该参数不能省略，如图3-1为“请输入学号:”。,“对话框标题”。字符串表达式，用做设置输入框的标题，一般用字符串常量表示，若省略该参数则把程序名放入标题栏中，如图3-1为“学号输入”。 “编辑框中默认值”。字符串表达式，用于在对话框中显示默认信息，如果用户在没有进行输入操作的情况下，直接单击“Enter”键或单击对话框中的“确定”按钮，系统将把该数据作为默认值输入，并赋给变量。若省略该参数，则输入区为空白，等待用户输入数据。 “x坐标位置，y坐标位置”
4、。用于指定对话框在屏幕上的输出位置，整型表达式，指定对话框左上角在屏幕上显示的位置。若省略该参数，则对话框显示在屏幕中心。 “帮助文件名，帮助主题号”：有此选项时，在对话框中自动增加一个帮助按纽。 注意，各参数次序必须与前面函数格式中列出的次序一一对应，除了“提示”一项不能省略外，其余各项均可省略。,InputBox函数的返回值是一个字符串,系统默认数据类型为字符串类型.如果要将InputBox函数的值赋给一个数值型变量，通常采用Val函数进行转换,转换为与变量同一类型后赋值给变量.例如： a% = Val(InputBox(“请输入a的值：“) 缺省值 提示 标题 (9)输入的数据必须作为函
5、数的返回值赋给一个变量，否则输入的数据不能保留。每执行一次InputBox函数，用户只能输入一个数据，如果需要输入多个值，则必须多次调用该函数。,三、任务实施 1、编写一个输入学生学号的对话框，输入完成后，把输入的学生学号输出在窗体上。 （1）启动VB集成开发环境，新建一工程，在窗体代码中编写代码如下： Private Sub Form_Click() Dim No As String No=InputBox(“请输入学号:“,“学号输入“,34077) Form1.Print No End Sub （2）程序执行该语句，将在屏幕上显示如图 3-1所示的对话框，此时单击对话框中的“确定”，函数
6、将把“34077”数据赋给变量“No”。,四、任务小结 使用InputBox可以显示一个简单的对话框，以便输入所需要的的信息。此对话框有一个“确定”按钮和一个“取消”按钮。如果选取了“确定”按钮，则InputBox将返回对话框中输入的值。如果单击“取消”按钮，则InputBox的值为False。 使用消息框MsgBox()函数 一、任务分析 本任务是用于在程序运行过程中显示一些提示性消息，或要求用户对某个问题作出“是”,或“否”的判断等。在对话框中显示消息，等待用户单击按钮，并返回一个整数告诉用户单击了哪个按钮。 二、相关知识 在Visual Basic中，MsgBox()函数用来向用户发布提
7、示信息，并且可以返回用户在消息框中的选择。消息框的MsgBox的使用方式有两种：语句方式和函数方式。其语法格式如下： 1、MsgBox函数： =MsgBox(,) 或：MsgBox , 说明： （1）“提示”。字符串表达式，在对话框中作为提示信息出现，提示用户输入数据，常用字符串常量表示。显示多行信息时，可以自动换行；也可以用插入“回车Chr(13)”和“换行Chr(10)”控制符的方法，强制换行，最多可以有1024个字符。 （2）“对话框类型”：这是一个由4个数值常量组成的式子，形式为按钮类型+图标类型+默认按钮+模式，用于决定对话框中按钮的个数和类型以及出现在对话框中的图标类型，数值常量的
8、取值和所代表的意义如表3-1所示。,（3）“对话框标题”。字符串表达式，用做设置输入框的标题，一般用字符串常量表示，若省略该参数则把程序名放入标题栏中。 （4）返回值: 由用户在对话框中选择了哪一种按钮决定。,表 3-2 按钮图标类型中返回值及含义,2、MsgBox语句的使用方式： MsgBox , , 说明： 忽略函数返回值，直接调用，如： MsgBox (“确定要删除该文件吗？“, 1 + 32 + 256, “确定删除“) 三、任务实施 1、在窗体上添加一个命令按钮，单击按钮后弹出消息框，任意选择一个按钮返回值显示在窗体上，如图3-2所示。 （1）启动VB集成开发环境，新建一工程。在窗体
9、中添加一个命令按钮Command1，改其Caption为“返回值”，在命令按钮单击事件代码中编写代码如下： Private Sub Command1_Click() a = MsgBox(“提示信息“, 2 + 256, “标题内容“) Print a End Sub,（2）编辑结束后单击运行，弹出如图3-2所示对话框，选择“重试”后在窗体上打印出返回值“4”。,四、任务小结 1、在MsgBox中，参数是按一定顺序排列的，如果省略了某些参数，必须加入相应的逗号分隔符。 2、MsgBox过程没有返回值，因此常用于简单的信息显示。,3、Msgbox( )函数的返回值是一个整数，该整数与所选择的按钮
10、有关。每个按钮对应一个返回值，共有7种按钮。 4、按钮图标 +缺省按钮+模式”是整型表达式，决定信息框按钮数目、出现在信息框上的图标类型及操作模式 使用print方法 一、任务分析 本任务可以在窗体、图片框或打印机等对象中输出文本字符串或表达式的值。 二、相关知识 Print方法：具有计算和输出的双重功能。其语法格式如下： 对象名.PrintSpc(n)|Tab(n)表达式列表；|， 说明： （1）在指定对象上输出信息。 （2）对象名：窗体、图形框或打印机。如果省略对象，则在当前窗体上输出数据。,: 窗体 如 Form1.Print “Hello“ 图片框 如 Picture1.Print “
11、Hello“ 打印机 如 Printer.Print “Hello“ 立即窗口 如 Debug .Print “Hello“ 省略: 默认为当前窗体。 （3）表达式表: 多个表达式使用逗号或分号隔开。 （4）逗号:以14个字符位置为单位把一个输出行分成若干区段，定位在下一个打印区开始处(每个打印区14列）。 （5）分号:定位在上一个被显示的字符之后，后一项紧跟前一项输出。 （6）Print语句尾无分号或逗号，则输出一空行，表示输出后换行。 （7）输出时，数值型数据前有一个符号位(正号不显)，后面留一个空格位；字符串原样输出，前后无空格。 （8）Tab函数：从最左端开始计算的第n列。 其语法格式
12、如下： 格式：Tab(n) 功能：在指定的第n个位置上输出数据。 参数n： n当前位置: 打印位置为下一行的第n列 n1: 打印位置为第1列 省略: 打印位置为下一个打印区的起点 (每14个字符为一个打印区),（9）Spc函数：从当前打印位置起空n个空格。 其语法格式如下： 格式: Spc(n) 功能: 跳过n个空格。 例: Print “HOW“; Spc(3); “ABOUT“ 结果: HOWABOUT Space函数:可以用在字符串允许出现的任何位置。 Spc函数:只能用在打印语句中。 Tab函数指定绝对位置； Space函数或Spc函数指定相对位置。 三、任务实施 1、用print方法
13、在窗体上显示如下内容格式。 （1）启动VB集成开发环境，新建一工程，在窗体代码中编写代码如下： Private Sub Form_Load() Form1.Show Print “12345678901234567890“ Print 产生空行 Print “2+4=“; 2 + 4, Print 取消上面一句末尾逗号的作用 Print “2-4=“; Print 2 - 4 End Sub,（2）程序编辑结束运行后，在窗体上显示如图3-3所示结果。 图3-3.Print方法 注：输入Print时可用?代替，VB将其自动转换成Print （3）修改窗体代码中代码如下： Private Sub
14、Form_Load() Print “12345678901234567890“ Print “Hello“; Tab(10); “World“ Print “Hello“; Tab; “World“ Print “Hello“; Tab(4); “World“ Print Tab(-5); “Hello“ End Sub,（4）程序编辑结束运行后，在窗体上显示如图3-4所示运行结果。 图3-4.tab()函数 四、任务小结 Spc函数与Space函数、Tab函数的区别： 1、Space函数:可以用在字符串允许出现的任何位置。 2、Spc函数:只能用在打印语句中。 3、Tab函数指定绝对位置；
15、Space函数或Spc函数指定相对位置。 使用格式输出函数 一、任务分析,本任务是使用格式输出函数Format（）可以使数值、日期或字符按指定的格式输出，常用于Print方法中。 二、相关知识 Format方法 其语法格式如下： Format (表达式，格式字符串) 说明： 格式化字符串分为三类：数值的格式化、日期和时间格式化、字符串格式化 常用数值格式化 表 3-3 常用数值格式化字符,常用日期和时间格式符 表 3-4 常用日期和时间格式符,三、任务实施,（1）启动VB集成开发环境，新建一工程，在代码窗体中编写代码如下： Private Sub form_Click() Form1.Capt
16、ion = Now mytime = #11:12:34 PM# mydate = #2/2/2004# Print Tab(6); Format(mydate, “dddddd“) Print Tab(6); Format(mytime, “tttttAM/PM“) Print Tab(6); Format(mydate, “ddddd“) Print Tab(6); Format(mydate, “mmmm“) Print Tab(6); Format(mytime, “ttttt“) End Sub （2）程序编辑结束运行后，在窗体上显示如图3-5所示运行结果。,四、任务小结 Format()函数按指定格式输出数据，格式： Format(表达式,” 格式字符串”) 格式字符串： 0：数字位数，不足补0； #：数字位数，前后不加0。 设计顺序结构程序 一、任务分析 一个VB程序由两部分组成：即Viasual和Basic，前者是由众多的对象构成了程序的可
