以下程序的功能是在立即窗口中输出100到200之间所有的素数,并统计输出素数的个数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。
PrivateSubCommand2_Click()
Dimi%,j%,k%,t%‘t为统计素数的个数
DimbAsBoolean
Fori=100To200
b=True
k=2
j=Int(Sqr(i))
DoWhilek<=jAndb
IfIModk=0Then
b=(?)
EndIf
k=(?)
Loop
Ifb=TrueThen
t=t+1
Debug.Printi
EndIf
Nexti
Debug.Print"t=";t
EndSub
参考答案:false;k+l
解析:
素数,指在大于1的自然数中,除了1和此整数自身外,没法被其他自然数整除的数。由于是输出100~ 200之间所有的素数,所以For循环的条件为“For i=100 To 200”,又因为素数是从2开始的,所以k=2,j等于变量i的值开平方根取整。下面判断变量i与k相除余数是否为0,如果为0,则该数不是素数,b=false,如果不为0,则变量k的值需要加1,继续代入计算。