Цикл с условием - VB (171979)

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

Задание создать массив А + Создать массив Б + Вывести из них массив С Си= Аи, Если Аи>=Би Возникает ошибка next without For так то криво работает InputBox, при запросе не выводя текст

Private Sub Command1_Click()
Dim n As Integer
Dim i As Integer
Dim a() As Single
Dim b() As Single
i = 0
n = InputBox(“V_vedite_N”)
Text1.Text = CInt(n)
ReDim a(n) As Single
ReDim b(n) As Single
For i = 1 To n
a(i) = CStr(CInt(Int((60 * Rnd()) + 1)))
arrA.Text = arrA.Text & CStr(i) & " " & CStr(a(i)) & " "
 
b(i) = CStr(CInt(Int((60 * Rnd()) + 1)))
arrB.Text = arrB.Text & CStr(i) & " " & CStr(b(i)) & " "
Next i

For i = 1 To n
If a(i) >= b(i) Then
arrC.Text = arrC.Text & CStr(i) & " " & CStr(a(i)) & " "
 
Next i      -ошибка здесь
End If
 
End Sub

Решение задачи: «Цикл с условием»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim n As Integer
    Dim i As Integer
    Dim a() As Single
    Dim b() As Single
    i = 0
    n = InputBox("V_vedite_N")
    Text1.Text = CInt(n)
    ReDim a(n) As Single
    ReDim b(n) As Single
    For i = 1 To n
        a(i) = CStr(CInt(Int((60 * Rnd()) + 1)))
        arrA.Text = arrA.Text & CStr(i) & " " & CStr(a(i)) & " "
         
        b(i) = CStr(CInt(Int((60 * Rnd()) + 1)))
        arrB.Text = arrB.Text & CStr(i) & " " & CStr(b(i)) & " "
    Next i
     
    For i = 1 To n
        If a(i) >= b(i) Then
            arrC.Text = arrC.Text & CStr(i) & " " & CStr(a(i)) & " "
        End If
    Next i
End Sub
                        