2. 计算机
  3. 下面程序的功能是将一个一维数组中的元素循环向右移动，每次移位次数由文本框Text中的输入决定。例如，数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动3次后，各元素的值依次为8,9，10，0，1，2，3，4，5，6，7。请将程序补充完整

下面程序的功能是将一个一维数组中的元素循环向右移动，每次移位次数由文本框Text中的输入决定。例如，数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动3次后，各元素的值依次为8,9，10，0，1，2，3，4，5，6，7。请将程序补充完整

admin2012-09-07  81
问题 下面程序的功能是将一个一维数组中的元素循环向右移动，每次移位次数由文本框Text中的输入决定。例如，数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动3次后，各元素的值依次为8,9，10，0，1，2，3，4，5，6，7。请将程序补充完整。
    Private Sub MoveRight(x() As Integer)
    Dim i As Integer,j As Integer,k As Integer
        i=UBound(x)
        j=x(i)
        Fork=iTo_______________Step-1
           _______________
        Next k
        x(LBound(x))=J
    End Sub
    Private Sub Commandl_Click()
    Dim aAs Integer
    Dim iAs Integer,j As Integer,k As Integer
        For i=0 To 10
            a(i)=i
        Next i
        j=Val(Text1．Text)
        k=0
        Do
          k=k+1
          Call MoveRight(a)
        LoopUntilk=j
        For i=0 To 10
            Print a(i)；
        Nexti
    End Sub
选项
答案1 x(k)=x(k-1)
解析 本题考查数组中元素移动。程序运行时，在文本框中输入移动元素的位数，然后调用MovreRight函数逐个元素移动，在MoveRight函数中，保存数组中最后一个元素，数组x中下标从i-1开始到0，所有元素后移一位。那么k的变化为i到1，然后移动x(k)=x(k-1)。
转载请注明原文地址:https://www.kaotiyun.com/show/5Dhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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