利用VB程序编写随机数生成一个6行6列的整形矩阵（100~900范围内）找出某个指定行列内的最大

窗体上需有：三个command按钮，两个text框，第一个输入要查找的行数，text2输入要查找的列数。还要有一个label1,用于显示极值。代码如下：
Dim a(1 To 6, 1 To 6) As Integer
Private Sub Command1_Click() '查找行的极值
Dim a As Integer
a = Val(Text1.Text)
If a > 6 Or a < 1 Then MsgBox "输入的数字应在1至6之间": Exit Sub
Label1.Caption = hmax(a)
End Sub

Private Sub Command2_Click() '查找列的极值
Dim b As Integer
b = Val(Text1.Text)
If b > 6 Or b < 1 Then MsgBox "输入的数字应在1至6之间": Exit Sub
Label1.Caption = lmax(b)
End Sub

Private Sub Command3_Click() '重置按钮
Cls
Form_Load
End Sub

Private Sub Form_Load() '随机生成6*6方阵
Show
Print
Randomize
For i = 1 To 6
For j = 1 To 6
a(i, j) = Int(Rnd * 800) + 100
Print a(i, j);
Next
Print
Print
Next
End Sub

Public Function hmax(n As Integer) '查找行极值函数
Max = a(n, 1): Min = a(n, 1)
For i = 1 To 6
If Max < a(n, i) Then Max = a(n, i)
If Min > a(n, i) Then Min = a(n, i)
Next
hmax = "第" & n & "行的最大值是：" & Max & Chr(13) & "最小值是：" & Min
End Function

Public Function lmax(n As Integer) '查找列极值函数
Max = a(1, n): Min = a(1, n)
For i = 1 To 6
If Max < a(i, n) Then Max = a(i, n)
If Min > a(i, n) Then Min = a(i, n)
Next
lmax = "第" & n & "列的最大值是：" & Max & Chr(13) & "最小值是：" & Min
End Function本回答被网友采纳

Dim i ,j, as integer
Randomize()
For i = 1 to 6
For j = 1 to 6
text1.text=Cint(rnd()*801+100)
Next j
text1.text &= vbcrlf
Next i