《[高等教育]循环》由会员分享，可在线阅读，更多相关《[高等教育]循环（49页珍藏版）》请在金锄头文库上搜索。
1、主页计算机具有速度快、精度高的 特点，特别适于进行重复性的 工作，重复次数越多越能显示 它的威力。所以，使用计算机 时，应尽量把问题归纳为简单 而有规则的重复运算和操作， 以充分发挥计算机的特长。主页采用循环程序可以解决一些按一定规则重复执行的问 题。例如，统计一个班几十名学生，甚至全校几千名学生的学 期成绩，如求平均分、不及格人数等本章主要内容第5章 循环结构程序设计Do.Loop For.Next退出循环出口语句(Exit)循环语句多重循环列表框与组合框常用算法程序举例主页循环是指在指定的条件下多次重复执行一组语句被重复执行的一组语句称为循环体VB提供的循环语句有For.NextDo.Lo
2、opWhile.WendFor Each.Next最常用的是For.Next和Do.Loop语句 假真 循环体循环条 件主页For.Next循环主要是用在知道循环次数的情况下；若事先不 知道循环次数，可以使用当型循环Do.Loop1. For.Next循环语句 (计数控制)For 循环变量初值 To 终值 Step 步长值循环体Next 循环变量2. Do While.Loop语句 (条件控制)Do While|Until 条件循环体Loop5.1 循环语句 示例 求S = 1 + 2 + 3 + + 8s = 0For k = 1 To 8s = s + kNext kPrint “s=“;
3、 s程序运行结果如下：s36n = 1: s = 0Do While n = 1 Then a = 3If t = 2 Then a = 2If t = 3 Then a = 1Print a;Next tPrint tA. 3 3 3 4 B. 1 2 3 4C. 3 2 1 4 D. 1 1 1 4下列程序的运行结果是？想一想思考题C主页运行下面程序后，循环体执行了_次。i = 0: n = 1Do While i 0Text3.Text = mEnd Sub若输入的m和n的值为85和68，则运行结果如上图主页语句格式：While 条件循环体Wend功能：当条件成立(为真)时，执行循环体；
4、当条件不成立(为假)时，终止循环。本语句与上述Do While.Loop循环语句相似，其差别是：While.Wend语句中不能使用Exit语句跳出循环。5.1.3 While.Wend循环语句 主页用于提前退出循环格式： Exit For|Do功能：直接从For循环或Do循环中退出当程序运行时遇到Exit语句时，就不再执行循环体中的任何语句而直接退出，转到循环语句(Next、Loop)的下面继续执行5.1.4 循环出口语句主页把每次输入的数累加。当输入-1时结束程序的运行 创建应用程序的用户界面和设置对象属性编写程序代码Private Sub Form_Load()ShowSum = 0Do
5、While True 条件为真，循环无终止进行下去x = Val(InputBox(“请输入要加入的数(-1表示结束)“, “输入数据“)If x = -1 ThenExit DoEnd IfSum = Sum + xText1.Text = SumLoopMsgBox (“累加运算结束“)End Sub以-1作为“终止循环标志”例5.8 设计一个“加法器”程序例5.8主页多重循环是指循环体内含有循环语句的循环例5.9 多重循环程序示例 程序运行结果Private Sub Form_Load() 1 5Show 1 6For i = 1 To 3 外循环 1 7For j = 5 To 7 内
6、循环 2 5Print i, j 2 6 Next j 2 7 Next i 3 5End Sub 3 6 3 7注意内、外循环层次要分清，不能交叉5.2 多 重 循 环例5.9主页本例可采用两重循环来实现。外循环控制输出7行，内循 环控制每行输出要求的字符数。在进入内循环之前，使用Print Tab()来对起始输出位置 定位，退出内循环后，使用Print来控制换行。例5.10 编一程序，输出下列所示的图形例5.10主页采用Print直接在窗体上输出结果，程序代码如下：Private Sub Form_Load()ShowFor i = 1 To 7Print Tab(10 - i);For
7、j = 1 To 2 * i - 1Print Chr(i + 48);Next jPrintNext iEnd SubPrint Chr(i+48)与Print i有所不同主页(1)分析：设一元硬币为a枚，二元硬币为b枚，五元硬币 为c枚，可列出方程a+b+c=10a+2b+5c=25 采用两重循环，外循环变量a从010，内循环变量b从010(2)创建应用程序的用户界面例5.11 取一元、二元、五元的硬币共十枚，付给25元钱，有多少种不同的取法?例5.11主页(3)编写程序代码程序通过Print方法把处理结果输出在标签的下方。Private Sub Form_Load()ShowCurren
8、tX = 0 : CurrentY = 1500 确定开始显示的坐标Print , “五元“, “二元“, “一元“n = 0 记录解的组数For a = 0 To 10For b = 0 To 10c = 10 - b - aIf a + 2 * b + 5 * c = 25 And c = 0 Thenn = n + 1Print “(“; n; “)“, c, b, aEnd IfNext b, aEnd Sub主页执行下列程序段后，变量t 的值是_。t = 0 For x = 2 To 3n = 1Do While n= 10Print x Mod 10;x = x 10Loop例5.
9、18A主页（2）字符串处理方法 把该整数作为一个数字字符串，从字符串后部往前逐个取出字符，即可实现按逆序输出。Dim x As Stringx = InputBox(“请输入一个正整数“) 把该数以字符串方式赋给变量xFor k = Len(x) To 1 Step -1Print Mid(x, k, 1);从后部往前逐个取出字符并显示Next k例5.18B主页例5.19 求解s = 1! + 2! + 3! + + 10!的值采用两种不同解法（1）解法一：采用两重循环，外循环10次，每次循环计算一次 阶乘，把每次阶乘值累加起来，即得求解结果。Dim s As Long, t As Long
10、s = 0For j = 1 To 10 计算10个阶乘t = 1 计算1个阶乘前，先赋初值For k = 1 To j 计算j!，需要循环j次t = t * k 连乘j次Next ks = s + t 把每次计算得到的阶乘值t累加Next jPrint s例5.19A主页（2）解法二这10个阶乘有一个特点，后一个阶乘为上一个阶乘再乘以一个数，如2!=1!*2，3!=2!*3，4!=3!*4，k!=(k-1)!*k 。根据这一特点，程序只须采用单重循环就可以求解。把该整数作为一个数字字符串，从字符串后部往前逐个取出字符，即可实现按逆序输出。Dim s As Long, t As Longs =
11、 0t = 1For k = 1 To 10 循环10次，每次求1个阶乘t = t * k 求k!，其值等于(k-1)!*k，即t*ks = s + t 每次加入一个阶乘值tNext kPrint s例5.19B主页(1)创建应用程序的用户界面(2)设置对象属性组合框的Style属性为0，TabIndex(键序)为0两个标签；四个命令按钮； 一个文本框Text1，用来显示当前 的选修课总课程数例5.20 编制程序，把一批课程名放入组合框中，再对组 合框进行项目显示、添加、删除、全部删除等操作例5.20主页(3)编写程序代码Private Sub Form_Load()Combo1.AddIte
12、m “电子商务“Combo1.AddItem “网页制作“Combo1.AddItem “Internet简明教程“Combo1.AddItem “计算机网络基础“Combo1.AddItem “多媒体技术“Combo1.Text = “ 置空值Text1.Text = Combo1.ListCount 表项个数End SubPrivate Sub Command1_Click() ”添加”If Len(Combo1.Text) 0 ThenCombo1.AddItem Combo1.TextText1.Text = Combo1.ListCountEnd IfCombo1.Text = “ Combo1.SetFocusEnd Sub主页Private Sub Command2_Click() “删除”Dim ind As Integerind = Combo1.ListIndexIf ind -1 Then -1表示无表项Combo1.RemoveItem ind 删除已选定的表项Text1.Text = Combo1.ListCountEnd IfEnd
