Question

VB程序题5

5.下列程序用来在窗体上输出如图2-35所示的数据。
Private Sub Form_Click()
Dim a(5, 5) As Byte, i As Byte, j As Byte
For i=1 To 5
For j=1 To 6一i
a(i, j)=_________
Next j，1
For i=2 To 5
For j =______To 5
a(i,j)=J+i-6
Next j,i
For i=1 To 5
Forj=1 To 5
Print a(ij);
Next j
_________
Next
End Sub

1 2 3 4 5
2 3 4 5 1
3 4 5 1 2
4 5 1 2 3
5 1 2 3 4
图2-35窗体上的输出数据

Answer 1

Private Sub Form_Click()
Dim a(5, 5) As Byte, i As Byte, j As Byte
For i = 1 To 5
For j = 1 To 6 - i
a(i, j) = i + j - 1 '
Next j
Next i
For i = 2 To 5
For j = 6 - i + 1 To 5 '
a(i, j) = j + i - 6
Next j
Next i
For i = 1 To 5
For j = 1 To 5
Print a(i, j);
Next j
Print
Next i
End Sub

Answer 2

Dim a(5, 5) As Byte, i As Byte, j As Byte
For i = 1 To 5
For j = 1 To 6 - i
a(i, j) = i + j - 1
Next j, i
For i = 2 To 5
For j = 7 - i To 5
a(i, j) = j + i - 6
Next j, i

For i = 1 To 5
For j = 1 To 5
Print a(i, j);
Next j
Print Chr(10), Chr(13)
Next