填空题

下列程序的功能是找出被5和7除余数为1的最小的5个正整数。请在程序空白处填入适当的语句，使程序可以完成指定的功能。
Private Sub Form_Click()
Dim Ncount%，n%
Ncount=0
n=0
Do
n=n+1
If______Then
Debug.Print n
Ncount=Ncount+1
End If
Loop Until Ncont=5
End Sub

【参考答案】

n Mod 5=1 And n Mod 7=1
<上一题 目录 下一题>
热门 试题

填空题
在窗体上有一个命令按钮Command1，编写事件代码如下： Private Sub Command1_Click() Dim a(10)，P(3) As Integer k=5 For i=1 To 10 a(i)=i * i Next i For i=1 To 3 P(i)=a(i * i) Next i For i=1 To 3 k=k+p(i) *2 Next i MsgBox k End Sub 打开窗体运行后，单击命令按钮，消息框中输出的结果是______。
填空题
在窗体文本框Text 1中输入“456AbC”后，立即窗口上输出的结果是______。 Private Sub Text1_KeyPress(KeyAscii As Integer) Select Case Key KeyAscii Case 97 To 122 Debug.Print Ucase(Chr(KeyAscii))； Case 65 To 90 Debug.Print Lcase(Chr(KeyAscii))； Case 48 To 57 Debug.Print Chr(KeyAscii)； Case Else KeyrAscii=0 End Select End Sub
相关试题