2. 计算机
  3. 设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，请填空。 Private Sub Commandl_Click() Dim a(1 To 10)As I

设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，请填空。 Private Sub Commandl_Click() Dim a(1 To 10)As I

admin2012-09-07  33
问题 设有一个有10个元素的数组，下列程序将该数组的第1个元素与第10个元素交换，第2个元素与第9个元素交换……，第5个元素与第6个元素交换，请填空。
    Private Sub Commandl_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
    Forj=1 To 5
        t=a(j)
        _______________
        _______________
    Nextj
    For i=1 To 10
        Print a(i)
    Nexti
End Sub
选项
答案a(j)=a(11-j) a(11-j)=t
解析 本题考查数组中元素的逆置操作。循环次数为数组中元素个数的一半，每一次都要进行下标之和为11的前后两个元素交换。
转载请注明原文地址:https://jikaoti.com/ti/ViO0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)