高分求！高手帮忙编几个VB小程序。可以追加分数！

NO1:
Private Sub Form_Click()
Dim N As Long, E As Double, S As Long
S = 1
E = 1
N = 0
Do
N = N + 1
S = S * N
E = E + 1 / S
Loop While Abs(1 / S - 1 / S * (N + 1)) >= 10 ^ -4
Print E
End Sub

No2
Private Sub Form_Click()
Dim N As Integer, Flag As Boolean
Cls
Form1.AutoRedraw = True
For i = 100 To 1000
Flag = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then
Flag = False
Exit For
End If
Next
If Flag = True Then
Print Tab((N Mod 7) * 5 + 1); i;
N = N + 1
End If
Next
End Sub

Public Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
Do
t = n
n = m Mod n
m = t
Loop While m Mod n > 0
gys = n
End Function

Public Sub gys(ByRef m As Integer, ByVal n As Integer)
'此函数通过第一个参数M 传回结果
Do
t = n
n = m Mod n
m = t
Loop While m Mod n > 0
m = n
End Sub

Public Sub sort(a() As Integer, ByVal n As Integer)
Dim i As Integer
ReDim a(n) As Integer
Randomize
For i = 0 To n
a(i) = Int(Rnd * 900 + 100)
Next

For i = LBound(a) To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
End Sub

Public Sub fn(x() As Single, m As Integer, n As Integer, xmax As Single, ki As Integer, kj As Integer)
'在一个m行n列二维数组中查找绝对值最大的元素，以及该元素的行号、列号。
xmax = x(0, 0)
ki = 0
kj = 0
For i = 0 To m
For j = 0 To n
If x(i, j) > xmax Then
xmax = x(i, j)
ki = i
kj = j
End If
Next
Next

End Sub
追+点分吧,帮你写了半天,累死了

一:Private Sub Form_Click()
Dim N As Long, E As Double, S As Long
S = 1
E = 1
N = 0
Do
N = N + 1
S = S * N
E = E + 1 / S
Loop While Abs(1 / S - 1 / S * (N + 1)) >= 10 ^ -4
Print E
End Sub

二:Private Sub Form_Click()
Dim N As Integer, Flag As Boolean
Cls
Form1.AutoRedraw = True
For i = 100 To 1000
Flag = True
For j = 2 To Sqr(i)
If i Mod j = 0 Then
Flag = False
Exit For
End If
Next
If Flag = True Then
Print Tab((N Mod 7) * 5 + 1); i;
N = N + 1
End If
Next
End Sub

第2个一:Public Function gys(ByVal m As Integer, ByVal n As Integer) As Integer
Do
t = n
n = m Mod n
m = t
Loop While m Mod n > 0
gys = n
End Function

第2个二:Public Sub gys(ByRef m As Integer, ByVal n As Integer)
'此函数通过第一个参数M 传回结果
Do
t = n
n = m Mod n
m = t
Loop While m Mod n > 0
m = n
End Sub

三:Public Sub sort(a() As Integer, ByVal n As Integer)
Dim i As Integer
ReDim a(n) As Integer
Randomize
For i = 0 To n
a(i) = Int(Rnd * 900 + 100)
Next

For i = LBound(a) To UBound(a) - 1
For j = i + 1 To UBound(a)
If a(i) > a(j) Then
t = a(i)
a(i) = a(j)
a(j) = t
End If
Next
Next
End Sub

四:Public Sub fn(x() As Single, m As Integer, n As Integer, xmax As Single, ki As Integer, kj As Integer)
'在一个m行n列二维数组中查找绝对值最大的元素，以及该元素的行号、列号。
xmax = x(0, 0)
ki = 0
kj = 0
For i = 0 To m
For j = 0 To n
If x(i, j) > xmax Then
xmax = x(i, j)
ki = i
kj = j
End If
Next
Next

End Sub