Private Sub Command1_Click()
k = 0
For i = 0 To 100
If i Mod 6 = 0 Then
Print i;
k = k + 1
If k Mod 3 = 0 Then Print
End If
Next
End Sub
Private Sub Form_Click()
Cls
Dim I As Long
Dim J As Long
For I = 1 To 100
If I Mod 6 = 0 Then
J = J + 1
If J Mod 3 Then
Print I;
Else
Print I
End If
End If
Next
End Sub
For i% = 6 To 96 Step 6
Print i,
If i Mod 18 = 0 Then Print
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024