[填空题] 设有一个有10个元素的数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,请填空。
Private Sub Command1_Click()
Dim a(1 To 10)As Integer
Dim i As Integer
Dim p As Integer
Dim t As Integer
Dim j As Integer
For i=1 To 10
a(i)=i
Next i
For j=1 To 5
t=a(j)
______
______
Next j
For i=1 To 10
Print a(i)
Next i
End Sub
正确答案:a(j)=a(11-j);a(11-j)=t
参考解析:本题考查数组中元素的逆置 *** 作。循环次数为数组中元素个数的一半,每一次都要进行下标之和为11的前后两个元素交换。
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)