1、2022-12-32022-12-3Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程1 第4章 控制结构与过程目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程22022-12-32022-12-3 4.1顺序结构 4.2选择结构 4.3循环结构第4章 控制结构与过程 目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程32022-12-32022-12-34.1 顺序结构nVB应用程序主要是由过程组成的,
2、编写程序应用程序主要是由过程组成的,编写程序时通常使用结构化程序设计的方法。时通常使用结构化程序设计的方法。n结构化程序设计包括结构化程序设计包括:顺序结构顺序结构 选择结构选择结构 循环结构循环结构n顺序结构是按程序中语句出现的先后顺序执行顺序结构是按程序中语句出现的先后顺序执行的结构。的结构。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程42022-12-32022-12-34.1.1 赋值语句n赋值语句是赋值语句是VB中使用最频繁的语句之一,中使用最频繁的语句之一,其格式为:其格式为:=n功能:将表达式的结果赋给变量或
3、某个功能:将表达式的结果赋给变量或某个对象的属性。对象的属性。例如:例如:V1=V1+50 目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程52022-12-32022-12-34.1.1 赋值语句n说明说明:为内存变量名或对象的属性名。为内存变量名或对象的属性名。赋值语句中赋值语句中“=”是赋值号,与数学中的等号意是赋值号,与数学中的等号意义不同。义不同。先计算表达式的值,然后将结果赋给等号先计算表达式的值,然后将结果赋给等号“=”左边的变量。左边的变量。如果等号如果等号“=”左边为左边为Variant变量,则表达式可变量,
4、则表达式可以是任意类型。以是任意类型。可以是任何数据类型,但等号可以是任何数据类型,但等号“=”两两边的数据类型必须一致或相容。边的数据类型必须一致或相容。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程62022-12-32022-12-34.1.2 使用Print方法输出数据n1 Print方法方法 Print方法的格式为:方法的格式为:Print,|;n功能:在窗体、图片框、立即窗口或打功能:在窗体、图片框、立即窗口或打印机等对象中输出信息。印机等对象中输出信息。目录目录Visual BasicVisual BasicV
5、isual Basic程序设计教程程序设计教程程序设计教程72022-12-32022-12-34.1.2 使用Print方法输出数据n说明:如果“对象名称”省略,则在当前窗体上输出。“表达式表”可以是算术表达式、字符串表达式、关系表达式或布尔表达式。若“表达式表”默认,则输出一个空行。当需要在同一行输出多个表达式的值时,如用逗号(,)将表达式隔开,则按标准输出格式(以14个字符位置为单位,把一行分成多个区段)在各区段分别显示表达式的值;若用分号(;)作分隔符,则按紧凑格式输出数据。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计
6、教程82022-12-32022-12-34.1.2 使用Print方法输出数据n2Tab函数函数 Tab函数可以与函数可以与Print方法配合使用。其格方法配合使用。其格式为:式为:Tab(n)功能:把光标移到由参数功能:把光标移到由参数n指定的位置,指定的位置,从这个位置开始输出数据。从这个位置开始输出数据。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程92022-12-32022-12-34.1.2 使用Print方法输出数据n 3Spc函数函数其格式为:其格式为:Spc(n)n功能:在功能:在Print输出中,光标由
7、当前位置输出中,光标由当前位置跳过跳过n个空格。个空格。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程102022-12-32022-12-3n【例4-1】使用Print方法直接在窗体上输出数据实例。运行界面目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程112022-12-32022-12-3例4-1(语句)n程序代码如下:Private Sub Form_Click()Dim v1 As String,v2 As String Dim v3 As Str
8、ing,v4 As String Dim v5 As String v1=2008:v2=北京奥运 v3=北京欢迎你 v4=同一个世界 v5=同一个梦想目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程122022-12-32022-12-3n程序代码如下:Print Print Tab(15);v1;v2 Print Print Tab(16);v3 Print Print Tab;v4,v5 Print Print Tab(4);v4,v5End Sub目录目录Visual BasicVisual BasicVisual B
9、asic程序设计教程程序设计教程程序设计教程132022-12-32022-12-34.1.3 输入函数InputBox n格式为:InputBox(Prompt.Title,Default ,Xpos,Ypos)n功能:弹出一个对话框(如图所示),等待用户输入数据,当用户敲回车键或单击“确定”按钮时,函数将输入的内容以字符串返回。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程142022-12-32022-12-34.1.3 输入函数InputBox n例如:n=InputBox(请输入学生人数:,输入框,0)提示标题默认
10、值目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程152022-12-32022-12-34.1.3 输入函数InputBox n函数中参数含义如下。Prompt:这是一个必选项,可以是字符串或字符串变量,用于表示出现在对话框中的提示信息,最长1024个字符,如上例中的“请输入学生人数:”。在对话框中显示Prompt时系统会自动换行,如果想按自己的要求换行,可在适当的位置插入回车换行操作:Chr$(13)Chr$(10)目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序
11、设计教程162022-12-32022-12-34.1.3 输入函数InputBox n函数中参数含义如下。Title:可选项,字符串或字符串变量,用于表示对话框内的标题信息,如上例中的“输入框”,若省略此项,则用工程名作为对话框的标题。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程172022-12-32022-12-34.1.3 输入函数InputBox n函数中参数含义如下。Default:可选项,字符串或字符串变量,用于设置输入框的文本中的默认文本。如果此项省略,则对话框的输入区是空白的,否则,在对话框的输入区会显示
12、该参数的内容,并作为输入的默认值。如果用户不想用这个默认字符串作为输入值,可在输入区直接输入新的数据。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程182022-12-32022-12-34.1.3 输入函数InputBox n函数中参数含义如下。Xpos,Ypos:可选项,是两个整数值,用于设置输入框与屏幕左边和上边的距离(单位为 twip)。若默认,则对话框显示在屏幕中心线向下约三分之一处。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程192022-1
13、2-32022-12-34.1.3 输入函数InputBox n【例例4-2】设计一个窗体,其中有一个命令按设计一个窗体,其中有一个命令按钮,如下图所示。钮,如下图所示。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程202022-12-32022-12-34.1.3 输入函数InputBox n编写单击命令按钮响应事件如下:编写单击命令按钮响应事件如下:Private Sub Command1_Click()Dim s1 As String*8,s2 As String Dim s3 As Integer,s4 As Str
14、ing Cls s1=InputBox(请输入学号请输入学号:,输入学号输入学号,20080001)s2=InputBox(请输入姓名请输入姓名:,输入姓名输入姓名)s3=Val(InputBox(请输入年龄请输入年龄:,输入年龄输入年龄,18)目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程212022-12-32022-12-34.1.3 输入函数InputBox n编写单击命令按钮响应事件如下:编写单击命令按钮响应事件如下:s4=InputBox(请输入班级请输入班级:,输入班级输入班级)Print Print Tab(
15、4);学号学号;Spc(5);姓名姓名;Spc(5);年龄年龄;Spc(6);班级班级 Print Tab(2);s1;Tab(12);s2;Tab(22);s3;Tab(30);s4End目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程222022-12-32022-12-3【例例4.14.1】输入一个圆的半径,试求其输入一个圆的半径,试求其面积。面积。新建一个工程,在其窗体上建新建一个工程,在其窗体上建立一个命令按钮。对命令按钮的单立一个命令按钮。对命令按钮的单击事件编程。击事件编程。目录目录Visual BasicVis
16、ual BasicVisual Basic程序设计教程程序设计教程程序设计教程232022-12-32022-12-3Private Sub Command1_Click()Dim s As Single,r As Single r=InputBox(请输入圆半径请输入圆半径)s=3.14159*r*r Print 圆面积为:圆面积为:&sEnd Sub目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程242022-12-32022-12-3用文本框输入Private Sub Command1_Click()Dim s As S
17、ingle,r As Single r=val(Text1.Text)s=3.14159*r*r Print 圆面积为:圆面积为:&sEnd Sub目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程252022-12-32022-12-3用标签输出Private Sub Command1_Click()Dim s As Single,r As Single r=val(Text1.Text)s=3.14159*r*r Label1.Caption=圆面积为:圆面积为:&sEnd Sub目录目录Visual BasicVisual
18、 BasicVisual Basic程序设计教程程序设计教程程序设计教程262022-12-32022-12-3其它方式n用文本框输出用文本框输出n用用MsgBox输出输出目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程272022-12-32022-12-34.1.4 输出函数MsgBox与 MsgBox语句 n1 MsgBox函数函数 格式为:格式为:MsgBox(Prompt,Buttons,Title ,HelpFile,Context)功能:根据参数建立一个对话框,显示提功能:根据参数建立一个对话框,显示提示信息,同
19、时将用户在对话框中的选择结示信息,同时将用户在对话框中的选择结果传输给程序。果传输给程序。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程282022-12-32022-12-3 提示标题命令按钮图标MsgBox函数弹出信息框目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程292022-12-32022-12-34.1.4 输出函数MsgBox与 MsgBox语句 n函数中参数Title的含义与InputBox函数中同名参数类似。Prompt:必选项,可以是字
20、符串或字符串变量,最长1024个字符。它用于显示在对话框中的提示信息,通知用户应该做什么选择。在对话框中显示Prompt时系统会自动换行,如果想按自己的要求换行,可在适当的位置插入回车换行操作:Chr$(13)Chr$(10)。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程302022-12-32022-12-34.1.4 输出函数MsgBox与 MsgBox语句 Buttons:可选项,可以是整数值或表4-1中系统定义的符号常量。它用于指定对话框中按钮的数目及形式、图标的样式,以及默认按钮和强制返回。该参数的值由表4-1中
21、四类数值各选一个相加产生。若此项缺省,则对话框内只显示一个“确定”按钮(默认值为0)。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程312022-12-32022-12-3类 型数值功 能按钮0只显示“确定”按钮1显示“确定”及“取消”按钮2显示“终止”、“重试”及“忽略”按钮3显示“是”、“否”及“取消”按钮4显示“是”及“否”按钮5显示“重试”及“取消”按钮表4-1 参数Buttons的取值 目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程322022-
22、12-32022-12-3表4-1 参数Buttons的取值 类 型数 值功 能图标16显示Critical Message图标32显示Query Message图标48显示Warning Message图标 64显示Information Message图标按钮0第一个按钮是默认值256第二个按钮是默认值512第三个按钮是默认值768第四个按钮是默认值目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程332022-12-32022-12-3 表4-2 MsgBox函数返回值 返 回 值操 作符 号 常 量1选“确定”按钮vbO
23、K2选“取消”按钮vbCancel3选“终止”按钮vbAbort4选“重试”按钮vbRetry5选“忽略”按钮vbIgnore6选“是”按钮vbYes7选“否”按钮vbNo目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程342022-12-32022-12-3输出函数MsgBoxn【例4-3】编写程序,使用MsgBox函数显示对话框。Private Sub Form_Click()m1=需要数据备份吗?m2=MsgBox函数示例1 h=MsgBox(m1,36,m2)Print h End Sub目录目录Visual Basi
24、cVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程352022-12-32022-12-3n2 MsgBox语句 MSgBox语句与MSgBox函数的作用相似,各参数的含义亦与MsgBox函数相同。其格式为:MsgBox,Buttons,Title ,HelpFile,Context功能:建立一个对话框,显示提示信息,同时接收用户在对话框中的选择。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程362022-12-32022-12-3n【例4-4】编写程序,使用MsgBox语句显示对话框。P
25、rivate Sub Form_Click()m1=欢迎使用本系统!m2=MsgBox语句示例 MsgBox m1,0,m2End Sub目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程372022-12-32022-12-34.1.5 编程规则n1注释语句注释语句注释语句是非执行语句,格式为:注释语句是非执行语句,格式为:Rem n2续行符续行符 VB允许使用续行符允许使用续行符“_”(一个空格加(一个空格加一个下划线)将一条长语句写成多行。一个下划线)将一条长语句写成多行。目录目录Visual BasicVisual Ba
26、sicVisual Basic程序设计教程程序设计教程程序设计教程382022-12-32022-12-34.1.5 编程规则n3一行写多条语句一行写多条语句 语句间用冒号语句间用冒号“:”分隔。分隔。例如:例如:a=25:b=50:c=8 n4 暂停语句暂停语句 暂停语句用来暂停程序的执行。暂停语句用来暂停程序的执行。格式为:格式为:Stop n5 结束语句结束语句 End目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程392022-12-32022-12-34.2 选择结构nVB中选择结构语句包含中选择结构语句包含 If
27、语句语句 Select Case语句语句目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程402022-12-32022-12-34.2.1 If语句 nIf语句又称条件语句,包括:单分支结构双分支结构多分支结构目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程412022-12-32022-12-31 单分支If语句n块结构块结构If语句格式为:语句格式为:If Then End Ifn单行:单行:If Then n功能:如果表达式的值为功能:如果表达式的值为T
28、rue(真),(真),执行语句序列,否则执行执行语句序列,否则执行End If后面的后面的语句。语句。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程422022-12-32022-12-31 单分支If语句 图4-7 单分支语句工作流程图目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程432022-12-32022-12-32 双分支If语句n块结构块结构If语句格式为:语句格式为:If Then Else End Ifn单行:单行:If Then Else
29、 n功能:如果表达式的值为功能:如果表达式的值为True(真),执行(真),执行语句序列语句序列1,否则执行语句序列,否则执行语句序列2。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程442022-12-32022-12-32 双分支If语句 图4-8 双分支语句工作流程图表达式表达式FTIf前面的语句前面的语句语句序列语句序列1语句序列语句序列2End If后面的语句后面的语句目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程452022-12-32022-
30、12-3 2 双分支If语句【例4-5】设有函数如下,计算y的值:1 1 x x0 0 y y=0 0 x x0 0 -1 1 x x0 0 目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程462022-12-32022-12-3n程序代码如下:Private Sub Form_Click()Dim x As Single,y As Single x=Val(Text1.Text)If x 0 Then y=1 Else If x 0 Then y=-1 Else 目录目录Visual BasicVisual BasicVis
31、ual Basic程序设计教程程序设计教程程序设计教程472022-12-32022-12-3n程序代码:Else y=0 End If End If Label2.Caption=Str(y)End Sub 目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程482022-12-32022-12-3用用sgn(x)函数实现函数实现Private Sub Command1_Click()dim x As single,y as singlex=val(Text1.Text)Label2.Caption=sgn(x)End sub目
32、录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程492022-12-32022-12-33 多行If语句If Then ElseIf Then ElseIf Then Else End If 目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程502022-12-32022-12-3 多行If语句工作流程图目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程512022-12-32022-12-3用多行
33、If语句改写例题4-5If x0 theny=1ElseIf x0 theny=-1Elsey=0End If目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程522022-12-32022-12-3n【例例4-6】在窗体上有一个标签在窗体上有一个标签Label1和一和一个命令按钮个命令按钮Command1,程序运行后,单,程序运行后,单击命令按钮弹出一个输入对话框,用户输入击命令按钮弹出一个输入对话框,用户输入任意一个正整数,在标签上输出该数字的位任意一个正整数,在标签上输出该数字的位数。数。目录目录Visual BasicV
34、isual BasicVisual Basic程序设计教程程序设计教程程序设计教程532022-12-32022-12-3Private Sub Command1_Click()Dim Num As Long Num=Val(InputBox(请输入任意正整数请输入任意正整数,多行多行If语句实例语句实例,0)If Num 10 Then Label1.Caption=输入的是一位数字输入的是一位数字:&Num ElseIf Num 100 Then Label1.Caption=输入的是两位数字输入的是两位数字:&Num ElseIf Num 1000 Then Label1.Caption
35、=输入的是三位数字输入的是三位数字:&Num Else Label1.Caption=输入的是四位以上数字输入的是四位以上数字:&Num End IfEnd Sub目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程542022-12-32022-12-34 IIf函数nIIf函数可用来执行简单的条件判断操作,函数可用来执行简单的条件判断操作,它和它和“IfThenElse”语句有类似的语句有类似的功能。格式为:功能。格式为:IIf(,)其中,其中,“条件条件”是一个逻辑表达式。当是一个逻辑表达式。当“条件条件”为真时,为真时,I
36、If函数返回函数返回“True部部分分”,若,若“条件条件”为假,则返回为假,则返回“False部分部分”。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程552022-12-32022-12-34 IIf函数n【例例4-7】利用利用IIf函数改写例题函数改写例题4-5。Private Sub Command1_Click()Dim x As Single,y As Integer x=Val(Text1.Text)y=IIf(x 0,1,IIf(x=0,0,-1)Text2.Text=Str(y)End Sub目录目录Vis
37、ual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程562022-12-32022-12-3【例例4.7】输入一个学生的平均成绩输入一个学生的平均成绩x,若若x90则输出则输出“优秀优秀”;若;若x90且且x80则输出则输出“良好良好”;若;若x80且且x70则输出则输出“中等中等”;若;若x70且且x60则输出则输出“及格及格”;若;若x60则输则输出出“不及格不及格”。对窗体的单击事件编对窗体的单击事件编程如下。程如下。(tu4-7.vbp)(tu4-7.vbp)目录目录Visual BasicVisual BasicVisual Basi
38、c程序设计教程程序设计教程程序设计教程572022-12-32022-12-3Private Sub Form_Click()Dim x As Single,y As String x=InputBox(请输入平均成绩请输入平均成绩)If x=90 Then y=为优秀为优秀 ElseIf x=80 Then y=为良好为良好 ElseIf x=70 Then y=为中等为中等 ElseIf x=60 Then y=为及格为及格 Else y=为不及格为不及格 End If MsgBox x&yEnd Sub目录目录Visual BasicVisual BasicVisual Basic程序设
39、计教程程序设计教程程序设计教程582022-12-32022-12-3用用Label和和TextBox控件实现控件实现(tu4-7-1.vbp)。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程592022-12-32022-12-3Private Sub Command1_Click()Dim x As Single,y As String x=val(Text1.Text)文本框输入文本框输入 If x=90 Then y=为优秀为优秀 ElseIf x=80 Then y=为良好为良好 ElseIf x=70 Then
40、y=为中等为中等 ElseIf x=60 Then y=为及格为及格 Else y=为不及格为不及格 End If Label3.Caption=y标签输出标签输出End Sub目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程602022-12-32022-12-34.2.2 Select Case语句(情况语句)n语句的一般格式为:语句的一般格式为:Select Case Case Case Case Case Else End Select 目录目录Visual BasicVisual BasicVisual Basic程
41、序设计教程程序设计教程程序设计教程612022-12-32022-12-3n功能:根据功能:根据的值,从的值,从若干语句块中挑选一个语句块执行。若干语句块中挑选一个语句块执行。n 可以是数字表达式或可以是数字表达式或字符串表达式。字符串表达式。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程622022-12-32022-12-3nSelect Case语句中的语句中的“表达式结果表达式结果表表”可以有下列四种形式:可以有下列四种形式:只有一个数值常量或单个字符常量只有一个数值常量或单个字符常量例如:例如:Select Cas
42、e x Case 5 Case are 目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程632022-12-32022-12-3有多个用逗号隔开的数值常量或字符有多个用逗号隔开的数值常量或字符串常量串常量。如果表达式的值与其中一个数值或字符串相等,即可执行此表达式结果后相应的语句序列;否则,若表达式的值与这些取值均不相等,可以再与随后的其他表达式结果表进行比较。例如:Select Case x Case 3,6,9,12 Case a,u,o目录目录Visual BasicVisual BasicVisual Basic程序设
43、计教程程序设计教程程序设计教程642022-12-32022-12-3 To:它:它提供了一个数值或字符串的取值范围,字提供了一个数值或字符串的取值范围,字符串常量的范围必须按字母顺序写出。符串常量的范围必须按字母顺序写出。如果表达式的值与范围内的某个值相等,则执行此表达式结果后相应的语句序列;否则,若表达式的值与这个取值范围内的值均不相等,可以再与随后的其他表达式结果表进行比较。例如:Select Case x Case 10 To 99 Case A To Z目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程652022-1
44、2-32022-12-3 Is 关系运算符关系运算符 数值或字符串:数值或字符串:Is是关键字,其后只能使用“”、“”、“”、“”、“”和“”等关系运算符。将测试表达式的值与关系运算符后面的数值或字符串进行比较,若结果为真,则执行此表达式结果后相应的语句序列;否则,与随后的其他表达式结果表进行比较。例如:Select Case x Case Is ABC Case Is=90 y=为优秀为优秀 Case Is=80 y=为良好为良好 Case Is=70 y=为中等为中等 Case Is=60 y=为及格为及格 Case Else y=为不及格为不及格 End Select 目录目录Visua
45、l BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程672022-12-32022-12-34.3循环结构nVB提供了三种不同风格的循环结构计数循环(ForNext)当循环(WhileWend)Do循环。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程682022-12-32022-12-34.3.1 For循环nFor循环也称循环也称ForNext循环,属于计数型循环,属于计数型循环,在程序中实现固定次数的循环。其循环,在程序中实现固定次数的循环。其格式为:格式为:For 循环变
46、量循环变量=初值初值 To终值终值 Step步长步长 Exit For Next 循环变量循环变量n功能:按指定的次数执行循环体。功能:按指定的次数执行循环体。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程692022-12-32022-12-34.3.1 For循环n其中:其中:循环变量:是用做循环计数器的数值变循环变量:是用做循环计数器的数值变量,也称为循环控制变量。量,也称为循环控制变量。初值:循环控制变量的初值,是一个常初值:循环控制变量的初值,是一个常数或数值表达式。数或数值表达式。终值:循环控制变量的终值,是一个
47、常终值:循环控制变量的终值,是一个常数或数值表达式。数或数值表达式。步长:循环控制变量的增量,是一个常步长:循环控制变量的增量,是一个常数或数值表达式。其值可以是正数(递数或数值表达式。其值可以是正数(递增循环)或负数(递减循环)。增循环)或负数(递减循环)。目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程702022-12-32022-12-3n例如:例如:For i=1 To 100 Step 1 sum=sum+i Nextn其中:其中:i是循环变量,是循环变量,1是初值,是初值,100是终值,是终值,1是步长,是步长,
48、sum是累加器,是累加器,sum=sum+i是循环体。也可以写成:是循环体。也可以写成:For i=100 To 1 Step-1 sum=sum+i Next目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程712022-12-32022-12-3n循环次数由初值、终值和步长三个因素决定,循环次数由初值、终值和步长三个因素决定,计算公式为:计算公式为:循环次数循环次数=Int(终值终值-初值初值)/步长步长+1n【例例4-9】窗体上有窗体上有1个标签个标签Label1和和2个命个命令按钮令按钮Command1、Command2
49、,编写程,编写程序计算序计算 的值。的值。n1.4131211目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程722022-12-32022-12-3目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程732022-12-32022-12-3Private Sub Command1_Click()Dim n As Integer,i As Integer,sum As Double n=Val(InputBox(请输入整数N,For循环)For i=1 To n
50、Step 1 sum=sum+1/i Next i Label1.Caption=1+1/2+1/+Trim(Str(n)+=+Trim(Str(sum)End Sub目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程742022-12-32022-12-3拓展n如何用如何用MsgBox输出?输出?n如果用如果用TextBox输出,该怎么做?输出,该怎么做?目录目录Visual BasicVisual BasicVisual Basic程序设计教程程序设计教程程序设计教程752022-12-32022-12-34.3.2 Whi