Пример 3. Ввести значение переменной N с клавиатуры, предусмотрев значение по умолчанию 10.

Ввести значение переменной N с клавиатуры, предусмотрев значение по умолчанию 10.

N = InputBox(" Введите N", " Ввод исходных данных", 10)

В результате будет выведено следующее окно для ввода значения переменной N.

Если значение по умолчанию подходит пользователю, то после щелчка кнопки ОК окно ввода закроется, переменной N присвоится значение 10 и выполнение программы возобновится с оператора, стоящего непосредственно за вызовом InputBox.

Если же значение по умолчанию не подходит пользователю, то перед щелчком по кнопке ОК необходимо ввести нужное значение переменной N.

Пример 4.

Напишите процедуру, вычисляющую площадь круга, но радиус круга задает пользователь.

Const Pi As Single =3.14

Dim CircleArea As Single

Sub List ()

Const BoxTitle = " Площадь круга"

Dim Radius As Single, Temp As String

Temp = InputBox(" Введите радиус " & Chr(13) & " круга", BoxTitle)

Radius = CSng(Temp)

CircleArea = Pi * Radius * Radius

MsgBox CircleArea, vbInformation + vbOKCancel, BoxTitle