计算机二级VB(3)

1、等级考试辅导二级Visual Basic第三讲 VB控制结构-循环 第第5章章 列表框、组合框列表框、组合框2 第第6章章 当循环控制结构当循环控制结构3 第第6章章 Do循环控制结构循环控制结构4 第第6章章 常用算法常用算法 5 第第6章章 For循环控制结构循环控制结构1 循环变量=终值 循环变量=初值 循环体 有 Exit For 语句 循环体 True False False True 循环结束 循环变量=循环变量步长 步长为正数的步长为正数的 For 循环流程图循环流程图 P60- 考点3 For循环控制结构 i=1i=2TrueP60- 考点3 For循环控制结构i=1i=2Fo

2、rm1.Print iTrueP60- 考点3 For循环控制结构i=1i=2Form1.Print iTruei = i + 1P60- 考点3 For循环控制结构i=1i=2Form1.Print iTruei = i + 1P60- 考点3 For循环控制结构i=1in-1 Then Print n; 是质数是质数End If判断素数：依次取判断素数：依次取2,n - 1范围内数据与待判定数据范围内数据与待判定数据n 取余，若余数为取余，若余数为0，即终止，并判定，即终止，并判定n不为不为 素数，否则若该范围内所有数据均不能整素数，否则若该范围内所有数据均不能整 除除n，则，则n为素数为

3、素数求素数算法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 If求素数算法如何判断某一范围或指定一组

4、数据内的素数？上机例题3For 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 = 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 iy = y + 1y = y + 1考点6 多重循环课堂练习 P73-10335 P85-30322第三讲 VB控制结构-循环 第第5章章 列表框、组合框列表框、组合框2 第第6章章 当循环控制结