在名称为FORM 的窗体上利用随机函数产生4*5个数据.每个数据要求为2位整数

来源：百度知道 编辑：UC知道 时间：2024/06/21 06:25:07
.(在10~99之间)并装如一个4*5的二维数组中.然后编写程序,找出最大数的行和列,并在窗体上输出其数值以及行号和列号
用VB 语言

Private Sub Command1_Click()
Dim max1 As Integer
Dim a(3, 4) As Integer
For i = 0 To 3
For j = 0 To 4
a(i, j) = Rnd * 89 + 10
Print a(i, j);
If max1 < a(i, j) Then
max1 = a(i, j)
han = i + 1
lie = j + 1
End If
Next
Print
Next
Print "最大数是:"; max1; "在第"; han; "行,第"; lie; "列"

End Sub