【正文】 e(1 To 5) As IntegerPublic Sub MaxLine() Dim i As Integer Dim j As Integer Dim temp As Integer Dim Line_no As Integer 39。找出最大平均值所在行 Line_no = 1 For i = 2 To 5 39。****** 錯誤2 ******* Line_no = ave(i) End If Next i 39。****** 錯誤3 ****** a(Line_no, j) = a(1, j) a(Line_no, j) = temp Next j 39。打印交換后的數(shù)據(jù) 交換后的數(shù)據(jù)和平均值 PrintArrayEnd SubPublic Sub DataProduce() Dim i As Integer Dim j As Integer 39。計算各行平均值 For i = 1 To 5 sum = 0 For j = 1 To 4 39。將數(shù)組和平均值打印出來 原始數(shù)據(jù)和平均值 PrintArrayEnd SubPublic Sub PrintArray() Dim i As Integer Dim j As Integer For i = 1 To 5 For j = 1 To 4 a(i, j)。 Next j 平均值=。該模塊中的 Wrap 過程用于判斷一個字符串是否“回文”。 程序如下：Public Sub Wrap() Dim length As Integer Dim str1 As String Dim strleft As String Dim strright As String Dim k As Integer str1 = InputBox(請輸入任意的字符串) 39。****錯誤1***** length = Val(str1) k = 1 Do 39。從左邊起逐個取出一個字符 39。從右邊起逐個取出一個字符 39。 是回文 Else str1 amp。該模塊中的BubbleSort過程是冒泡排序法；GenerateData過程產(chǎn)生10個[1，20]之間互不相同的隨機整數(shù)；Swap過程交換兩個變量的數(shù)值。BubbleSort過程是冒泡排序39。GenerateData過程產(chǎn)生10個[1，20]之間互不相同的隨機整數(shù)Public Sub BubbleSort() Dim i As Integer, j As Integer i = 1 Do For j = i + 1 To n If a(j) a(i) Then 39。******* 2 ******* Loop While i = n 排序結(jié)果 For i = 1 To n a(i)。****** 3 ****** For j = 1 To i If a(i) = a(j) Then b = False Exit For End If Next j Loop a(i) Next iEnd Sub39。該模塊中的 Transfer 過程用于將一個十六進(jìn)制整數(shù)轉(zhuǎn)換為十進(jìn)制整數(shù)；number 函數(shù)過程用于將一個十六進(jìn)制符號轉(zhuǎn)換為數(shù)值。十六進(jìn)制數(shù) Dim Dec As Double 39。****** 錯誤1 ******* n = Val(Hex) i = 0 Do 39。****** 錯誤3 ******* Dec = Dec + number * 16 ^ i i = i + 1 Loop While i n 39。 轉(zhuǎn)換為十進(jìn)制數(shù)為 amp。該模塊中的SortData 過程是把10個[30，50）的隨機整數(shù)并按照從小到大的順序打印出來，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。產(chǎn)生10個[30，50]的隨機整數(shù)，并按從小到大的順序打印出來 Dim a(10) As Integer Dim i As Integer, j As Integer For i = 1 To 10 a(i)= 1 Next i For i = 1 To 9 2 If a(i) a(j) Then 3 End If Next j a(i) Next i 4 End SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = tempEnd Sub。要求打印的數(shù)字方陣兩列數(shù)字之間空3格，兩行之間空一行。下面程序用于打印5行5列的數(shù)字方陣 39。要求打印的數(shù)字方陣兩列數(shù)字之間空3格，兩行之間空一行 39。******** 錯誤1 ********* If i j Or i 6 j Then a(i, j) = 2 Else a(i, j) = 1 End If 39。 Next j 39。該模塊中的Combination過程是用于計算在m個數(shù)據(jù)中取出n個數(shù)據(jù)的排列組合值，計算公式為Cmn=m!/(n!*(mn)!)。 程序如下：Public Sub Combination() Dim m As Integer Dim n As Integer Dim Cmn As Long Do m = Val(InputBox(請輸入一個整數(shù)m)) n = Val(InputBox(請輸入一個整數(shù)n(n=m))) 39。必須保證輸入的兩個數(shù)m=n 39。 CmnEnd SubPublic Function nFactor(ByVal n As Integer) As Double Dim i As Integer Dim temp As Double temp = 1 For i = 1 To n temp = temp * i Next i 39。****** 錯誤4 ******End Sub。[1500]之間的隨機整數(shù)并5個一行打印出來。最大數(shù)在數(shù)組中的下標(biāo) Dim max As Integer 39。 Str(max) 最大值的下標(biāo)= amp。該模塊中的 Prime 過程是求出100到200之間所有的素數(shù)，并打印出來，但不完整，請在橫線上填入必要的內(nèi)容，使其完整。打印出100到200之間所有的素數(shù)，并統(tǒng)計素數(shù)的個數(shù) Dim i As Integer Dim j As Integer Dim k As Integer Dim t As Integer 39。 tEnd Sub。 程序如下：Public Sub Transpose() 39。 Next j Next i For i = 2 To 6 For j = 1 To 1 2 Next j Next i 轉(zhuǎn)置后數(shù)據(jù) For i = 1 To 6 For j = 1 To 6 3 Next j Next iEnd SubPublic Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = tempEnd Sub。程序如下：Public Sub JiSuan() 39。****** 錯誤1 ******* Dim k As Integer Dim s As Single s = 0 39。******* 錯誤3 ******* k = 1 / i + 1 s = s + k Next i s=。贈語； 如果我們做與不做都會有人笑，如果做不好與做得好還會有人笑，那么我們索性就做得更好，來給人笑吧！ 現(xiàn)在你不玩命的學(xué)，以后命玩你。不要做金錢、權(quán)利的奴隸；應(yīng)學(xué)會做“金錢、權(quán)利”的主人。最值得欣賞的風(fēng)景，是自己奮斗的足跡。壓力不是有人比你努力，而是那些比你牛幾倍的人依然比你努力