Составить схему вычислительного процесса (вычислить значение выражения) - VB

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

Составить схему вычислительного процесса и написать программу на языке Basic. Найти значение выражения K=Y+3,2/Y+X^0,5 , где Х – минимальный элемент массива Аi (i=1,..,6) , Y – количество отрицательных элементов массива Bj (j=1,..,9).

Решение задачи: «Составить схему вычислительного процесса (вычислить значение выражения)»

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

                            Dim Ai(1 To 6) As Single, Bj(1 To 9) As Single
Dim Y As Single, X As Single, K As Single
Randomize
For i = 1 To 6
    Ai(i) = Int(100 * Rnd)
Next i
Y = 0
For i = 1 To 9
    Bj(i) = Int(100 * Rnd - 50)
    If Bj(i) < 0 Then Y = Y + 1
Next i
X = Ai(1)
For i = 2 To 6
    If Ai(i) < X Then X = Ai(i)
Next i
K = Y + 3.2 / Y + Sqr(X)
MsgBox K
                        