(12 ）以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command2_Click()Dim i%, j%, k%, t % ‘ t 为统计素数的个数D im b As BooleanFor i = 100 To 200b = Truek = 2j = Int(Sqr(i))Do While k <= j And bIf I Mod k = 0 Thenb = 【 12 】End
题目
(12 ）以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command2_Click()
Dim i%, j%, k%, t % ‘ t 为统计素数的个数
D im b As Boolean
For i = 100 To 200
b = True
k = 2
j = Int(Sqr(i))
Do While k <= j And b
If I Mod k = 0 Then
b = 【 12 】
End If
k = 【 13 】
Loop
If b = True Then
t = t + 1
Debug.Print i
End If
Next i
Debug.Print " t= " ; t
End Sub
相似考题
参考答案和解析
正确答案：
更多“(12 )以下程序的功能是在立即窗口中输出 100 到 200 之间所有的素数,并统计输出素数的个数。请在 ”相关问题
-
第1题：
使用函数计算素数个数并求和：输入两个正整数m和n（1＜=m, n＜=5000)，统计并输出m和n之间的素数的个数以及这些素数的和。素数就是只能被1和自身整除的正整数，1不是素数，2是素数。要求定义并调用函数prime（m)判断m是否为素数，当m为素数是返回1，否则返回0.
对 -
第2题：
计算并输出 100 至 200 范围内的所有素数。
C -
第3题：
1. 100以内素数之和 描述 求100以内所有素数之和并输出。 素数指从大于1，且仅能被1和自己整除的整数。 提示：可以逐一判断100以内每个数是否为素数，然后求和。
2, i -
第4题：
输出100—200中所有的素数，要求10个数据为一行输出。
C -
第5题：
求100到200之间的素数。要求： （1) 将素数的判断写成函数。 （2) 写出main函数调用过程，每行输出5个素数后换行。 （3) 程序书写规范，关键部分要求给出注释。
21