Public Sub t()
Dim I As Integer
Dim S As String
S = ""
For I = 2 To 100 Step 2
S = S & I & " "
Next I
MsgBox S
End Sub
for i=2 to 200
if i mod 2=0 then
if t=5 then
t=0
result=result & cstr(i) & vbcrlf
else
result=result & cstr(i) & chr(32)
t=t+1
endif
endif
next
msgbox result
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024