问题
填空题
以下程序的功能是在立即窗口中输出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。