1、Visual Basic语言程序设计,第7章 Visual Basic控制结构,2,第7章 Visual Basic控制结构,7.1 选择控制结构,7.2 多分支控制结构,7.3 For循环控制结构,7.4 当循环控制结构,7.5 Do循环控制结构,7.6 多重循环,3,7.1 选择控制结构,给定条件进行分析、比较和判断，并根据判断结果采取不同的操作，在VB中，这样的问题通过选择结构程序来解决。选择结构通过条件语句来实现。条件语句也称If语句，它有两种格式，一种是单行结构，一种是块结构。,7.1.1 单行结构条件语句 7.1.2 块结构条件语句 7.1.3 IIf函数,4,7.1.1 单行结构
2、条件语句,单行条件语句比较简单，其格式如下： If 条件 Then then部分Else else部分 该语句的功能是：如果“条件”为True，则执行“then部分”，否则执行“else部分”。其中 Else部分是可选的，当省略时，简化为： If 条件Then then部分 它的功能是：如果“条件”为True，则执行“then部分”，否则执行下一行程序。,5,7.1.1 单行结构条件语句,例： 设有如下函数： 输入x值，求y值。Private Sub Form_Click()Dim x As Single, y As Singlex=InputBox(“请输入x的值“)If x0 Then y
3、=1 ElseIf x=0 Then y=0 Else y=-1Print “x=“; x, “y=“; y End Sub,6,7.1.2 块结构条件语句,块结构条件语句一般格式如下： If 条件1 Then语句块1 ElseIf 条件2 Then语句块2 ElseIf 条件3 Then语句块3 Else语句块n End If,块结构条件语句的功能是：如果“条件1”为True，则执行“语句块1”；否则如果“条件2”为True，则执行“语句块2”否则执行“语句块n”。,7,7.1.2 块结构条件语句,例如： Check=InputBox(“Enter a string: “,“Check Bo
4、x“) If Len(Check)6 ThenPrint “Input too long“ ElseIf Len(Check)6 ThenPrint “Input too short“ ElseIf Left(Check)=“a“ ThenPrint “Cant start with an a“ End If,8,7.1.2 块结构条件语句,注意：当有多个条件时，单行语句和多行块结构的区别。,X=val(inputbox(“输入数字”) If x=5 then print “A” If x=7 then print “B” If x=9 then print “C” If x=11 then
5、Print “D” 当输入8时，窗体上输出？,X=val(inputbox(“输入数字”) If x = 5 ThenPrint “A“ ElseIf x = 7 ThenPrint “B“ ElseIf x = 9 ThenPrint “C“ ElseIf x = 11 ThenPrint “D“ End If 当输入8时，窗体上输出？,9,7.1.3 IIf函数,IIf函数可用来执行简单的条件判断操作，它是“IfThenElse”结构的简写版本。 格式如下： result=IIf(条件, True部分, False部分) “result”是函数的返回值 “条件”是一个逻辑表达式。当“条件”
6、为真时，IIf函数返回“True部分”，而当“条件”为假时返回“False部分”。 “True部分”或“False部分”可以是表达式、变量或其他函数。,10,7.1.3 IIf函数,例如，块结构： if a5 Thenr=1 Else r=2 End If 可用下面的IIf函数来代替：r=IIf(a5, 1, 2),11,7.2 多分支控制结构,在Visual Basic中，多分支结构程序通过情况语句来实现。情况语句也称Select Case语句或Case语句，它根据一个表达式的值，在一组相互独立的可选语句序列中挑选要执行的语句序列。,12,7.2 多分支控制结构,格式： Select Cas
7、e 测试表达式Case 表达式表列1 语句块1Case 表达式表列2语句块2Case Else语句块n End Select,情况语句以Select Case开头，以End Select结束。其功能是，根据“测试表达式”的值，从多个语句块中选择符合条件的一个语句块执行。,13,7.2 多分支控制结构,格式： Select Case 测试表达式Case 表达式表列1 语句块1Case 表达式表列2语句块2Case Else语句块n End Select, :变量、属性、计算式 :测试表达式可能的取值： 单一值 例: Case “A“ 枚举 例: Case 2,4,6,8 To区间 例: Case
8、 1 To 5 Is 关系表达式 例: Case Is 10,注意：如果是is结构，则只能用简单关系运算，不能使用and or等逻辑表达，例如： Case is100 or is0 是不合法的,14,7.2 多分支控制结构,例： Sub Form_Click()msg=“Enter data“var=InputBox(msg)Select Case varCase 1Text1.Text=“1“Case 2Text1.Text=“2“Case 3Text1.Text=“3“Case ElseText1.Text=“Good bye“End Select End Sub,程序运行后，在输入对话框
9、中输入一个数值，如果输入的值为1，则在文本框中显示“1”，如果输入2或3，则在文本框中显示“2”或“3”，如果输入1、2、3之外的数值，则执行Case Else子句，在文本框中显示“Good bye”。,15,7.3 For循环控制结构,在实际应用中，经常遇到一些操作并不复杂，但需要反复多次处理的问题。对于这类问题，如果用顺序结构的程序来处理，将是十分繁琐的，有时候可能是难以实现的。为此，Visual Basic提供了循环语句。使用循环语句，可以实现循环结构程序设计。循环语句产生一个重复执行的语句序列，直到指定的条件满足为止。,16,7.3 For循环控制结构,Visual Basic提供了3
10、种不同风格的循环结构， 1 计数循环（ForNext循环） 2 当循环（WhileWend循环） 3 Do循环（DoLoop循环）。其中ForNext循环按规定的次数执行循环体，而WhileWend循环和Do循环则是在给定的条件满足时执行循环体。,17,7.3 For循环控制结构,For循环一般格式如下： For 循环变量=初值 To 终值 Step 步长 循环体 Exit For Next 循环变量,循环变量 例：For x=1 to 100 Step 1Sum=Sum + xNext x,18,7.3 For循环控制结构,参量的含义： 循环变量：数值型变量，控制循环执行。 初值：循环变量的
11、初值。 终值：循环变量的终值。 步长：循环变量的增量，是一个数值表达式。其值可以是正数或负数，不能为0。如果步长为1，可略去不写。 循环体：在For语句和Next语句之间的语句序列，可以是一个或多个语句。 Exit For：退出循环。 Next：循环终端语句，在Next后面的“循环变量”与For语句中的“循环变量”必须相同。,19,7.3 For循环控制结构,For循环语句的执行过程 首先把“初值”赋给“循环变量”，接着检查“循环变量”的值是否超过终值，如果超过就停止执行“循环体”，跳出循环，执行Next后面的语句；否则执行一次“循环体”，然后把“循环变量步长”的值赋给“循环变量”，重复上述过
12、程。,20,7.3 For循环控制结构,例： 求N!Sub Form_Click ()Dim N As IntegerN=InputBox(“Enter N:“)k=1For i=1 To Nk=k * iNext iPrint N; “!=“; k End Sub,21,7.4 当循环控制结构,当循环(While循环)格式： While 条件语句块 WendWhile循环语句的执行过程是： 如果“条件”为True(非0值)，则执行“语句块”，当遇到Wend语句时，控制返回到While语句并对“条件”进行测试，如仍然为True，则重复上述过程；如果“条件”为False，则不执行“语句块”，而执
13、行Wend后面的语句。,22,7.4 当循环控制结构,例：从键盘上输入字符，对输入的字符进行计数，当输入的字符为“？”时，停止计数，并输出结果。由于需要输入的字符的个数没有指定，无法用For循环来编写程序。停止计数的条件是输入的字符为“？”，可以用当循环语句来实现。,Sub Form_Click ()Dim char As StringConst ch$=“?“counter=0msg$=“Enter a character:“char=InputBox$(msg$)While char chcounter=counter + 1char=InputBox$(msg$)WendPrint co
14、unter End Sub,23,7.5 Do循环控制结构,Do循环和While循环很相似，但比While用法更加灵活。 格式如下：Do循环语句的功能是：当指定的“循环条件”为True或直到指定的“循环条件”变为True之前重复执行一组语句(即循环体)。,Do While | Until循环条件语句块Exit Do Loop,Do语句块Exit Do Loop While | Until循环条件,24,7.5 Do循环控制结构,在Do循环中，循环条件可以放在循环开始的Do语句后面，也可以放在循环结束的Loop语句后面。 Do WhileLoop循环流程 Do UntilLoop循环流程,25,
15、7.5 Do循环控制结构,DoLoop While循环流程 DoLoop Until循环流程,26,7.5 Do循环控制结构,例： 目前世界人口约为60亿，如果以每年1.4%的速度增长，多少年后世界人口达到或超过70亿。,Sub Form_Click()Dim p #, r!, n%p=6000000000#r=0.014 : n=0Dop=p * (1 + r)n=n + 1LoopPrint n; “年后“; “世界人口达“; p End Sub,运行程序，单击窗体，程序输出为： 12 年后世界人口达7089354809.76375,Until p = 7000000000#,27,7.6
16、 多重循环,通常把循环体内不含有循环语句的循环叫做单层循环，而把循环体内含有循环语句的循环称为多重循环。例如在循环体内含有一个循环语句的循环称为二重循环。多重循环又称多层循环或嵌套循环。,28,7.6 多重循环,【例】 For i = 1 To 3For j = 1 To 3Print i, jNext j Next i,执行过程： 外循环一次，内循环完，再取外下次 i=1 j=1 输出 1 1j=2 1 2j=3 1 3 i=2 j=1 2 1j=2 2 2j=3 2 3 i=3 j=1 3 1j=2 3 2j=3 3 3 i=4 退出循环,29,7.6 多重循环,例：打印“九九表”，结果如
17、下：,30,7.6 多重循环,FontSize=12Print Tab(30); “9 * 9 Table“Print: PrintPrint “ * “;For i=1 To 9Print Tab(i * 6); i;Next iPrintFor j=1 To 9Print j; “ “;For k=1 To jtemp=j * kPrint Tab(k * 6); temp; “ “;Next kPrintNext j,设置窗体字号为12,在第一行第三十列输出 9*9Table,输出两个空行,在第四行输入一个 *,在第四行每隔6列输出一个数字,输入一个空行,利用双重循环输出乘法表,Thank You,
