Напишите программу - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д