Определить максимальный элемент массива VB
Формулировка задачи:
Отметки точек трассы представлены как элементы массива. В этом
массиве находят разность мах и мин элементов для определения размаха
эпюры трассы. Величина размаха учитывается при выборе размеров
(формата) чертежа. В данной задаче студентам следует решить только
первую часть проблемы: определить максимальный элемент массива
Решение задачи: «Определить максимальный элемент массива VB»
textual
Листинг программы
Option Explicit Private Sub Form_Activate() Dim A(20) As Integer, i As Integer, j As Integer Dim Max As Integer, Min As Integer Randomize Timer For i = 1 To 20 A(i) = Int(100 * Rnd - 45) Print A(i); Next i Print 'отделяем от максимума и минимума MsgBox " Определим максимум и минимум " Max = A(1): Min = A(1) For j = 1 To 20 If A(j) >= Max Then Max = A(j) If A(j) <= Min Then Min = A(j) Next j MsgBox " максимум = " & Max & "; минимум = " & Min Print "Max ="; Max Print "Min ="; Min End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д