填空题 以下程序的功能是在立即窗口中输出100～200之间所有的素数，并统计输出素数的个数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。Private Sub Command2_Click()Dim i%，j%，k%，t% ’t为统计素数的个数Dim b AS BooleanFor i=100 T0 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

填空题 下列程序的功能是找出被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