问题:
(填空题)填空题:数组反序存放的程序实现
请完成以下程序,该程序在单击窗体时会随机生成20个两位数,并依次赋值给一个20元素的数组。程序需要将数组反序存放后输出。请在指定的位置填写正确的代码。
Option Base 1
Private Sub Form_Click()
Dim a(20) As Integer, i As Integer
Dim t As Integer, j As Integer
Randomize
For i = 1 To 20
a(i) = 10 + Int(90 * Rnd)
Print a(i);
Next i
Print
i = 1: 【9】
Do While i < j
t = a(i): 【10】 :a(i) = t
i = i + 1:j = j - 1
Loop
For i = 1 To 20
Print a(i);
Next i
Print
End Sub
提问:
请问在上述程序中,如何正确填写代码以实现数组的反序存放?请在【9】和【10】处填写正确的代码。
复习要点:
理解数组的基本操作,包括数组的声明、赋值和遍历。掌握如何通过交换元素实现数组的反序存放。
查阅资料方向:
查阅关于数组操作和循环结构的编程资料,特别是如何使用循环和临时变量来交换数组元素。
参考答案: