Создание кода по блок схеме - 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
                        