Обработка массивов - VB (62573)

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

Можно ли создать в Visual Basic программу чтоб она находила значение переменной Y после выполнения программы и выдавала ответ например такое,надо найти Y

A(1) = 5
A(2) = 2
A(3) = -2
A(4) = 1
y = 0
For i=1 to 4
Select case i
Case 1, 3, 4
y = y + A(i)
End select
Next i

Решение задачи: «Обработка массивов»

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

                            Dim A(1 To 4) As Single
 
Private Sub Command1_Click()
 
For i = 1 To 4
      If i = 1 Then
           If A(i) > 0 Then
                   Y = Sqr(A(i))
      Else
                   Y = 0
           End If
      End If
Next i
 
Label1.Caption = Y
 
End Sub
                        