VB 1-100范围内被3整除 每行10个数 每个数占5列

Question

如题所述

Answer 1

Private Sub Command1_Click()
For i = 3 To 100 Step 3
j = j + 1
Print Format(i, "@@@@@");
If j Mod 10 = 0 Then Print
Next
End Sub

Answer 2

Private Sub Command1_Click()
For i = 1 To 100
If i Mod 3 = 0 Then
j = j + 1
Print i;
If j Mod 10 = 0 Then Print
End If
Next
End Sub

Answer 3

for i=1 to 100
if i mod 3=0 then
j=j+1
print i
if j=10 then
print chr(13)
j=0
end if
next