Dim i As Integer, j As Integer
j = 0
Label1.Caption = ""
For i = 1 To 100
If i Mod 2 = 0 Then
j = j + 1
Label1.Caption = Label1.Caption & i & " "
If j Mod 10 = 0 Then Label1.Caption = Label1.Caption & Chr(13)
End If
Next
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024