下面的程序代码实现将一个一维数组中元素向右循环移动，移动次数由文本框Text1输入。例如数组各元素的值依次为0，1，2，3，4，5，6，7，8，9，10；移动三次后，各元素的值依次为8，9，10，0，1，2，3，4，5，6，7。

Private Sub MoveRight(x()As Integer)

Dim i As Integer

Dim j As Integer

Dim k As Integer

i＝UBound(x)

j＝x(i)

For k＝i To【 】 Step—1

【 】

Next k

x(LBound(x))＝j

End Sub

Private Sub Command1_Click()

Dim a(10) As Integer

Dim i As Integer

Dim j As Integer

Dim 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)

Loop Until k＝j

For i=0 To 10

Print a(i);

Next i

End Sub

相关问题推荐

• 设有数组A[i][j]，数组的每个元素长度为3字节，i的值为8，j的值为10，数组从内存首地址BA开始顺序存放，下标从0开始，当以列为主序存放时，元素A[5][8]的存储首地址为()。

  A.BA+141

  B.BA+180

  C.BA+222

  D.BA+225

  查看答案

• 当生成StringBuffer的一个对象后，还可用______方法或ensureCapacity()方法来设定缓存大小。

  查看答案

• 已知广义表:A=(a,b),B=(A,A),C=(a,(b,A),B),tail(head(tail(C)))的运算结果是()。

  A.(a)

  B.A

  C.a

  D.(A)

  查看答案

• 在word2003中，按()键与工具栏中“复制”按钮的功能一样。

  A.Ctrl+C

  B.Ctrl+V

  C.Ctrl+A

  D.Ctrl+S

  查看答案

• 在word2003中编辑文本时，编辑区显示的“网格线”在打印时()出现在纸上。

  A.不会

  B.全部

  C.一部分

  D.大部分

  查看答案