谁能帮我做做这个VB程序

Private Sub Command1_Click()
Cls
Const N = 100
Dim i, j, Line, a(N) As Integer
For i = 0 To N - 1 '置初值
a(i) = i;
Next i
For i = 2 To Sqr(N)
For j = i + 1 To N
If a(i) <> 0 And a(j) <> 0 Then
If a(j) Mod a(i) = 0 Then a(j) = 0;
End If
Next j
Next i
Print "显示出100以内的素数"
For i = 2 To N - 1
If a(i) <> 0 Then
Print a(i); Spc(1);
Line = Line + 1
End If
If Line <> 0 And Line Mod 10 = 0 Then Print '每行显示10个数
Next i
End Sub

Private Sub Form_Load()

End Sub

http://www.baidu.com/s?tn=ichuner_1_dg&bs=vb%B1%E0%B3%CC%CA%B5%CF%D6%D5%D2%B3%F61-100%D6%AE%BC%E4%B5%C4%CB%F9%D3%D0%CB%D8%CA%FD&f=8&wd=vb%B1%E0%B3%CC%D5%D2%B3%F61-100%D6%AE%BC%E4%B5%C4%CB%F9%D3%D0%CB%D8%CA%FD

百度知道。。。满大街都是