double arrow

Програмний код для кнопки cmdVvod(подія Click)


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


Сейчас читают про: