各位VB大虾来看看啊，小弟被这么简单的题给难住了！

小弟今年上大一,下学期要靠VB2级,暑假在家练习,可是上学期没好好学,现在遇到了难题...其实都是比较简单的啦,只是对我来说就迷茫了啊
如题:
1.编写程序,在窗体上输出1~100的偶数,要求每10个数显示一行
...就是上面的题,希望好心的大虾能把代码留下来(有点费时...),谢谢啦
...还有就是,VB2级好不好过啊?

Private Sub Command1_Click()
For i = 1 To 100
If i Mod 2 = 0 Then Print i;
If i Mod 20 = 0 Then Print
Next
End Sub

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
Dim sj(50) As String
Dim sj2(5) As String
For i = 1 To 100
If i Mod 2 = 0 Then
sj(i / 2) = i
End If
Next
For j = 0 To 4
For i = 1 + j * 10 To 10 + j * 10
If Len(sj(i)) = 1 Then
sj(i) = " " & sj(i)
End If
sj2(j) = sj2(j) & sj(i) & " "
Next
Print sj2(j)
Next
End Sub

Private Sub Command1_Click()
dim i,j,m as integer
j=1
m=0
for i=1 to 100
if i mod 2=0 then m=i
if j=10 then
j=1
print m&","&vbcrlf
else
print m&","
end if
j+=1
next i
end sub
或者这样：
Private Sub Command1_Click()
dim i,j,m as integer