帮忙编写一段VB代码～

给你一个最简单的：
Private Sub Form_Click()
Form1.AutoRedraw = True
Dim I As Integer, G As Integer
For I = 200 To 300
If Su(I) = 1 Then
G = G + 1
Print G; I,
If G Mod 5 = 0 Then Print
End If
Next
End Sub
Public Function Su(X As Integer) As Integer
Dim J As Integer
Su = 1
For J = 2 To Sqr(X)
If X Mod J = 0 Then
Su = 0
Exit For
End If
Next
End Function
已经运行过。

运行过的程序还有人说错误，不知道是什么心？
Public Function IsPrime(n As Integer) As Integer
Dim i As Integer
For i = 2 To n - 1
If n Mod i = 0 Then Exit For
Next i
If i <= n - 1 Then
IsPrime = 0
Else
IsPrime = 1
End If
End Function

Private Sub Command1_Click()
Dim i As Integer, cnt As Integer