VB编程:求3*4矩阵中元素的最大值和最小值
来源:百度知道 编辑:UC知道 时间:2024/06/07 19:48:48
如题。
Private Sub Command1_Click()
Dim i As Integer, j As Integer, max As Integer, min As Integer
Dim a(3, 4) As Integer
For i = 0 To 3 '以随机数组为例,可按需改动
For j = 0 To 4
a(i, j) = Int(10 * Rnd())
Next
Next
For i = 0 To 3
For j = 0 To 4
If a(i, j) > max Then max = a(i, j)
If a(i, j) < min Then min = a(i, j)
Next
Next
Print max, min
End Sub