Question

vb 一维数组 移位

当窗体加载时，在窗体中利用一维数组移位的方法显示如图所示的结果：
1 2 3 4 5 6 7 8
8 1 2 3 4 5 6 7
7 8 1 2 3 4 5 6
6 7 8 1 2 3 4 5
5 6 7 8 1 2 3 4
4 5 6 7 8 1 2 3
3 4 5 6 7 8 1 2
2 3 4 5 6 7 8 1
1 2 3 4 5 6 7 8 谢谢各位大侠啊 ！急急！！。。。。。。。

Answer 1

'窗体上有个ID为txtShow的文本框控件（设置为多行显示）
private sub form1_load()
dim ar(7) as integer={1,2,3,4,5,6,7,8}
dim j as short=0
for j=0 to 8 '你要显示9行
for i=0 to 7 '每行显示8个数字
txtShow.text+=ar((i+j) MOD 8).ToString &" "
next

txtShow.text+=chr(13)'换行
next
end sub

Answer 2

Private Sub Form_Load()
Me.AutoRedraw = True
Dim a(1 To 8) As Integer
For i = 1 To 8
a(i) = i
Next i
For j = 1 To 9
For i = 1 To 8
Print a((8 + i - j) Mod 8 + 1);
Next i
Print
Next j
End Sub