填空题

下列程序是将数组a的元素倒序交换，即第1个变为最后一个，第2个变为倒数第2个，设数组中有10个元素。完成下列程序。
Private Sub Backward(a())
Dim i As Integer, Tmp As Integer
For i=1 To 5
Tmp=a(i)
______
______
Next i
End Sub

【参考答案】

a(i)=a(11-i)；a(11-i)=Tmp
<上一题 目录 下一题>
热门 试题

填空题
以下程序的目的是将多维数组a(1 To m, 1 To n)中的元素转移到一个名为b(1 To n*m)的一维数组中，完成该程序。 Option Base 1 Private Sub Command1_Click(Index As Integer) Dim a(1 To 20, 1 To 10) Dim b() ReDim______ For i=1 To 20 For j=1 To 10 a(i，j)=i术j Next j Next i Tran a, 20 , 10 b End Sub Sub Tran(a(), m, n, b()) Dim i As Integer For i=1 To m For j=1 To n ______=a(i，j) Next j Next i End Sub
填空题
在窗体上画一个命令按钮(其Name属性为Command1)，然后编写如下代码： Private Sub Command1_Click() Dim a(5) For i=0 To 4 a(i)=i+1 t=i+1 If t=3 Then Print a(i) a(t-1)=a(1-2) Else a(t)=a(i) End if If i=3 Then a(i+1)=a(t-4) a(4)=1 Print a(i) Next i End Sub 程序运行后，单击命令按钮，输出结果是______。
相关试题