Помогите пожалуйста! Сгенерировать одномерный массив действительных чисел и подсчитать сумму всех его элементов, больших 3.(Basic)

см снимки

так будет понятнее

Спасибо)

Private Sub CommandButton1_Click()Dim A(20), Sum As IntegerSum = 0    For i = 1 To 20    A(i) = Int(Rnd * 20)       If A(i) > 3 Then Sum = Sum + A(i)       TextBox1.Text = TextBox1.Text & A(i) & " "       TextBox2.Text = Sum    Next iIf TextBox1.Text <> "" ThenCommandButton1.Enabled = FalseCommandButton2.Enabled = TrueEnd IfEnd SubPrivate Sub CommandButton2_Click()If TextBox1.Text <> "" Then CommandButton1.Enabled = TrueTextBox1.Text = ""TextBox2.Text = ""CommandButton2.Enabled = FalseEnd Sub