满意答案
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追问: 这个程序没结束吧????
追答:移动后的数组都输出了,已经结束了
00分享举报