(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 Ifk = 【 13 】LoopIf b = True Thent = t + 1Debug.Print iEnd IfNext iDebug.Print " t= " ; tEnd Sub
(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
相关考题：
下列程序的功能是：输出10到100之间的所有回文素数。所谓回文素数是指，如果一个数是素数，则该数反序后形成的数也是素数。例如，13是素数，13反序形成得到数为31，31也是素数，则称13为回文素数。Private Sub Command1 2_Click（ ）Dim k As Integer，m As Integer，n AsIntegerFor k=10 T0 100If prim(k)Thenm=__________n=0Do While m0N=n*10+Im Mod l0M=m/10LoopIf prim(n)ThenMsgBox k“，”nEnd IfEnd IfNext kEnd SubPublic Function prim(n As Integer)As BooleanDim j As IntegerFor j=2 To n／2If n Mod J=0 Thenprim=__________Exit FunctionEnd IfNext jprim=TrueExit FunctionEnd Function横线处应填写的内容是（ ）。A.k FakeB.k TrueC.m FalseD.n True
1、统计素数并求和: 本题要求统计给定整数A和B区间内素数的个数并对它们求和。 输入格式： 输入在一行中给出两个正整数A和B（1＜=A＜=B=500) 输出格式： 在一行中顺序输出A和B区间内的素数的个数以及他们的和，数字间以空格隔开
使用函数计算素数个数并求和：输入两个正整数m和n（1＜=m, n＜=5000)，统计并输出m和n之间的素数的个数以及这些素数的和。素数就是只能被1和自身整除的正整数，1不是素数，2是素数。要求定义并调用函数prime（m)判断m是否为素数，当m为素数是返回1，否则返回0.
1. 100以内素数之和 描述 求100以内所有素数之和并输出。 素数指从大于1，且仅能被1和自己整除的整数。 提示：可以逐一判断100以内每个数是否为素数，然后求和。