Примеры

Пример 1.

Объявляется глобальная переменная для хранения суммы, при нажатии кнопки появляется окно ввода числа и оно добавляется к сумме, ответ сообщается ещё в одном окне.

Public Sum As Single

Private Sub CommandButton1_Click()

Sum = Sum + InputBox("Введите число", "Обязательный ввод", 0)

MsgBox "Sum= " + Str(Sum)

End Sub

Пример 2.

Пример цикла, работающего до момента прекращения пользователям (по фопросу в диалоговом окне), запускается по кнопке.

Private Sub CommandButton2_Click()

Dim i As Integer 'счетчик итераций цикла

Dim Final As Integer

i = 0 'ноль итераций в начале

Final = 1 'продолжать пока 1

Do While Final = 1

i = i + 1

Final = MsgBox("Продолжать ?", vbOKCancel)

Loop

MsgBox "Прошло итераций " + Str(i)

End Sub

Тот же пример реализованный циклом с постусловием

Private Sub CommandButton3_Click()

Dim Final As Integer

i = 0 'ноль итераций в начале

'Final = 1 продолжать пока 1- уже НЕ НУЖНА-цикл с постусловием

Do

i = i + 1

Final = MsgBox("Продолжать ?", vbOKCancel)

Loop While Final = 1

MsgBox "Прошло итераций " + Str(i)

End Sub

Пример 3.

В процедуре объявляется динамический массив, вводится число его элементов, массив изменяется, заполняется циклом и считается сумма его элементов.

Private Sub CommandButton1_Click()

Dim A() As Single ‘динамический массив

Dim N As Integer 'размер массива

Dim sum As Single 'сумма элементов

Dim i As Integer 'счетчик цикла

N = InputBox("Введите число элементов массива", "Введите число", 5)

ReDim A(l To N)

For i = 1 To N

A(i) = InputBox("Введите элемент " + Str(i) + " й", "Обязательный ввод", 0)

sum = sum + A(i)

Next i

MsgBox "Сумма элементов " + Str(sum)

End Sub

РАЗДАТОЧНЫЙ МАТЕРИАЛ