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

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

admin2012-03-22  83
问题 下面的程序代码实现将一个一维数组中元素向右循环移动，移位次数由文本框Text输入。例如数组各元素的值依次为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
选项
答案LBound(x)+1 x(k)=x(k-1)
解析
转载请注明原文地址:https://kaotiyun.com/show/uUhp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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