[填空题] 设有一个有10个元素的数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,请填空。Private Sub Command1

[填空题] 设有一个有10个元素的数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,请填空。Private Sub Command1,第1张

[填空题] 设有一个有10个元素数组,下列程序将该数组的第1个元素与第10个元素交换,第2个元素与第9个元素交换……,第5个元素与第6个元素交换,请填空。 Private Sub Command1

[填空题] 设有一个有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的前后两个元素交换。

欢迎分享,转载请注明来源:内存溢出

原文地址: http://outofmemory.cn/zaji/5584835.html

(0)
打赏 微信扫一扫 微信扫一扫 支付宝扫一扫 支付宝扫一扫
上一篇 2022-12-14
下一篇 2022-12-14

发表评论

登录后才能评论

评论列表(0条)

保存