在窗体上输出100-200之间不能被3整除的奇数,怎么让结果每行5个地排列

Private Sub Command1_Click()
Dim i&, j&
For i = 100 To 200
If i Mod 3 <> 0 Then
Print i;
j = j + 1
If j Mod 5 = 0 Then
j = 0
Print
End If
End If
Next
End Sub

设置一个计数变量，当它能被5整除时输出换行。
如上所述。

Dim i as integer, j as integer
j=0
for i = 100 to 200 step 1 '从100到200
If (i mod 3 <> 0)and(i mod 2<>0) Then
'i能除尽3且是奇数
Print i & " " '打印i
j = j + 1 '打了j个数
if j mod 5 = 0 Then Print '打了5数个数就换行
End If
Next i