Ветвление,цикл For - VB

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

пожалуйста,помогите написать программу! вот задание: Задача : Дано: натуральное n ( 1 <= n <= 12 )., действительные y1,..,yn. Найти: z1^2+z2^2+...+zn^2 , где zi= yi при 0<yi<10 или zi=1 в противном случае. Последовательность чисел ввести с помощью элемента функции InputBox(). Вычисления производить после нажатия командной кнопки «Вычислить». Результат отобразить на форме с помощью элемента управления метка. Перебор значений реализовать с помощью оператора цикла FOR

Решение задачи: «Ветвление,цикл For»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Option Explicit 
 
Dim y() As Single 
Dim n As Integer 
Dim z As Single 
Dim i As Integer 
Dim str As String 
 
Private Sub btnIn_Click()
 
  n = Val(InputBox("Введите значение переменной n (от 1 до 12)", "Окно ввода 1"))
 ReDim y(n) 
  str = ""
 For i = 1 To n
 
   y(i) = Val(InputBox("Введите значение переменной y(" & i & ")", "Окно ввода 2"))
  str = str & "  " & y(i)
Next i
End Sub
 
Private Sub btnCalc_Click()
Me.Cls
For i = 1 To n
 
  If y(i) > 0 And y(i) < 10 Then
   z = z + y(i) ^ 2
  Else
   z = z + 1
  End If
Next
 
 Label1.Caption = "Результат вычисления равен " & z
End Sub