第3次课-循环(4学时)

1、CopyRight2012 SWPUNCRE All Rights Reserved2012年9月等级考试辅导二级Visual Basic第三讲 VB控制结构-循环列表框、组合框列表框、组合框2当循环控制结构当循环控制结构3Do循环控制结构循环控制结构4常用算法常用算法 6For循环控制结构循环控制结构1多重循环多重循环5 循环变量循环变量=终值终值 循环变量循环变量=初值初值 循环体循环体 有有 Exit For 语句语句 循环体循环体 True False False True 循环结束循环结束 循环变量循环变量=循环变量步长循环变量步长 步长为步长为正数正数的的 For 循环流程图循环流

2、程图 考点3 For循环控制结构 i=1i=2True考点3 For循环控制结构i=1i=2Form1.Print iTrue考点3 For循环控制结构i=1i=2Form1.Print iTruei = i + 1考点3 For循环控制结构i=1i=2Form1.Print iTruei = i + 1考点3 For循环控制结构i=1i=2Form1.Print iTruei = i + 1False退出循环退出循环考点3 For循环控制结构For循环的应用累加和累加和变量置变量置初值初值0 0可省略可省略累乘积累乘积变量置变量置初值初值1 1不可省不可省2005年4月选择题第23题 200

3、6年9月选择题第19题 2005年4月选择题第21题 第5章 常用标准控件12重点掌握重点掌握 考点7 列表框 ListBox 常用属性常用属性w列出列表项中的所有项目列出列表项中的所有项目wList是个字符组，可以通过下标访问列表项目是个字符组，可以通过下标访问列表项目 例：例：Text1.Text = List1.List(2)Text1.Text = List1.List(2) w可以改变列表中的某一项可以改变列表中的某一项 例：例：List1.List(0)=List1.List(0)=“成都成都” 列表框名列表框名.AddItem 字符串字符串,下标下标列表框名列表框名.Clear列

4、表框名列表框名.RemoveItem 下标下标考点8 列表框 ListBox 2007年9月选择题第19题 思考：思考：1.1.若要选中多个城市，如何实现？若要选中多个城市，如何实现？2.2.如要删除选中的多个城市，如何实现？如要删除选中的多个城市，如何实现？上机教程P86-真题7.1 界面如下图所示，编写适当的事件过程，使程序运行后，如界面如下图所示，编写适当的事件过程，使程序运行后，如果单击果单击“添加项目添加项目”命令按钮，则从键盘上输入要添加到列表命令按钮，则从键盘上输入要添加到列表框中的项目（内容任意，不少于三个）；如果单击框中的项目（内容任意，不少于三个）；如果单击“删除项目删除项

5、目”命令按钮，则从键盘上输入要删除的项目，将其从列表框中命令按钮，则从键盘上输入要删除的项目，将其从列表框中删除。但这个程序不完整，请把它补充完整。删除。但这个程序不完整，请把它补充完整。上机教程P95-练习7.3 程序运行后，如果多次单击列表框中的项，则可程序运行后，如果多次单击列表框中的项，则可同时选择这些项。而如果单击同时选择这些项。而如果单击“显示显示”按钮，则在窗按钮，则在窗体上输出所有选中的列表框（如图所示）。体上输出所有选中的列表框（如图所示）。上机真题考点9 组合框5.5 选择控件组合框RemoveItemClearAddItem上机教程P94-练习7.1程序的功能是：在运行时

6、，如果选中组合框中的一个列表程序的功能是：在运行时，如果选中组合框中的一个列表项，单击项，单击“修改修改”按钮，则把该项复制到按钮，则把该项复制到Text1Text1中（可在中（可在TeText1xt1中修改），并使中修改），并使“确定确定”按钮可用；若单击按钮可用；若单击“确定确定”按按钮，则把修改后的钮，则把修改后的Text1Text1中的内容替换组合框中该列表项的中的内容替换组合框中该列表项的原有内容，同时使原有内容，同时使“确定确定”按钮不可用；若单击按钮不可用；若单击“添加添加”按钮，则把在按钮，则把在Text1Text1中的内容添加到组合框中。中的内容添加到组合框中。本题可以不使用

7、文本框，向本题可以不使用文本框，向Combo1Combo1中添加项目应该如何实现？中添加项目应该如何实现？条件性循环While循环循环条件性循环条件性循环Do循环循环P67-当循环控制结构P68-Do循环控制结构i=1i=2Form1.Print iTruei = i + 1False退出循环退出循环i = 1While i=2 Form1.Print i i=i+1Wend 当循环i = 1Do While i0 i=i-1Wend考点4 当循环控制结构 2007年4月选择题27题解题思路：解题思路：1.1.查找出错位置查找出错位置检查前检查前1 1个数和后个数和后1 1个数是否参加运算；个

8、数是否参加运算； 有无多余的数参加运算。有无多余的数参加运算。2.2.确定修改方案确定修改方案直接确定法直接确定法 按选项提示修改法按选项提示修改法考点5 Do循环控制结构DoLoop循环控制结构考点6 多重循环For i = 1 To 5 For j = 1 To 5 x = x + 1 Next j Next iFor i = 1 To 5 For j = 1 To i x = x + 1 Next j Next ii1X XX+1X+1执行的次数为执行的次数为5 55 5次次XX+1执行的次数为执行的次数为1 12 23 34 45 5次次For i = 1 To 5 For j = 1

9、 To 5 x = x + 1 Next j Next iFor i = 1 To 5 For j = 1 To i x = x + 1 Next j Next ix = 1x = 1考点6 多重循环For i = 1 To 5 For j = 1 To 5 x = x + 1 Next j Next iFor i = 1 To 5 For j = 1 To i x = x + 1 Next j Next ix = 1x = 1考点6 多重循环For i = 1 To 5 For j = 1 To 5 x = x + 1 Next j Next iFor i = 1 To 5 For j =

10、1 To i x = x + 1 Next j Next iy = y + 1y = y + 1考点6 多重循环考点7 常用算法上机考试上机考试出现概率较高出现概率较高求素数算法For i = 2 To n - 1 If n Mod i = 0 Then Exit For End IfNext iIf in-1 Then Print n; 是质数是质数End If判断素数：依次取判断素数：依次取2,n - 1范围内数据与待判定数据范围内数据与待判定数据n 取余，若余数为取余，若余数为0，即终止，并判定，即终止，并判定n不为不为 素数，否则若该范围内所有数据均不能整素数，否则若该范围内所有数据均

11、不能整 除除n，则，则n为素数为素数求素数算法For i = 2 To n - 1 If n Mod i = 0 Then Exit For End IfNext iIf in-1 Then Print n; 是质数是质数End If2,n - 1范围可改为范围可改为2, sqr(n) 或或 2,n 2Sqr(n)If i Sqr(n) thenSqr(n)If i Sqr(n) thenFlag=TrueFor i = 2 To n - 1 If n Mod i = 0 Then Flag=False End IfNext iIf Flag Then Print n; 是质数是质数End I

12、f求素数算法如何判断某一范如何判断某一范围或指定一组数围或指定一组数据内的素数？据内的素数？上机真题上机真题求最大公约数（辗转相除）求最大公约数（辗转相除）被除数被除数除数除数商商余数余数34 0343113130u v r3与与4的最大公约数的最大公约数余数余数为为0最大公约数：两数相除，取余：最大公约数：两数相除，取余： 余数为余数为0，则，则余数非余数非0，用前次除数，用前次除数v作被除数，余数作被除数，余数r作除数，作除数， 再取余，并转至再取余，并转至判断判断 即：即： 最小公倍数：最小公倍数：求最大公约数While r0第三讲 VB控制结构-循环 第第5章章 列表框、组合框列表框、组合框2 第第6章章 当循环控制结构当循环控制结构3 第第6章章 Do循环控制结构循环控制结构4 第第6章章 常用算法常用算法 6 第第6章章 For循环控制结构循环控制结构1第第6章章 多重循环