眼睛神经跳可以治好吗:vb高手帮忙

来源:百度文库 编辑:中科新闻网 时间:2024/03/29 17:10:56
编制程序,用随机函数产生20个两位数的整数,存于4行5列的二维数组中,将数组按矩阵形式输出到窗体,并求出其中最大元素及它的行、列坐标。

有什么一两句说不清?

Private Sub Form_Click()
Dim a(4, 5) As Integer
Dim Max As Integer
Randomize Timer
For i = 1 To 4
For j = 1 To 5
a(i, j) = Rnd * 90 + 10
If a(i, j) > Max Then Max = a(i, j)
Print a(i, j);
Next
Print
Next
Print
Print "The max number is"; Max; "(" & i & "," & j & ")"
End Sub

不是简单问题,一二句话说不清的。