用随机函数生成一个6行6列的整型数组

Private Sub Form_Load()
Dim x, y, n, l As Integer
Dim max(1 To 6), maxnum(1 To 6) As Integer
Dim ranum(1 To 6, 1 To 6) As Integer

Me.AutoRedraw = True
Print "================================"
Randomize
For x = 1 To 6
For y = 1 To 6
ranum(x, y) = Int((100 - 1 + 1) * Rnd + 1)
Print ranum(x, y);
If max(x) < ranum(x, y) Then
max(x) = ranum(x, y)
maxnum(x) = y
End If
Next y
Print vbCrLf;
Next x

reinput:
n = Val(InputBox("请输入第几行"))
If n < 0 Or n > 6 Then MsgBox ("该值必须大于0小于7"): GoTo reinput
On Error GoTo reinput
Print "================================"
Print "你选择的行数为:" & n
Print 该行为:"
For y = 1 To 6
Print ranum(n, y);
Next y
Print vbCrLf & "该行最大的值所在列为:" & maxnum(n)
End Sub