Question

VB问题：在一维数组中利用元素移位的方法显示如下所示的结果

1 2 3 4 5 6 7
7 1 2 3 4 5 6
6 7 1 2 3 4 5
5 6 7 1 2 3 4
4 5 6 7 1 2 3
3 4 5 6 7 1 2
2 3 4 5 6 7 1
1 2 3 4 5 6 7
一定要用VB写出程序 在form1中写出

Answer 1

首先将FORM1的AutoRedraw属性设为True

Private Sub Form_Load()
Dim i, j, k As Integer
Dim a(6), b(6)
For i = 0 To 6
a(i) = i + 1
Print a(i);
Next
n = 0
1: Print
If n = 7 Then
Exit Sub
End If
For j = 0 To 6
If j = 0 Then
b(j) = a(6)
Else
b(j) = a(j - 1)
End If
Next
For k = 0 To 6
a(k) = b(k)
Print a(k);
Next
n = n + 1
GoTo 1
End Sub

已验证通过

Answer 2

aaaaaaa