循环结构do循环嵌套.ppt

循环结构do循环嵌套
数中，除了1和此整数自身外，没法被其他自然数整除的数。换句话说，只有两个正因数（1和自己）的自然数即为素数。
分析：
穷举法：把所有的值一一列举出来，然后依次进行筛选。
（1）For m=100 to 200
判断m是否为素数，若是则打印
Next j
（2）因为所有的偶数都不是素数，故设步长为2，从101开始判断，以提高程序的执行效率。
For m=101 to 200 step 2
判断m是否为素数，若是则打印
Next j
素数的判断：
　　1：只能被1和本身整除。
　　或2：不能被小于它的平方根的所有素数整除就是素数。
但是从算法上考虑，为了减少重复量，开平方后面的数就不用相除了。
Private Sub Form_click()
Dim m%, i%, n%
For m = 101 To 200 Step 2 '外循环测试奇数
For i = 2 To Sqr(m) '内循环构造测试条件
If m Mod i = 0 Then '能够整除，不是素数
Exit For '结束内循环
End If
Next i
If i > Sqr(m) Then '正常结束内循环，是素数
n = n + 1 '统计素数个数
Print m;
If n Mod 5 = 0 Then Print '控制每行输出5个
End If
Next m
Print
Print "素数的个数为"; n '输出素数个数
End Sub
另一方法：
素数与1到素数本身中间的所有整数都相除，看是否有整除的数，如果有，那肯定不是素数了。
另一方法 求素数
Private Sub Form_click()
Dim m%, i%, n%
For m = 101 To 200 Step 2 '外循环测试奇数
For i = 2 To m - 1 'Sqr(m) '内循环构造测试条件
If m Mod i = 0 Then '能够整除，不是素数
Exit For '结束内循环
End If
Next i
If i > m - 1 Then 'Sqr(m) Then '正常结束内循环，是素数
n = n + 1 '统计素数个数
Print m;
If n Mod 5 = 0 Then Print '控制每行输出5个
End If
Next m
Print
Print "素数的个数为"; n '输出素数个数
End Sub
打印以下图形。
Private Sub form_click()
Dim i%, j%
For i = 1 To 5
For j = 1 To 5
Print "*";
Next j
Print
Next i
End Sub
打印图形。
Private Sub Form_Click()
Dim i%, j%
Cls
For i = 1 To 5
Print Space(i);
For j = 1 To 10 - 2 * i + 1
Print "*";
Next j
Print
Next i
End Sub
思考：如何打印以下图形。
Private Sub Form_Click()
= 20
Dim i%, j%
Cls
For i = 1 To 5
Print Space(i - 1);
For j = 1 To 10 - 2 * i + 1
Print "*";
Next j
Print
Next i
End Sub
打印九九乘法表
分析：
（