Создание кода по блок схеме - VB

Формулировка задачи:

Прощу помощи в создании кода VB по данной ниже блок схеме. Код чем проще тем лучше, если можно с комментариями. Заранее благодарю. От меня спасибо + хорошая карма

Код к задаче: «Создание кода по блок схеме - VB»

textual
Private Sub Command1_Click()
Dim i As Integer, n As Integer 'счетчик и размерность
Dim X(), max 'массив и максимум
n = 10 'пусть размерность 10 /можно любое/
ReDim X(n) 'переобъявляем массив по размерности
For i = 1 To n 'в цикле
X(i) = Int(Rnd * 20) 'генерируем случайные числа массива
Print X(i); " "; 'и по ходу печатаем их для наглядности
Next i
Print 'переходим на новую строку
max = X(1) 'для начала за макс принимаем первый элемент
For i = 2 To n 'потом в цикле уже от 2
If max < X(i) Then max = X(i) 'если находим больше макс то переприсваиваем
Next i
Print "max="; max 'выводим
End Sub
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

9   голосов, оценка 4.333 из 5


СДЕЛАЙТЕ РЕПОСТ