VB新的上机等级考试程序调试题及答案(2)

----3---- ‘a(j) = a(j) + a(j - 1) Next j

Form1.Print Space((n - i + 1) * 2); For j = 1 To i

s = Trim(Str(----4----)) ‘a(j)

Form1.Print Space(Int((4 - Len(s)) / 2 + 0.5)) + s + Space(Int((4 - Len(s)) / 2 + 0.5));

Next j

Form1.Print Next i End sub 转置矩阵

Public Sub Transpose()

'该过程用于产生一个6×6的转置矩阵，将二维数组中所有行和对应列的元素进行交换。

Dim a(1 To 6, 1 To 6) As Integer Dim i As Integer, j As Integer Form1.Print \原始数据\ For i = 1 To 6

For j = 1 To 6

a(i, j) = Int(Rnd * 10) Form1.Print a(i, j); Next j

Form1.Print Next i

For i = 2 To 6

For j = 1 To ----- 1 ----- ‘I-1 ------ 2 ----- ’Call Swap(a(i, j), a(j, i)) Next j Next i

Form1.Print \转置后数据\ For i = 1 To 6

For j = 1 To 6

----- 3 ----- ‘Form1.Print a(i, j); Next j

Form1.Print Next i End Sub

Public Sub Swap(a As Integer, b As Integer) Dim temp As Integer temp = a a = b b = temp End Sub

猴子摘桃子 Public Sub eat()

'该过程是用于计算猴子共摘了多少个桃子。

'（小猴在一天摘了若干个桃子，当天吃掉了一半多一个； '第二天吃了剩下的一半多一个；

'以后每天都吃尚存的一半零一个，到第7天早上要吃时只剩下一个了）， '并将结果输出来。 Dim n%, i%, x% x = 1

for i=6 to ---1---- step ----2---- ‘ for I=6 to 1 step -1 -----3---- ‘x=(x+1)*2 Next i

Form1.Print \共有\个桃子\End Sub