Определить сумму чисел, кратных 4, количество двузначных чисел, произведение отрицательных чисел - VB

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

Сформировать массив из 15 случайных чисел в интервале от –5 до 20. Определить сумму чисел, кратных 4, количество двузначных чисел, произведение отрицательных чисел. Для вывода массива использовать массив текстовых полей.

Решение задачи: «Определить сумму чисел, кратных 4, количество двузначных чисел, произведение отрицательных чисел»

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

                            'Установи в свойствах Text1 значение < Index = 0 >    ИЛИ
'Просто скопируй контрол Text1 на эту же форму
 
'Так-же забрось на форму кнопку с именем Command1
 
 
Private Sub Command1_Click()
    
    Const c = 15
    Dim i&(c), f&, sum&
    Randomize Timer
    For f = 0 To c - 1
        i(f) = Int(-5 + Rnd * 20 + 5)
        '----------------------
        If i(f) Mod 4 = 0 Then
            sum = sum + i(f)
            If Len(CStr(i(f))) = 2 Then
                col = col + 1
            End If
        End If
    Next
   
    On Error Resume Next
    Load Text1(1): Text1(1).Visible = True
    Text1(0).Width = 3075
    With Text1(0)
        Text1(1).Move .Left, .Top + .Height, .Width
    End With
    Text1(0) = "сумма чисел, кратных = " & sum
    Text1(1) = "количество двузначных= " & col
    
    MsgBox _
    "сумма чисел, кратных = " & sum & vbCrLf & _
    "количество двузначных= " & col
    
    
End Sub
                        