Private Sub Command1_Click()Dim i%, k%k = 0For i = 100 To 200If i Mod 3 <> 0 Then Print i;: k = k + 1If k Mod 6 = 0 Then PrintNextEnd Sub
Private Sub Form_Click()
Dim a
a = 99
Do While a < 201
a = a + 1
If a Mod 3 > 0 Then Print a
Loop
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024