1、vb 调试（VB debugging）明确选择函数的素数（n 作为整数）作为布尔函数模糊 i 为整数如果 n2，则素数= false：退出函数对于 i = 2 到 n - 1如果 n mod 我= 0 然后总理=假：退出功能下一个黄金=真端功能私有子 command1_click()定义 x（1 到 80）的整数，a()为整数，整数 b()模糊 j 为整数，i 为整数，t 为整数，n 为整数。对于我= 1 比 80x（i）= Int（99 - 10 + 1）*、+ 10）打印 x（i） ；nn1如果 n 模 100 然后打印下一个n = 0J = 0对于我= 1 比 80如果 x（i）mod
2、20nn1ReDim Preserve（N）a（n）x（i）其他的j = j + 1ReDim Preserve B（J）b（j）x（i）最后如果下一个我= 1，UBound（一）J =我+ 1 UBound（一）如果 A（i）为 A（j）则t（i）：a（i）=（j）：a（j）t最后如果下一个下一个打印：打印“偶数”我= 1，UBound（一）打印 A（I） ；如果我 10 = 0，然后打印下一个我= 1，UBound（B）J =我+ 1 UBound（B）如果 B（i）B（j）然后t（i）：b（i）b（j）：b（j）T最后如果下一个下一个打印：打印“奇数”我= 1，UBound（B）打印 B
3、（I） ；如果我 10 = 0，然后打印下一个打印：打印“素数”n = 0以 s 为整数对于我= 1 比 80如果素数（x（i） ）打印 x（i） ；sx（i）nn1如果 n 模 100 然后打印最后如果下一个打印：打印“素数和：“if i mod 10 = 0 thenprintend ifnext inend subprivate sub command4 _ click ()dim sushu () as integer, b as integerredim sushu (80)(b) = 0for i = 1 to 80if sushu (a) (i) = true thenb = b
4、 + 1sushu (b) = sushu (a) (i)print sushu (b)end ifnext inif (b) mod 10 = 0 thenprintend ifend subfunction sushu (n as integer) as booleansushu = truefor i = 2 to n - 1 and sushu = trueif n 0 then the courage ofsushu = trueelsesushu = falseexit doend ifnext inend function-private sub command1 _ click
5、 ()for i = 1 to 80(a) (in) = int (90 * rnd + 10)text1 = text1 & a (in the) & “if i mod 10 = 0 then text1 = text1 & chr (13) & chr (10)nextend subprivate sub command2 _ click ()for i = 1 to 80if a (i) mod 2 = 0 then n = n + 1) (n) = a (in)nextshowfor i = 1 to n - 1for j = i + 1 to nif a (i) a (j) the
6、nt = a (i): (a) (i) = a (j): (a) (j) = tend ifnextnextfor i = 1 to ntext2 = text2 & a (in the) & “if i mod 10 = 0 then text2 = text2 & chr (13) & chr (10)nextend subprivate sub command3 _ click ()for i = 1 to 80if a (i) mod 2 0 then n = n + 1) (n) = a (in)nextshowfor i = 1 to n - 1for j = i + 1 to n
7、if a (i) = a (j) thent = a (i): (a) (i) = a (j): (a) (j) = tend ifnextnextfor i = 1 to ntext3 = text3 & a (in the) & “if i mod 10 = 0 then text3 = text3 & chr (13) & chr (10)nextend subprivate function check (m as integer) as booleandim k as integer, f as integerf = truefor k = 2 to m - 1如果 m 模 k0F
8、= false最后如果接下来的 K检查= F端功能私有子 command4_click()m 为整数对于我= 1 比 80如果检查（a（i） ） ，则 nn + 1：a（n）a（i）下一个对于 i = 1 到 nma（i）正文=正文和一个（我）&“”如果我的 mod 10 = 0 然后正文=正文& chr（13）和 CHR（10）下一个label5。标题=“素数的个数：“与 N 和 CHR（10）和“素数之和：“& M端子-私有子 command1_click()朦胧的我，J，K随机化J = 0Text 文本=“” 。对于我= 1 比 80一个（我）= int（RND90）+ 10text1。
9、文本=“文本与（我）&“”如果我的 mod 10 = 0 然后 text1。文本=“文本与 vbcrlf。如果 A（i）mod 2 = 1 然后ReDim Preserve js（J）js（j）= a（i）j = j + 1其他的ReDim Preserve OS（K）OS（k）= a（i）kk1最后如果下一个端子私有函数素（ByVal N 长）为布尔的返回值=真正的是素数，假不是素数k 长如果 n2，那么黄金= false其他的黄金=真对于 k = 2 到 n - 1如果（n mod k）= 0 那么黄金=假：退出接下来的 K最后如果端功能私有子 command2_click()朦胧的我，J
10、我= 0，UBound（JS）对于 j = 0 到 i如果 js（i）操作系统（j） ，那么 T = OS（i）：操作系统（i）= OS（j）：OS（j）= T下一个下一个正文文本=“” 。我= 0，UBound（OS）正文。正文=正文。正文与 OS（我）&“”如果（i + 1）mod 5 = 0 然后正文。正文=正文。正文与 vbcrlf下一个端子私有子 command4_click()模糊 i，j，和为整数正文文本=“” 。J = 0我= 0，UBound（JS）如果是素数（js（i） ）正文。正文=正文。正文与 JS（我）&“”j = j + 1求和（+）如果 J mod 5 = 0 然
11、后正文。正文=正文。正文与 vbcrlf最后如果下一个正文文本= J。正文文本=总和。端子私有子 command5_click()我卸下端子-昏暗一%（1 到 80） ，我%，K %，T %，B %（1 至 80） ，C %（1 至80）私有子 command1_click()我。CLS模糊 j 为整数随机化T = 1K = 1对于我= 1 比 80一个（我）= int（RND90）+ 10如果 A（i）mod 2 = 1 然后b（k）a（i）kk1最后如果如果 IsPrimeNum（a（i） ）然后c（t）a（i）T1最后如果下一个我打印“全部”对于我= 1 比 80打印 A（I） ；如果我
12、 10 = 0，然后打印下一个我sortarray B、K 1打印“奇数”对于 i = 1 到 K - 1打印 B（I） ；如果我 10 = 0，然后打印下一个我打印sortarray C、T 1打印“素数”对于 i = 1 到 t - 1打印 C（I） ；如果我 10 = 0，然后打印下一个我端子私有函数 isprimenum（V 为整数）布尔模糊 i 为整数标志为布尔型标志=真对于 i = 2 到 v - 1如果 v 模 I0标志=假退出最后如果下一个我isprimenum =旗端功能列兵 Sub SortArray（arr()为整数，一个尺寸为整数）模糊 i 为整数模糊 j 为整数模糊 t 为整数对于 i = 1 到大小对于 j = i + 1 大小如果是（我） ARR（J）然后 T = ARR（I）：ARR（我）= ARR（J）：ARR（j）= T下 J下一个我端子
