1、练习练习1.四个算术运算符四个算术运算符、/、mod、*中，优先级别最低的中，优先级别最低的是是 。2.int(100*rnd()产生的随机数在产生的随机数在 区间。区间。3.表达式表达式(-1)*sgn(-100+int(rnd*100)的值是的值是 。4.表达式表达式4+56*7/8 mod 9的值是的值是 。5.函数函数Ucase(mid(“visual basic”,8,8)的值的值为为 。6.声明符号常量的关键字是声明符号常量的关键字是 。7.输入对话框输入对话框inputbox的返回值类型是的返回值类型是 。8.一个语句如果在下一行续写，应在本行尾部加符号一个语句如果在下一行续写，
2、应在本行尾部加符号 .mod 0,9915BASICConst字符串字符串_1第第3章章 程序的流程控制程序的流程控制3.1 选择结构选择结构3.2 时钟控件时钟控件3.3 循环结构循环结构3.4 其他辅助控制语句其他辅助控制语句3.5 单选钮和复选框单选钮和复选框3.6 框架框架3.7 综合应用综合应用21.掌握掌握If语句和语句和Select Case语句的一般形式和执行过程。语句的一般形式和执行过程。2.掌握掌握For语句的一般形式和执行过程。语句的一般形式和执行过程。3.掌握掌握DoLoop语句的各种形式和执行过程。语句的各种形式和执行过程。4.掌握常用算法，会应用各种语句解决实际问题
3、。掌握常用算法，会应用各种语句解决实际问题。5.掌握时钟控件、单选钮和复选框控件的使用。掌握时钟控件、单选钮和复选框控件的使用。本章要求本章要求3案例案例 随机抽奖程序随机抽奖程序案例要点：案例要点：1、产生随机数、产生随机数2、计时器控件、计时器控件3、选择结构、选择结构43.1 选择结构选择结构1、单分支结构、单分支结构2、双分支结构、双分支结构3、多分支结构、多分支结构4、select case语句语句5单分支选择结构单分支选择结构IfThen语句语句(单分支结构单分支结构)形式：形式：(1)If Then 语句块语句块 End If(2)If Then 说明说明（1）:一般为关系表达式
4、、逻辑表达式、算术表达式一般为关系表达式、逻辑表达式、算术表达式(0为为False，非，非0为为True)。（2）:可以有多条语句。可以有多条语句。（3）单行结构中的）单行结构中的可有多条，必须写到一行上，以冒号分隔。可有多条，必须写到一行上，以冒号分隔。6选择结构选择结构例例1 如果如果x是正数，就打印是正数，就打印x。方法方法1：If Then End If方法方法2：If Then FT表达式表达式语句块语句块 X0Print x 表达式表达式Print x X0语句块语句块 X0语句语句表达式表达式Print x7选择结构选择结构例例2：已知两个数：已知两个数x和和y，比较它们的大小，
5、使得比较它们的大小，使得x大于大于y。若上述语句次序变一下，结果如何？若上述语句次序变一下，结果如何？方法方法1：If xy Then t=x x=y y=t End If方法方法2：If xy Then t=x:x=y:y=tFT xy 交换交换x,y8IfThenElse语句语句(双分支结构双分支结构)(1)If Then Else End If(2)If Then Else 双分支结构双分支结构说明说明（1）:一般为关系表达式、逻辑表达式、算术表达式一般为关系表达式、逻辑表达式、算术表达式(0为为False，非，非0为为True)。（2）、:可以有多条语句。但只能有一个可以有多条语句。但
6、只能有一个语句块被执行到。语句块被执行到。9选择结构选择结构例例3：输入：输入x的值，计算的值，计算y的值。的值。x，y的关系如下：的关系如下：If If 表达式表达式 ThenThen 语句块语句块1 1ElseElse 语句块语句块2 2End IfEnd Ifx0 x0y=sin(x)+sqr(x2+1)y=sin(x)+sqr(x2+1)y=cos(x)-y=cos(x)-x3+3x3+3*x x10 (1)编写程序，任意输入一个整数，判定该整数的奇编写程序，任意输入一个整数，判定该整数的奇偶性。偶性。(2)输入输入x的值，计算的值，计算y的值。的值。x，y的关系如下：的关系如下：1+
7、x (x0)y=1-2x (x0)练习练习11多分支选择结构多分支选择结构IfThenElseIf语句语句(多分支结构多分支结构)形式：形式：If Then ElseIf Then Else 语句块语句块 n+1 End If12选择结构选择结构注意：注意：(1)不管有几个分支，只执行一个不管有几个分支，只执行一个(2)ElseIf不能写成不能写成Else If(3)当多个表达式同时满足时，只执行第一个与之匹配的当多个表达式同时满足时，只执行第一个与之匹配的语句块。因此，要注意表达式的书写次序。语句块。因此，要注意表达式的书写次序。13(1)输入输入x的值，计算的值，计算y的值。的值。x,y的
8、关系如下：的关系如下：1 (x0)y=0 (x=0)-1 (x0)(2)已知变量已知变量StrC中存放了一个字符，判断该字符是字中存放了一个字符，判断该字符是字母字符、数字字符还是其他字符，并作相应的显示。母字符、数字字符还是其他字符，并作相应的显示。演示演示 举例举例14练习练习(1)输入一学生成绩，评定其等级。方法是：输入一学生成绩，评定其等级。方法是：90-100分为分为“优秀优秀”;80-89分为分为“良好良好”;70-79分为分为“中等中等”;60-69分为分为“及格及格”;60分以下为分以下为“不及格不及格”。15练习练习16嵌套的选择结构嵌套的选择结构If语句的嵌套语句的嵌套 I
9、f语句的嵌套是指语句的嵌套是指If或或Else后面的语句块中又包含后面的语句块中又包含If语句语句 If Then If Then ELSE End If ELSE End If注意：注意：(1)书写采用锯齿形书写采用锯齿形(2)If语句形式若不在一行上书语句形式若不在一行上书写，必须与写，必须与End If配对；多个配对；多个End If嵌套，嵌套，End If与它最接与它最接近的近的If配对。配对。17选择结构选择结构例例4 设有如下函数，输入设有如下函数，输入x，要求输出要求输出y的值。的值。1 (x0)y=0 (x=0)-1 (x=0 Then If x=0 Then y=0 Else
10、 y=1Else y=-1 End If18、一般格式、一般格式Select CaseSelect Case Case Case 1 1 CaseCase 2 2 Case ElseCase Else n End SelectEnd Select select case 选择结构选择结构Select Case语句语句19选择结构选择结构2 2、说明、说明(1)(1)变量或表达式：可以是数值型或字符串表达式。变量或表达式：可以是数值型或字符串表达式。(2)(2)：与：与 是同类型的。形式是同类型的。形式可以是下面四种形式之一：可以是下面四种形式之一：(a)(a)表达式表达式 例例:A:A (b)
11、(b)一组枚举表达式一组枚举表达式(用用逗号逗号分隔分隔)例例:2,4,6,8 :2,4,6,8 (c)(c)表达式表达式1 To 1 To 表达式表达式2 2 例例:60 To 100:60 To 100 (d)Isd)Is 关系运算符表达式关系运算符表达式 例例:Is60:Is 0 And y 0 ThenIf x 0 And y 0 Then Print Print 在第一象限在第一象限 ElseIfElseIf x 0 Then x 0 Then Print Print 在第二象限在第二象限 ElseIfElseIf x 0 And y 0 Then x 0 And y 0 And y
12、 0 And y 0 And y 0 Case x 0 And y 0Print Print 在第一象限在第一象限 Case x 0 Case x 0Print Print 在第二象限在第二象限 Case x 0 And y 0 Case x 0 And y 0 And y 0 And y y,x,y)条件函数条件函数241.1.在选择结构中缺少配对的结束语句。在选择结构中缺少配对的结束语句。对块结构的对块结构的IfIf语句，应有配对的语句，应有配对的End IfEnd If语句结束。语句结束。2.2.多分支多分支IfIf语句中语句中ElseIfElseIf关键字的书写和条件表达式的表示。关键
13、字的书写和条件表达式的表示。ElseIfElseIf不要写成不要写成Else IfElse If；同时要注意多个条件表达式的；同时要注意多个条件表达式的次序问题。次序问题。3.Select Case3.Select Case语句的使用。语句的使用。Select Case Select Case 后不能出现多个变量；后不能出现多个变量；CaseCase子句后不能出现子句后不能出现变量。变量。常常 见见 错错 误误251、输入数字、输入数字1-7,显示其对应的星期几显示其对应的星期几Private Sub Command1_Click()dim x as integer,y as stringx=
14、val(text1.text)*SPACE*【?】case 1:y=星期日星期日 case 2:y=星期一星期一 case 3:y=星期二星期二 case 4:y=星期三星期三 case 5:y=星期四星期四 case 6*SPACE*【?】case 7:y=星期六星期六*SPACE*【?】y=输入错误输入错误 end selectText2.Text=yEnd SubSelect case xy=星期五星期五Case else262、输入任何一个英文字母、输入任何一个英文字母x,若若x的值的值 为为a,c,d-f,则显示则显示x的大写字母；的大写字母；若若x的值为的值为m,o,p-z,则显示
15、则显示x的小写字母；的小写字母；若为其它的值若为其它的值,则显示则显示xa（如输入的（如输入的X的值是的值是g，则显示，则显示ga）。）。Private Sub Command1_Click()x=Text1.Text*SPACE*【?】*SPACE*Case【?】Label1.Caption=UCase(x)Case m,o,p To z Label1.Caption=LCase(x)Case Else*SPACE*【?】End SelectEnd SubSelect case x“a”,”c”,”d”to”f”Label1.caption=x&”a”273、用输入对话框输入x,根据公式（图
16、1）计算对应的y,并在窗体上输出y的值。Private Sub Command1_Click()Dim x As Single,y As Single x=Val(InputBox(Please input x:,输入输入X的值的值)If x=10 Then y=0*FOUND*Else x 10 Then*FOUND*y=Str(x)+Sin(x)Else *FOUND*y=2*x 3+6 End If Print yEnd SubElseif x10 thenY=2*x3+6Sqr(x)+sin(x)284、密码判断程序，如果密码为密码判断程序，如果密码为12345则显示则显示“恭喜，密码
17、正确恭喜，密码正确”，否则显示否则显示“很遗憾，密码错误很遗憾，密码错误”，要求文本框中只允许输入数字。，要求文本框中只允许输入数字。Private Sub Command1_Click()Dim strPws As String strPws=Trim(Text1.Text)*FOUND*If Len(strPws)0 Then Exit Sub If strPws=12345 Then*FOUND*MsgBox 恭喜，密码正确恭喜，密码正确,验证验证 Else MsgBox 很遗憾，密码错误很遗憾，密码错误,验证验证 End IfEnd SubSub Text1_KeyPress(KeyA
18、scii AS Integer)*FOUND*If Not(KeyAscii=49 And KeyAscii=57)Then KeyAscii=0 End IfEnd Sub=0验证验证48293.2 循环结构循环结构引例：从键盘上输入引例：从键盘上输入4个数，输出这个数，输出这4个数的和。个数的和。Private Sub Form_Click（）（）Dim s%,x%s=0 x=inputbox(请输入数请输入数)s=s+x x=inputbox(请输入数请输入数)s=s+x x=inputbox(请输入数请输入数)s=s+x x=inputbox(请输入数请输入数)s=s+x Print
19、这四个数的和这四个数的和=;sEnd Sub30For循环语句循环语句WhileWend循环语句循环语句DoLoop循环语句循环语句循环的嵌套循环的嵌套3.3 循环结构循环结构311.一般形式一般形式For 循环变量循环变量=初值初值 To 终值终值 Step 步长步长 Exit For Next 循环变量循环变量 一、一、For循环语句循环语句(一般用于循环次数已知一般用于循环次数已知)循环体循环体2.说明说明(1)循环变量：必须为数值型。循环变量：必须为数值型。(2)步长：一般为正，此时初值应小于等于终值；若为步长：一般为正，此时初值应小于等于终值；若为负，初值应大于等于终值；默认为负，初
20、值应大于等于终值；默认为1。若步长为。若步长为0，则为，则为死循环。死循环。32(3)语句块：可以是一句或多句语句，构成循环体。语句块：可以是一句或多句语句，构成循环体。(4)Exit For：表示当遇到该语句时，退出循环，执行表示当遇到该语句时，退出循环，执行Next后的下一条语句。后的下一条语句。(5)循环次数：循环次数：n=Int(终值终值-初值初值)/步长步长+1)3.执行过程执行过程一、一、For循环语句循环语句ForFor语句又叫做循环说明语句，用来指定循环变量的名称，语句又叫做循环说明语句，用来指定循环变量的名称，以及循环变量的初值、终值和步长；以及循环变量的初值、终值和步长；循
21、环体是被反复执行的部分循环体是被反复执行的部分(即循环工作部分即循环工作部分)，它可以由若，它可以由若干条语句所组成；干条语句所组成；NextNext语句又叫做循环终端语句，其作用是改变循环变量的值语句又叫做循环终端语句，其作用是改变循环变量的值(即增加一个步长即增加一个步长)并控制是否再次执行循环体。并控制是否再次执行循环体。33一、一、For循环语句循环语句循环变量循环变量=初值初值循环变量循环变量=00）34循环结构循环结构引例：从键盘上输入引例：从键盘上输入4个数，输出这个数，输出这4个数的和。个数的和。Private Sub Form_Click（）（）Dim s%,x%s=0 x=
22、inputbox(请输入数请输入数)s=s+x x=inputbox(请输入数请输入数)s=s+x x=inputbox(请输入数请输入数)s=s+x x=inputbox(请输入数请输入数)s=s+x Print 这四个数的和这四个数的和=;sEnd SubFor 循环变量循环变量=初值初值 To 终值终值 Step 步长步长 Exit For Next 循环变量循环变量x=inputbox(请输入数请输入数)s=s+xii1 To 435一、一、For循环语句循环语句引例：从键盘上输入引例：从键盘上输入4个数，输出这个数，输出这4个数的和。个数的和。Private Sub Form_Cli
23、ck（）（）Dim s%,x%,i%s=0 For i=1 To 4 x=inputbox(请输入数请输入数)s=s+x Next i Print 这四个数的和这四个数的和=;sEnd Sub思考：思考：1.从键盘上输入从键盘上输入10个数，输出这个数，输出这10个数的和。个数的和。2.从键盘上输入从键盘上输入n个数，输出个数，输出n个数的和。个数的和。10n：n%=Inputbox(请输入请输入n)36例例1、求、求1到到100之间各自然数之和。之间各自然数之和。例例2、求、求1到到100之间各奇数之和。之间各奇数之和。例例3、求、求1到到100之间各偶数之和。之间各偶数之和。例例4、求、求
24、1到到100之间所有能被之间所有能被3或能被或能被7整除的自然数整除的自然数之和。之和。举例举例思考：思考：1.求求1到到100之间各数的平方（或立方）和。之间各数的平方（或立方）和。37 1、求、求100！。！。2、求、求1到到100之间各奇数之积。之间各奇数之积。3、求、求1到到100之间各偶数之积。之间各偶数之积。4、求、求1到到100之间所有能被之间所有能被3整除或能被整除或能被5整除的自整除的自然数之积。然数之积。5、打印图形、打印图形练习练习38读程序写结果读程序写结果 Private Sub Form_Click()Private Sub Form_Click()Dim i%Di
25、m i%For i=2 To 13 Step 3 For i=2 To 13 Step 3 Print i Print i Next i Next i Print i=;i Print i=;i End Sub End Sub注意：注意：（1 1）退出循环时，循环变量的值保持退出时的值。）退出循环时，循环变量的值保持退出时的值。（2 2）在循环体内对循环控制变量可多次引用；但最好）在循环体内对循环控制变量可多次引用；但最好不要对其赋值，否则影响原来的循环控制规律。不要对其赋值，否则影响原来的循环控制规律。一、一、For循环语句循环语句：If i10 Then Exit For If i10 T
26、hen Exit For 391、以下程序的功能是：生成、以下程序的功能是：生成 20 个个 200 到到 300 之间的随机整数，之间的随机整数，输出其中能被输出其中能被 5 整除的数并求出它们的和整除的数并求出它们的和.Private Sub Command1_C1ick()Dim s As IntegerDim x As Integer,i As Integer*SPACE*s=【?】For i=1 To 20 Randomize *SPACE*X=Int(【?】*100+200)*SPACE*If X【?】5=0 Then Print X s=s+X End If Next iPrin
27、t Sum;sEnd Sub0rndmod402、输出、输出40以内能够被以内能够被3整除的数，要求输出结果为整除的数，要求输出结果为5个数一行。个数一行。Private Sub Form_Click()ClsDim x As Integer，i As Integer*FOUND*i=1For x=1 To 40If(x/3)=(x 3)Then*FOUND*Print x i=i+1 End If If i Mod 5=0 Then Print*FOUND*Next iEnd Sub0;x41一般格式：一般格式：While 循环条件循环条件 语句块语句块Wend二、二、WhileWend循环
28、语句循环语句循环条件成立循环条件成立语句块语句块FTWhileWend例例.求求1 1到到100100之间的各自然数之和之间的各自然数之和42举例举例Private Sub Form_Click()Dim i%,sum%sum=0i=1While i=100 sum=sum+i i=i+1WendPrint sumEnd SubFor i=1 To 100sum=sum+i Next i 43While循环的几点说明循环的几点说明（1）While 循环语句本身不能修改循环条件，所以循环语句本身不能修改循环条件，所以必必须在须在WhileWend语句的循环体内设置相应语句，使语句的循环体内设置相
29、应语句，使得整个循环趋于结束得整个循环趋于结束，以避免死循环。，以避免死循环。（2）While循环语句先对条件进行判断，然后才决定循环语句先对条件进行判断，然后才决定是否执行循环体。如果开始条件就不成立，则循环体一是否执行循环体。如果开始条件就不成立，则循环体一次也不执行。次也不执行。（3）凡是用）凡是用ForNext循环编写的程序，我们都可以循环编写的程序，我们都可以用用WhileWend语句实现。反之，则不然。语句实现。反之，则不然。二、二、WhileWend循环语句循环语句441、输入一批数，以输入一批数，以0作为终止标志，求出这批数中负数作为终止标志，求出这批数中负数的个数。的个数。举
30、例举例思考：思考：1.如以如以-1作为终止标志，程序该如何修改。作为终止标志，程序该如何修改。45形式形式1:1:DoDo WhileWhile|UntilUntil循环条件循环条件 语句块语句块 Exit Do Exit Do 语句块语句块 LoopLoop三、三、DoLoop循环语句循环语句形式形式2:2:DoDo 语句块语句块 Exit Do Exit Do 语句块语句块 LoopLoop WhileWhile|UntilUntil循环条件循环条件 Do While Do While 循环条件循环条件 循环体循环体LoopLoopDo Until Do Until 循环条件循环条件 循环
31、体循环体LoopLoopDoDo 循环体循环体Loop While Loop While 循环条件循环条件Do Do 循环体循环体Loop Until Loop Until 循环条件循环条件先执行后判断先执行后判断至少执行一次至少执行一次先判断后执行先判断后执行条件成立执行条件成立执行条件条件不成立不成立执行执行DoDo 循环体循环体LoopLoop只能通过只能通过Exit Do跳出循环跳出循环46三、三、DoLoop循环语句循环语句满足循环条件满足循环条件语句块语句块语句块语句块FT有有Exit DoExit DoTFDo WhileLoop有有Exit DoExit Do 满足循环条件满足
32、循环条件语句块语句块语句块语句块TFTFDo Loop While47三、三、DoLoop循环语句循环语句满足循环条件满足循环条件语句块语句块语句块语句块TF有有Exit DoExit DoTFDo UntilLoop有有Exit DoExit Do 满足循环条件满足循环条件语句块语句块语句块语句块FFTTDo Loop Until48三、三、DoLoop循环语句循环语句说明：说明：(1)关键字关键字While 用于指明条件为真时就执行用于指明条件为真时就执行循环体中的语句，循环体中的语句，Until刚好相反；刚好相反；(2)当省略了当省略了While|Until 条件子句，即循环条件子句，即
33、循环结构仅由结构仅由 DoLoop关键字构成时，表示无关键字构成时，表示无条件循环，这时循环体内应该有条件循环，这时循环体内应该有Exit Do语句，语句，否则为死循环；否则为死循环；(3)Exit Do 语句表示当遇到该语句时，退出语句表示当遇到该语句时，退出循环，执行循环，执行Loop的下一语句。的下一语句。49 Private Sub Form_Click()Dim i%,sum%i=1 sum=0 Do While i=100 sum=sum+i i=i+1 Loop Print sumEnd Sub 方法一50 Private Sub Form_Click()Dim i%,sum%i
34、=1 sum=0 Do sum=sum+i i=i+1 Loop While i 100 sum=sum+i i=i+1 Loop Print sumEnd Sub 方法三52 Private Sub Form_Click()Dim i%,sum%i=1 sum=0 Do sum=sum+i i=i+1 Loop Until i 100 Print sumEnd Sub 方法四53 Private Sub Form_Click()Dim i%,sum%i=1:sum=0 Do sum=sum+i If i=100 then exit do i=i+1 Loop Print sumEnd Sub
35、 方法五541、求、求1+2+3+.，直到其和超出，直到其和超出3000为止，并输出结果。为止，并输出结果。Private Sub Form_Click()ClsDim i As Integer，s As Singlei=1*FOUND*s=1Do s=s+i*FOUND*i=i+2*FOUND*Loop s 3000Print 从从1到到:;i;的和是的和是;sEnd SubS=01Loop until s300055例、用例、用辗转相除法辗转相除法求两个自然数求两个自然数m、n的最大公约数和的最大公约数和最小公倍数。最小公倍数。三、三、DoLoop循环语句循环语句算法：算法：(1)(1)对
36、于已知两数对于已知两数m m，n n，使得，使得mnmn；(2)m(2)m除以除以n n得余数得余数r r；(3)(3)若若r=0r=0，则，则n n为最大公约数结束；否则执行为最大公约数结束；否则执行(4)(4)；(4)m(4)mn n，n nr r，再重复执行，再重复执行(2)(2)。两个整数的最大公约数等于其中较小的数和两数的两个整数的最大公约数等于其中较小的数和两数的差的最大公约数。差的最大公约数。56三、三、DoLoop循环语句循环语句Private Sub Private Sub Form_ClickForm_Click()()Dim m%,n%,r%Dim m%,n%,r%m=m
37、=InputBoxInputBox(请输入请输入m m的值的值)n=n=InputBoxInputBox(请输入请输入n n的值的值)If m n Then t=m:m=n:n=t If m n Then t=m:m=n:n=t r=m Mod n r=m Mod n Do While r0 Do While r0 m=n m=n n=r n=r r=m Mod n r=m Mod n Loop Loop Print Print 最大公约数为最大公约数为&n&nEnd SubEnd Sub571.求最大公约数和最小公倍数。求最大公约数和最小公倍数。Private Sub Command1_Cl
38、ick()Dim a%,b%,num1%,num2%,temp%num1=InputBox(一个正整数一个正整数)num2=InputBox(一个正整数一个正整数)*SPACE*If【？】Then temp=num1:num1=num2:num2=tempEnd Ifa=num1b=num2*SPACE*While【？】temp=a Mod b a=b*SPACE*【？】WendPrint 最大公约数：最大公约数：;aPrint 最小公倍数是：最小公倍数是：;num1*num2/aEnd Subb 0num1 num2 thenb=temp582.求最大公约数。求最大公约数。Dim m%,n%
39、,r%m=InputBox(请输入请输入m的值的值)n=InputBox(请输入请输入n的值的值)Do While n 0*FOUND*r=m/n m=n*FOUND*n=mLoop*FOUND*Print 最大公约数：最大公约数：;nm mod nrm59 一个循环体内又包含了一个完整的循环结构称为一个循环体内又包含了一个完整的循环结构称为循环的嵌套循环的嵌套.四、四、循环的嵌套循环的嵌套对于循环的嵌套，要注意以下事项：对于循环的嵌套，要注意以下事项：(1)(1)内循环变量与外循环变量不能同名；内循环变量与外循环变量不能同名；(2)(2)外循环必须完全包含内循环，不能交叉外循环必须完全包含内
40、循环，不能交叉；例例.打印九九乘法表打印九九乘法表60Private Sub Form_Click()Dim i%,j%,x%,y%x=0:y=0 for i=1 to 2 x=x+1 for j=1 to 3 y=y+1 next j next i print x=;x print y=;y End Sub 读程序写结果读程序写结果X=2y=6 x=0for i=1 to 2 x=x+1:y=0 for j=1 to 3 y=y+1 next j next iX=2Y=3 61求求1！+2!+3!+.10!Private Sub Command1_Click()Dim i%,j%,t!,s!
41、s=0For i=1 To 10 t=1 For j=1 To 5 t=t*i Next j s=s+tNext iPrint sEnd Subi62例、求全部的水仙花数。例、求全部的水仙花数。Private Sub Command1_Click()Private Sub Command1_Click()For i=1 To 9 For i=1 To 9 For j=0 To 9 For j=0 To 9 For k=0 To 9 For k=0 To 9 If i3+j3+k3=i If i3+j3+k3=i*100+j100+j*10+k Then 10+k Then Print i Pr
42、int i*100+j 100+j*10+k 10+k End if End if Next k,j,i Next k,j,iEnd SubEnd Sub四、四、循环的嵌套循环的嵌套Private Sub Private Sub Form_ClickForm_Click()()For n=100 To 900 For n=100 To 900 i=n 100 i=n 100 j=n 10 Mod 10 j=n 10 Mod 10 k=n Mod 10 k=n Mod 10 If i 3+j 3+k 3=n Then Print n If i 3+j 3+k 3=n Then Print n N
43、ext n Next nEnd SubEnd Sub633.打印打印100999之间的所有水仙花数。之间的所有水仙花数。Private Sub Command1_Click()Dim i As Integer,a%,b%,c%*SPACE*For i=100 To【？】*SPACE*a=Int(i/【？】)b=Int(i-100*a)/10)*SPACE*c=i-100*a-【？】If a*a*a+b*b*b+c*c*c=i Then Print i End If Next i End Sub999100)10*b644.打印如图所示的九九乘法表。打印如图所示的九九乘法表。Private Su
44、b Command1_Click()*FOUND*Dim se As IntegerPrint Tab(35);九九乘法表九九乘法表Print Tab(35);-For i=1 To 9*FOUND*For j=1 To 9 se=i&*&j&=&i*j*FOUND*Print Tab(j-1)*9+1);se Next j PrintNext iEnd SubStringi;65例例2 2、打印如下图形、打印如下图形 *四、四、循环的嵌套循环的嵌套Private Sub Private Sub Form_ClickForm_Click()()For i=1 To 4 For i=1 To 4
45、 Print Tab(5-i);Print Tab(5-i);For j=1 To 2 For j=1 To 2*i-1 i-1 Print Print*;Next j Next j Print Print Next i Next iEnd SubEnd Sub例例 循环打印图形循环打印图形663.4 其他辅助控制语句其他辅助控制语句1.GoTo 1.GoTo 语句语句形式形式:GoToGoTo 标号标号|行号行号 作用：无条件地转移到标号或行号指定的那作用：无条件地转移到标号或行号指定的那行语句行语句.标号是一个字符序列标号是一个字符序列,行号是一个数字序列行号是一个数字序列.2.Exit2
46、.Exit语句语句形式：形式：Exit ForExit For、Exit DoExit Do、Exit SubExit Sub、Exit FunctionExit Function等。等。作用：退出某种控制结构的执行。作用：退出某种控制结构的执行。673.4 其他辅助控制语句其他辅助控制语句3.End3.End语句语句多种形式：多种形式：EndEnd、End IfEnd If、End SelectEnd Select、End End WithWith、End TypeEnd Type、End SubEnd Sub、End FunctionEnd Function、作用：作用：EndEnd结束一
47、个程序的运行；其余表示某个结构结束一个程序的运行；其余表示某个结构的结束，与对应的结构语句配对出现。的结束，与对应的结构语句配对出现。4.With 4.With 语句语句形式如下：形式如下：With With 对象对象语句块语句块 End WithEnd With作用：对某个对象执行一系列的操作，而不用重复作用：对某个对象执行一系列的操作，而不用重复指出对象的名称。指出对象的名称。685.打印如图所示的图形。打印如图所示的图形。Private Sub Command1_Click()Dim i%,j%*SPACE*【？】=*For i=0 To 6*SPACE*For j=【？】To 6*SP
48、ACE*Form1.Print star【？】Next j Form1.Print Next iEnd SubStar=6-i;696.打印如图所示的图形。打印如图所示的图形。Private Sub Command2_Click()ClsDim i%,j%*FOUND*For i=1 To 5*FOUND*For j=1 To 5 Print*;*FOUND*Next i PrintNext iEnd Sub7ij703.5 综合应用综合应用一、累加、连乘一、累加、连乘 在循环结构中，最常用的算法是累加在循环结构中，最常用的算法是累加和连乘。和连乘。累加累加是在原有和的基础上一次一是在原有和的
49、基础上一次一次地每次加一个数；次地每次加一个数；连乘连乘则是在原有积的则是在原有积的基础上一次一次地每次乘以一个数。基础上一次一次地每次乘以一个数。71求求1 1100100的的5 5或或7 7的倍数的和。的倍数的和。Sum=0Sum=0 For i=1 To 100 For i=1 To 100 If If i Mod 5=0 Or i Mod 7=0i Mod 5=0 Or i Mod 7=0 Then Then Sum=Sum+iSum=Sum+i End If End If Next i Next i Print Sum Print Sum求求3 31010的乘积的乘积 t=1t=1
50、For i=3 To 10 For i=3 To 10 t=t t=t*i i Next i Next i Print t Print t思考：思考：若把循环体前面置各变量初值的语句放在若把循环体前面置各变量初值的语句放在循环体内，程序运行时会产生什么情况？循环体内，程序运行时会产生什么情况？综合应用综合应用72例例 求自然对数求自然对数e e的近似值的近似值,要求其误差小于要求其误差小于0.000010.00001，近似公式为近似公式为:该例题涉及两个问题：该例题涉及两个问题：(1)(1)本例根据某项值的精度来控制循环的结束与否。本例根据某项值的精度来控制循环的结束与否。(2)e(2)e存放
