【正文】 Sub PrintArray() 39。拆分出的字符 Dim L as Integer 39。 ?? Next I End Sub 統(tǒng)計在隨機(jī)產(chǎn)生的 10個兩位整數(shù)中的偶數(shù)個數(shù) ， 并用消息框輸出 。 x 重新組合的字符串 。 Next j 39。計算其余行的數(shù)并打印 For i = 2 To 1 a(i) = a(i 1) For j = 2 To 2 Step –1 3 Next j Space((n i + 1) * 2)。 Trim(Str(a(i, j)))。 。重新組合的字符串 Dim c() As String 39。 Public Sub countEven() Dim a(10) As Integer 39。 y End Sub 主題四：在已排序的數(shù)列中插入數(shù) 以下程序完成下列功能： 有已從小到大排序的數(shù)組 x，從鍵盤輸入一個正數(shù)，找到該數(shù)在原來 9個數(shù)中的插入點，使得該數(shù)插入數(shù)組后，數(shù)組的 10個數(shù)依然是從小到大的順序。******* 錯誤 3 ******* Next i End Sub 主題九：矩陣轉(zhuǎn)置 For i = 1 To n1 For j = i+1 To n t = a(i, j): a(i, j) = a(j, i): a(j, i) = t Next j, i 轉(zhuǎn)置前 a(3,3) 1 2 3 4 5 6 7 8 9 轉(zhuǎn)置后 b(3,3) 1 4 7 2 5 8 3 6 9 1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 15 10 5 1 2 3 4 5 14 9 4 A=6 7 8 9 10 ? B= 13 8 3 11 12 13 14 15 12 7 2 11 6 1 ? Transpose過程用于產(chǎn)生一個轉(zhuǎn)置矩陣。 For j = 1 To i s = Trim(Str(4)) Space(Int((4 Len(s)) / 2 + )) + s + Space(Int((4 Len(s)) / 2 + ))。 For j = 1 To i Print Space(4 Len(Trim(Str(a(i, j)))))。從鍵盤上輸入一個數(shù)，將該數(shù)從數(shù)組中刪除 Randomize Dim x As Integer Dim a(10) As Integer Dim i As Integer, pos As Integer ……….. x = Val(InputBox(輸入刪除的數(shù) x=)) pos = 0 For i = 1 To 10 If x = a(i) Then 1 Exit For End If Next i If pos 0 Then For i = 2 To 9 3 Next i 刪除后數(shù)據(jù) For i = 1 To 9 a(i)。原始字符串 Dim y As String 39。從 a(0)開始 Dim count As Integer,i As Integer Randomiz