【正文】 給數(shù)組賦初值 For i = 1 To 25 aa(2, i) = 1 Next i For j = 1 To 25 aa(1, j) = j Next j 39。 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(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(請(qǐng)輸入一個(gè)大于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 歌德巴赫猜想不對(duì)！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(請(qǐng)輸入原始數(shù)的進(jìn)制(216)：) m = InputBox(請(qǐng)輸入原始數(shù)：) = Str(n) + 進(jì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)。 Str(Max)End Sub10. Private Sub Command1_Click() Dim a(5, 5) As Integer Randomize For i = 1 To 5 For j = 1 To 5 a(i, j) = Int(100 * Rnd) + 1 Print a(i, j)。 Str(a(maxi + 3)) amp。 Str(a(maxi + 2)) amp。 Str(a(maxi + 1)) amp。 Next iEnd SubPrivate Sub Command2_Click() Max = a(0) + a(1) + a(2) + a(3) maxi = 0 For i = 0 To 19 s = a(i) + a((i + 1) Mod 20) + a((i + 2) Mod 20) + a((i + 3) Mod 20) If s Max Then Max = s maxi = i End If Next i Print Str(a(maxi)) amp。 Str(i + 2) End If Next i Text1 = ssEnd SubPublic Function Prime(ByVal N As Integer) As Boolean Dim k As Integer For k = 2 To Sqr(N) If N Mod k = 0 Then Exit Function Next k Prime = TrueEnd Function8. Option ExplicitOption Base 1Private Sub Form_Click() Dim a As Integer, n As Integer Dim i As Integer Randomize Dim aa(20) As Integer a = Int(100 * Rnd() * 1) n = 1 Do For