VB的for循环该怎么写?

来源：百度知道 编辑：UC知道 时间：2024/06/14 09:01:12
要求能够求出并显示1~k之间所有既能被2又能被3整除并且不能被5整除的所有整数,并显示出来.

Private Sub Command1_Click()
Text1 = ""
Dim a()
k = InputBox("请输入上限")
For i = 1 To k
If i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 <> 0 Then
j = j + 1
ReDim Preserve a(j)
a(j) = i
End If
Next i
For i = 1 To j
Text1 = Text1 & a(i) & " "
Next i
End Sub

For i = 1 To k
If (i Mod 2 = 0 And i Mod 3 = 0 And i Mod 5 <> 0) Then
Debug.Print i
End If
Next i

For i = 0 To 100

If (i Mod 2 = 0) And (i Mod 3 = 0) And (i Mod 5 <> 0) Then
MsgBox i
End If
Next i

do
loop