Напишите программу - VB
Формулировка задачи:
Напишите программу в visual basic при помощи которой можно узнать под каким номером в столбце стоит максимальное число.
Решение задачи: «Напишите программу»
textual
Листинг программы
Option Base 1
Private Sub Form_Load()
Dim a(10, 10) As Single, i As Byte
Dim max As Single, maxI As Single, j As Byte
For i = 1 To 10
For j = 1 To 10
a(i, j) = Int(100 * Rnd - 50)
Next j
Next i
max = a(1, 1): maxI = 1
For i = 1 To 10
For j = 1 To 10
If a(i, j) > max Then max = a(i, j): maxI = j
Next j
Next i
MsgBox "Максимум (" & max & ") находится в " & maxI & " столбце."
End Sub