VB当中我要求出3*3的二维数组中的最小值以及最小值的行标和列标，这是我的代码，但是错了，怎么改。

发布网友 发布时间：2022-04-24 03:15

我来回答

共3个回答

热心网友 时间：2023-10-24 06:53

Private Sub Command1_Click()
Dim a(2, 2) As Integer, row, col
Randomize
Dim i, j, min As Integer
Label1.Caption = ""
For i = 0 To 2
For j = 0 To 2
a(i, j) = Int(90 * Rnd + 10)
If i = 0 And j = 0 Then
min = a(i, j)
row = i: col = j
Else
If a(i, j) < min Then
min = a(i, j)
row = i: col = j
End If
End If
Label1 = Label1 & " " & a(i, j)
Next j
Label1 = Label1 & vbCrLf & " "
Next i
Label2 = "Min=" & min & vbCrLf & "Row=" & row & vbCrLf & "Col=" & col
End Sub

热心网友 时间：2023-10-24 06:54

dim aa%,b%,min%,i%,j%
For i = 0 To 2
For j = 0 To 2
a(i, j) = Int(90 * Rnd + 10)
Next j
Next i
aa=0
b=0

For i = 0 To 2
For j = 0 To 2
if a(i,j)<a(aa,b) then
aa=i:b=j
end if

Next j
Next i
Label2 = "Min=" & a(aa,b) & vbCrLf & "Row=" & aa & vbCrLf & "Col=" & b

热心网友 时间：2023-10-24 06:54

Private Sub Command1_Click()
Dim a(2, 2) As String
Randomize
Dim i, j, min As Integer
min = 101
For i = 0 To 2
For j = 0 To 2
a(i, j) = Int(90 * Rnd + 10)
If a(i, j) < min Then
min = a(i, j)
Label2 = "Min=" & min & vbCrLf & "Row=" & i & vbCrLf & "Col=" & j
End If
Label1 = Label1 & " " & a(i, j)
Next j
Label1 = Label1 & vbCrLf & " "
Next i
End Sub