求教几道VB题*高悬赏，速度快的多加100分

来源：百度知道 编辑：UC知道 时间：2024/06/07 06:32:23
1,编写一个SUB过程，给一个整数N，N大于等于3，判定是否为素数
2.编写一个FUNCTION过程，求两个正整数，M，N的最大公约数
3.编写一个SUB过程，求三个数字的最大和最小数
4.求S等于a+aa+aaa+....+N个a,a和N的只由用户输入
5.求13 27 33 的最小公倍数
6.输入20个数字，显示其中奇数个数和偶数个数

1:
Private Sub sushu()
Dim N%, i%, k%
N = Val(InputBox("请输入一个大于2的整数N:"))
k = Int(Sqr(N))
For i = 2 To k
If N Mod i = 0 Then Exit For
Next i
If i > k Then
Print N; "是素数"
Else
Print N; "不是素数"
End If
End Sub

Private Sub Form_Click()
Call sushu
End Sub

2:
Private Function fun()
Dim M As Integer, N As Integer, p As Integer, max As Integer, min As Integer
Me.Cls
M = Val(InputBox("请输入M:"))
N = Val(InputBox("请输入N:"))
max = IIf(M > N, M, N)
min = IIf(M < N, M, N)
Do
p = max Mod min
max = min
min = p
Loop While (p <> 0)
Print "最大公约数为"; Str(max)
End Function

Private Sub Form_Click()
Call fun
End Sub

3:
Private Sub compare()
Dim a%, b%, c%, max%, min%
Me.Cls
a = Val(InputBox("Enter a:"))
b =