Модифицировать программу так, чтобы элементы массива со значением больше 100 стали равны 100 - VB

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

Помогите пожалуйста, сам чего-то понаписал, но получалось полная ерунда, так что надеюсь на вашу помощь!!!! 2. Написать программы с использованием операторов цикла с неизвестным числом повторений (do while| until…loop)и создать блок схемы по заданиям: - Найти j, при котором значение выражения (lgj+134j)/(j2-lnj+3) становится меньше при вводе с клавиатуры, если j увеличивается в ряду 1,2,3,4… 3. Написать программу с использованием операторов цикла с известным числом повторений (for i... to..next) и создать блок схему по заданию: Модифицировать программу так, чтобы элементы массива со значением больше 100 стали равны 100. Особенно интересно 3, тк с ним долго мучился и не смог решить. Очень срочно

Решение задачи: «Модифицировать программу так, чтобы элементы массива со значением больше 100 стали равны 100»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Sub Тони_Махони()
    Dim x() As Integer, i As Integer, n As Integer, s As String
    n = InputBox("Задайте целое число", "Размер массива", 10)
    ReDim x(n)
    Randomize
    s = "Исходный массив:" & vbCrLf
    For i = 0 To n
        x(i) = Int(Rnd * 200)
        s = s & x(i) & "  "
    Next
    s = s & vbCrLf & "Результат:" & vbCrLf
    For i = 0 To n
         If x(i) > 100 Then x(i) = 100
         s = s & x(i) & "  "
    Next
    MsgBox s, , "He димка"
End Sub