计算机VB编程题（2）：

来源：百度知道 编辑：UC知道 时间：2024/06/27 09:47:05
1 将下列字符存放到数组中，并以倒序打印出来。字符是： a b q r s t w x y e m n
2 求裴波拉锲数列前n项和
3 求一个正整数n的因子
4 求100以内的孪生素数（书上200页第7题）
5 求两个正整数的最大公约数
请把每一题的代码输入给我！急！
速度快的话还有追赏加分！

第一题
Private Sub Command1_Click()
Dim tmp As String, tmp1 As String, a
tmp = "a b q r s t w x y e m n"
a = Split(tmp, " ")
Print "正序 "; tmp
Print "倒序 "; StrReverse(tmp)
End Sub
第二题
Private Sub Command1_Click()
Dim S(), N, Sum, i
N = 4: ReDim S(N): S(0) = 1
For i = 1 To N
S(i) = S(i - 1) + IIf(i < 3, 0, S(i - 2))
Sum = Sum + S(i)
Next
Print "斐波拉契数列前" & N & "项和Sum="; Sum
End Sub
第三题
Private Sub Command1_Click()
Dim N, i, m, S
N = InputBox("请输入一个正整数:")
m = N
For i = 2 To N
If m Mod i = 0 Then S = S & "*" & i: m = m / i: i = 1
Next
Print N & "=1" & S
End Sub

第一个用数组，用个step=-1的循环就行；
后四个……太复杂了，想知道给我来信；