问题
填空题
以下程序的功能是在立即窗口中输出100～200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Command2_Click()
Dim i%，j%，k%，t% ’t为统计素数的个数
Dim b AS Boolean
For i=100 T0 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) False (13) k+1
解析： 本题考查的是VBA编程基础。本题中，b的目的是为了控制打开Debug.Print i，而如果想要其不打开这个值，必须使得if后的条件为假，办法就是使b为false，因此，在第(12)空应填False。k是Do while循环的递增变量，因此需要对其进行递增，即k=k+1。