Dim n As Integer, i As Integer, A() As Integer
‘Опис глобальних змінних в області General
-------------------------------------------------------------
Private Sub CmdVvod_Click()
txta.Text = ""
n = txtn.Text
ReDim A(n) As Integer
For i = 1 To n
A(i) = InputBox("Ввести a(" & i & ")=")
txta.Text = txta.Text & A(i) & " "
Next i
End Sub
Програмний код для кнопки cmdRun (подія Click)
Private Sub CmdRun _Click()
Dim s As Integer
s = 0
For i = 1 To n
s = s + A(i)
Next i
txts.Text = s
End Sub
Результати роботи програми зображені на рис. 6.2.
Рисунок 6.2 –Результат роботи приклада 6.2