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

来源：百度知道 编辑：UC知道 时间：2024/06/03 20:03:34
老师留的作业，我一窍不通，拜托。。。如果能再小讲一下就更好了。嘿嘿

1、编程：用近似公式求自然对数的底数e的值，直到前后两项之差小于10-4为止。e≈1+1/1!+1/2!+1/3!+…+1/n!（有关累加、累乘的算法）。
要求：Form的Click事件发生时，输出程序运行结果。

2、 求100~1000以内的所有素数，要求每行打印7个素数后换行。

1、编制通用函数过程Public Function gys(ByVal m As Integer, ByVal n As Integer) As Integer求两个正整数的最大公约数。

2、编制通用子程序Public Sub gys(Byref m As Integer, ByVal n As Integer)求两个正整数的最大公约数。

3、编制通用SUB过程，Public Sub sort(a() As Integer, ByVal n As Integer)对一组随机整数进行选择排序。

4、编制通用SUB过程
Public Sub fn(x() As Single, m As Integer, n As Integer, xmax As Single, ki As Integer, kj As Integer)，在一个m行n列二维数组中查找绝对值最大的元素，以及该元素的行号、列号。

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