Question

VB数组移位

Private Sub Form_Click()
Dim a(1 To 7) As Integer
For i = 1 To 7
a(i) = i ’赋初值，生成第一个标准数组
Print a(i);
Next i
Print
For i = 1 To 7
t = ’最右1为暂存
For j = 6 To 1 Step -1
’其余6位向右移一位
Next j
’暂存的移入最左
For j = 1 To 7
Print a(j);
Next j
Print
Next i
End Sub
求

Answer 1

Private Sub Command1_Click()
Dim a(1 To 7) As Integer
For i = 1 To 7
a(i) = i '赋初值，生成第一个标准数组
Print a(i);
Next i
Print
For i = 1 To 7
t = a(7) '最右1为暂存
For j = 6 To 1 Step -1
a(j + 1) = a(j) '其余6位向右移一位
Next j
a(1) = t '暂存的移入最左
For j = 1 To 7
Print a(j);
Next j
Print
Next i
End Sub