Question

' 【题目要求】 ' 编一程序,将一维数组中元素向右循环移位,移位次数键盘输入. '

【题目要求】
' 编一程序,将一维数组中元素向右循环移位,移位次数键盘输入。
' 例如,数组各元素的值依次为 1, 2, 3, 4, 5, 6, 7, 8, 9, 10;
' 位移 3次后,各元素的值依次为 8, 9, 10, 1, 2, 3, 4, 5, 6, 7。
' 窗体设计界面参见已给出的参考界面。
' 【编程要求】
' 1) 数组可定义为固定大小的 10个元素的数组。
' 按“输入”按钮 (Command1),则用 inputbox 函数逐一输入
' “1---10”10个数据,并显示在文本框 Text1中。
' 在文本框 Text2中输入循环移位位数(请输入 3)
' 按“移位”按钮,调用通用 Sub 过程 rmove(),实现移位操作 , 同时将 ' 移位后 10个数据显示在文本框 Text3中。
' 按“清除”按钮 Command2,则将 3个文本框清空,将焦点置于 Text2上; ' 按“退出”按钮 Command3,结束程序运行
' 2)程序中应定义一个通用 Sub 过程 rmove(),以实现移位操作。

Answer 1

Dim str As String = "" Dim n, m As Integer Dim a() As Integer n = InputBox("请输入要产生随机数的个数n") m = InputBox("请输入要移动的位数m") ReDim a(n) str = "生成数组为" & vbCrLf For i = 1 To n a(i) = Int(Rnd() * 90 + 10) str = str & a(i) & " " Next Dim b(m), c(n) As Integer For i = 1 To m b(i) = a(n - m + i) Next For i = 1 To m c(i) = b(i) Next For i = m + 1 To n c(i) = a(i - m) Next str = str & vbCrLf & "移动后的数组为" & vbCrLf For i = 1 To n str = str & c(i) & " " Next TextBox6.Text = str

Answer 2

? 守望幸福 ( 2005) ? 警中警 ( 2007) ? 苦菜花 ( 2004)