填空题
以下程序的功能是在立即窗口中输出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
点击查看答案&解析
相关考题
-
填空题
下列程序的功能是找出被5和7除余数为1的最小的5个正整数。请在程序空白处填入适当的语句,使程序可以完成指定的功能。Private Sub Form_Click()Dim Ncount%,n%Ncount=0n=0Don=n+1If______ThenDebug.Print nNcount=Ncount+1End IfLoop Until Ncont=5End Sub -
填空题
在窗体文本框Text 1中输入“456AbC”后,立即窗口上输出的结果是______。Private Sub Text1_KeyPress(KeyAscii As Integer)Select Case Key KeyAsciiCase 97 To 122Debug.Print Ucase(Chr(KeyAscii));Case 65 To 90Debug.Print Lcase(Chr(KeyAscii));Case 48 To 57Debug.Print Chr(KeyAscii);Case ElseKeyrAscii=0End SelectEnd Sub -
填空题
使用向导创建数据访问页时,在确定分组级别步骤中最多可设置______个分组字段。