这个VB程序代码怎样编写?

来源：百度知道 编辑：UC知道 时间：2024/05/25 00:10:43
有一个n行m列的矩阵,单击按钮编写程序找出最大的元素所在的行和列,并显示最大值和行号,列号

Private Sub Form_Click()
Cls
Randomize
Dim a(9), b(9)
For i = 0 To 9
a(i) = Int(Rnd * 100)
b(i) = a(i)
Print a(i) & " ";
Next
For i = 9 To 1 Step -1
For j = 0 To i - 1
If a(j) > a(j + 1) Then
t = a(j)
a(j) = a(j + 1)
a(j + 1) = t
End If
Next j
Next i
Print
Print "最大的数是：" & a(9)

For i = 0 To 9
If b(i) = a(9) Then
Print "在数组中的位置是：" & i + 1
End If
Next
End Sub