下面程序的功能是将一个一维数组中的元素循环向右移动,每次移位次数由文本框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  36

问题 下面程序的功能是将一个一维数组中的元素循环向右移动,每次移位次数由文本框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://jikaoti.com/ti/ciO0FFFM
0

最新回复(0)