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

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

admin2010-03-30  61
问题 下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框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(LBeund(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(TextText)
       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
选项
答案LBound (x)+1,x(k)=x(k-1)
解析
转载请注明原文地址:https://jikaoti.com/ti/6Rq0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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