Function t_rand()
s = ""
Dim a(0 To 4, 0 To 5) As Integer
Max = 0
For i = 0 To 3
For j = 0 To 4
a(i, j) = Int((100 * Rnd) + 1)
If a(i, j) > Max Then Max = a(i, j)
s = s & a(i, j) & vbTab ' Debug.Print a(i, j)
Next j
s = s & vbCrLf
'Debug.Print
Next i
s = s & "max=" & Max
Form1.Text1.Text = s
End Function
追问你用的是vb什么版本,界面我不是太懂,另外,如果同时显示最大值的坐标应该怎么办
如果同时显示最大值的坐标怎么办,
追答Dim a%(4, 5)
Dim imax As Integer
Dim jmax As Integer
Private Sub Command1_Click() '产生并输出
For i = 1 To 4
For J = 1 To 5
a(i, J) = Int(Rnd * 100) '[1,100]
Print a(i, J);
Next J
Print '换行
Next i
End Sub
Private Sub Command2_Click() '求最小值
Max = a(1, 1) '最大值的初始值为第一个元素
For i = 1 To 4
For J = 1 To 5
If Max < a(i, J) Then
Max = a(i, J)
imax = i
jmax = J
End If
Next J
Next i
Print "最大值为:"; Max; ",坐标为(" & imax & "," & jmax & ")"
End Sub
坐标加上了