【正文】 maxj = j End If Next j Next i Print 最大元素為：a( + Str(maxi) + , + Str(maxj) + )= + CStr(Max)End Sub11 . Private Sub Command1_Click() Dim i As Integer For i = 1 To 6 Text1 = Text1 amp。 Str(fab(i)) Next iEnd SubPrivate Function fab(n As Integer) As Long If n = 1 Or n = 2 Then fab = 1 Else fab = fab(n 1) + fab(n 2) End IfEnd Function12 .Private Sub Command1_Click() Dim i As Integer a = InputBox(請輸入一個大于2的偶數(shù):) n = Val(a) If n = 4 Then Print 4 = 2 + 2 Exit Sub End If For i = 3 To n 1 Step 2 If prime(i) And prime(n i) Then Print Str(n) + = + Str(i) + + + Str(n i) Exit Sub End If Next i Print 歌德巴赫猜想不對！End SubPrivate Function prime(ByVal n As Integer) As Boolean For i = 2 To n 1 If n Mod i = 0 Then prime = False Exit Function End If Next i prime = TrueEnd Function13.Private Sub Command1_Click() Dim i As Integer For i = 10 To 9999 Call arm(i) Next iEnd SubPrivate Sub arm(j As Integer) a = CStr(j) n = Len(a) For k = 1 To n b = Mid(a, k, 1) s = s + Val(b) ^ n Next k If s = j Then Print j End IfEnd Sub14.Private Sub Command1_Click() Dim n As Integer, m As String, b As Integer n = InputBox(請輸入原始數(shù)的進制(216)：) m = InputBox(請輸入原始數(shù)：) = Str(n) + 進制數(shù) Text1 = m b = trans(m, n) Text2 = Str(b)End SubPrivate Function trans(m As String, n As Integer) As Integer Dim k As Integer, t As String, r As Integer, s As Integer k = Len(m) For i = 1 To k t = UCase(Mid(m, i, 1)) If t = A And t = F Then r = Asc(t) 55 Else r = Val(t) End If s = s + r * n ^ (k i) Next i trans = sEnd Function15.Form1:Dim b(5) As SinglePrivate Sub Command1_Click() Dim a As Single Randomize For i = 0 To 5 a = (Int(61 * Rnd) + 40) / 10 b(i) = a Text1(i) = Str(a) Next iEnd SubPrivate Sub Command2_Click() Min = b(0) Max = b(0) Sum = b(0) For i = 1 To 5 If b(i) Max Then Max = b(i) If b(i) Min Then Min = b(i) Sum = Sum + b(i) Next i Sum = Sum Max Min Text2 = Str(Sum / 4)End SubPrivate Sub Command3_Click() For i = 0 To 5 Text1(i) = Next i Text2 = End SubPrivate Sub Command4_Click() EndEnd SubForm2:Dim b(5) As SinglePrivate Sub Command1_Click() Dim a As Single Randomize For i = 0 To 5 a = (Int(61 * Rnd) + 40) / 10 b(i) = a Chr(65 + i) + : + Str(a) Next iEnd SubPrivate Sub Command3_Click() Text1 = End SubPrivate Sub Command4_Click() EndEnd SubPrivate Sub Command2_Click() Min = b(0) Max = b(0) Sum = b(0) For i = 1 To 5 If b(i) Max Then Max = b(i) If b(i) Min Then Min = b(i) Sum = Sum + b(i) Next i Sum = Sum Max Min Text1 = Str(Sum / 4)End Sub16.Private Sub Command1_Click() Dim i As Integer, k As Integer, m As Integer Dim s As Single, t As Single i = 1 Do t = 1 For k = 1 To i m = 2 * k t = t * m Next k s = s + 1 / t If 1 / t Then Exit Do i = i + 1 Loop Print sEnd Sub17.Private Sub Command1_Click() Dim n As Integer, t As Single, s As Single, x As Single n = 2: s = 0 x = InputBox(input x:) Do t = (x ^ f(n)) / (f(n 1) * f(n)) s = s + t If t Then Exit Do n = n + 1 Loop Print sEnd SubPrivate Function f(n As Integer) As Integer If n = 1 Or n = 2 Then f = 1 Else f = f(n 1) + f(n 2) End IfEnd Function18.Private Sub Form_Click() Dim a(10) As Integer Randomize For i = 1 To 10 a(i) = Int(Rnd * 20) + 1 a(i)。 Next i Call insertion(a) For i = 1 To 10 a(i)。 Next i End SubPrivate Sub insertion(sort() As Integer) Dim mid As Integer, left As Integer, right As Integer ub = UBound(sort) If sort(1) sort(2) Then temp = sort(1) sort(1) = sort(2) sort(2) = temp End If For i = 3 To ub flg = False flg1 = False temp = sort(i) If temp sort(1) Then flg = True mid = 0 End If left = 1 right = i 1 Do While left = right And Not flg mid = Int((left + right) / 2) If sort(mid) = temp Then flg1 = False Exit Do ElseIf sort(mid) temp Then left = mid + 1 flg1 = False Else right = mid 1 flg1 = True End If Loop If flg1 Then mid = mid 1 For j = i 1 To mid + 1 Step 1 sort(j + 1) = sort(j) Next j sort(mid + 1) = temp Next iEnd Sub19.Option ExplicitOption Base 1Dim aa(2, 25) As IntegerDim bb(25) As IntegerPrivate Sub C1_Click() Dim v As Integer, y As Integer Dim s As String For v = 1 To 25 If XXX(v) = Val(T1) Then For y = 1 To 25 s = s amp。 Str(bb(y)) Next y End If Next v T2 = sEnd SubPublic Function XXX(ByVal num As Integer) As Integer Dim i As Integer, j As Integer, m As Integer, n As Integer Dim ct As Integer, t As Integer Dim flag As Boolean 39。給數(shù)組賦初值 For i = 1 To 25 aa(2, i) = 1 Next i For j = 1 To 25 aa(1, j) = j Next j 39。依次取數(shù)，記錄取數(shù)的序列，并返回最后取到的數(shù)值 m = 1 ct = 1 Do If aa(2, num) = 1 Then bb(m) = aa(1, num) m = m + 1 If m 25 Then Exit Do aa(2, num) = 0 t = 0 End If ct = ct + 1 Do While ct t num = num + 1 If num 25 Then num = num Mod 25 t = aa(2, num) + t Loop Loop XXX = bb(25)End Function20.Option ExplicitD