试在窗体中以隔行方式输出10行随机英语大写字母，每行显示52个字符。这一题，我试过了，但是不对，下标会越界，而且，也不能按照输出10行

[xiaoyanzixiaoyanzi8]

这一题，我试过了，但是不对，下标会越界，而且，也不能按照输出10行随机英语大写字母。


Private Sub Command1_Click()

Dim Letter(9, 51) As String
Dim I, j As Integer

For j = 1 To 10
For I = 1 To 52
LetterAscii = Int(Rnd * 26) + 65
Letter(I, j) = Chr(LetterAscii)
Print Letter(I, j);
Next I
Next j


End Sub

[ClientDC]

Dim Letter(9, 51) As String
Dim I, j As Integer

For j = 0 To 9
For I = 0 To 51
LetterAscii = Int(Rnd * 26) + 65
Letter(I, j) = Chr(LetterAscii)
Print Letter(I, j);
Next I
Next j

[用户 昵称]

Private Sub Command1_Click()

Dim Letter(1 to 10, 1 to 52) As String '''''''''''''
Dim I, j As Integer

For j = 1 To 10
For I = 1 To 52
LetterAscii = Int(Rnd * 26) + 65
Letter(I, j) = Chr(LetterAscii)
Print Letter(I, j);
Next I
Next j


End Sub

[hfrui]

Dim Letter(9, 51) As String
Dim I, j As Integer

For j = 0 To 9
For I = 0 To 51
LetterAscii = Int(Rnd * 26) + 65
Letter(I, j) = Chr(LetterAscii)
Print Letter(I, j);
Next I
print '换行
Next j

[northwolves]

楼上几位i,j颠倒了，应该这样：


Private Sub Command1_Click()

Dim Letter(9, 51) As String
Dim i, j As Integer
Randomize
For i = 0 To 9
For j = 0 To 51
Letter(i, j) = Chr(Int(Rnd * 26) + 65)
Print Letter(i, j);
Next
Print
Next
End Sub