vb循环与c语言循环的转换,Vb编一程序，将一维数组中元素向右循环移位，移位次数键盘输入。...

满意答案

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分享举报