![[填空题] 设有一个有10个元素的数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,请填空。Private Sub Command1,第1张 [填空题] 设有一个有10个元素的数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,请填空。Private Sub Command1,第1张](/aiimages/%5B%E5%A1%AB%E7%A9%BA%E9%A2%98%5D+%E8%AE%BE%E6%9C%89%E4%B8%80%E4%B8%AA%E6%9C%8910%E4%B8%AA%E5%85%83%E7%B4%A0%E7%9A%84%E6%95%B0%E7%BB%84%EF%BC%8C%E4%B8%8B%E5%88%97%E7%A8%8B%E5%BA%8F%E5%B0%86%E8%AF%A5%E6%95%B0%E7%BB%84%E7%9A%84%E7%AC%AC1%E4%B8%AA%E5%85%83%E7%B4%A0%E4%B8%8E%E7%AC%AC10%E4%B8%AA%E5%85%83%E7%B4%A0%E4%BA%A4%E6%8D%A2%EF%BC%8C%E7%AC%AC2%E4%B8%AA%E5%85%83%E7%B4%A0%E4%B8%8E%E7%AC%AC9%E4%B8%AA%E5%85%83%E7%B4%A0%E4%BA%A4%E6%8D%A2%E2%80%A6%E2%80%A6%EF%BC%8C%E7%AC%AC5%E4%B8%AA%E5%85%83%E7%B4%A0%E4%B8%8E%E7%AC%AC6%E4%B8%AA%E5%85%83%E7%B4%A0%E4%BA%A4%E6%8D%A2%EF%BC%8C%E8%AF%B7%E5%A1%AB%E7%A9%BA%E3%80%82Private+Sub+Command1.png)
[填空题] 设有一个有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条)