湖南省计算机等级考试辅导.ppt

* 友素数 若两个连续的自然数的乘积减1后是素数，则称此两数为友数对，该素数称为友素数。例如，由于 8*9-1=71， 因此，8与9是友数对，71是友素数。求[100，200]之间的友数对的数目。#40 * 主程序 Private Sub Form_Click() k = 0 For n = 100 To 200 - 1 m = n * (n + 1) - 1 If prime(m) Then k = k + 1 Debug.Print n, n + 1, m End If Next Print k End Sub 后接函数prime(x) * 第一类超级素数 (不含0的)素数，且去掉前面一位或多位后仍是素数。如1223 基本算法：单循环 处理：求有关数、判断素数 对三位数x（如x=223）：y=x Mod 100 z= y=x Mod 10 * 求[100,9999]内第一类超级素数个数。 可分别求出[100,999]和[1000,9999]的个数 下面求[1000,9999]内的个数。#99。 * 主程序 Private Sub Form_Click() n = 0 For x = 1000 To 9999 y = x Mod 1000 z = x Mod 100