با زبان ويژوال بيسيك
آرايه اي 3 در 4 تعريف كرده و ماكزيمم هر ستون را مشخص كنيد
iaidin
2010/12/14, 10:16 AM
Dim Array1(3, 4) As Integer
برای ستون اول
Dim max As Integer = Array1(0, 0)
For i As Integer = 1 To 2
If Array1(i, 0) > max Then
max = Array1(i, 0)
End If
Next
MsgBox(max)