Программа про одномерный массив. - VB

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

Есть задачка..нужно написать текст программы.. Собcтвенно сама задача: В одномерном массиве из 20 вещественных элементов вычислить: 1. Количество элементов массива меньших С. 2. Сумму целых частей элементов массива расположенных после первого отрицательного элемента. Заранее спасибо.

Решение задачи: «Программа про одномерный массив.»

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

                            Private Sub Command1_Click()
Dim A(20) As Single
  ' или
   'Dim A(): A = Array(, 1, 2, 3, 4, 5, 6, 7, -8, _
   ' 1, 2, -3, 5, 1, 1, 1, 1, 1, 1, 1, 1)
        'при этом строка 12 /Randomize/ и 14 /A(i) = Rnd * 101 - 50/ закомент.
Dim C As Single, Kc As Integer, S_ As Single
Dim i As Integer, st As String, st1 As String
Dim tr As Boolean
 
C = Val(InputBox("C-?", , 10))
Randomize
For i = 1 To 20
  A(i) = Rnd * 101 - 50 '
  st = st & A(i) & "  "
    
    If A(i) < C Then Kc = Kc + 1
    
    If tr Then
       S_ = S_ + Fix(A(i))
       st1 = st1 & Fix(A(i)) & " + "
    End If
    
    If A(i) < 0 Then tr = True
    
Next i
MsgBox st & vbCrLf & _
"<C-- " & Kc & vbCrLf & _
"S_int=" & Left(st1, Len(st1) - 3) & " = " & S_
End Sub
                        