Пример 5 Создание простого диалогового окна 2

Задание:

• Ввести число
• По нажатию кнопки, в зависимости от состояния флажка прибавить к нему число 10 или оставить данное число без изменений

Добавим на нашу форму флажок (Checkbox), он принимает всего 2 значения True/False, т.е:

• включен -True
• выключен -False

Можно это учесть в программе, изменив соответствующую строку на

If CheckBox1 = True Then

TextBox2 = TextBox1 + 10

Else

TextBox2 = TextBox1

End If

‘ Пример 6 вывод приветствия при запуске Word.

Sub AutoExec()

'

' Макрос4 Макрос

' Макрос создан 23.10.2008

' Сообщение должно содержать имя, задаваемое по вводу. В случае не введения имени вывести другое произвольное сообщение приветствия.

Dim name As String

name = InputBox("Введите ваше имя", "Приветствие")

If name <> "" Then

msgbox "Привет, " & name, vbInformation, "Приветствие"

Else

msgbox "Добрый день,незнакомец!" & name, vbOKOnly, "cообщение"

End If

End Sub

В результате на экране будет

одно из сообщений: