Напишите программу - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 4 из 5
Похожие ответы