Page 128 - 4192

функцію INPUTBOX, яка створює діалогове вікно введення
(рис. 38). Функція має такий формат:
INPUTBOX(рядок повідомлення[,заголовок вікна][,текст
за замовченням] [,x][,y] [,файл підказки])

Рядок повідомлення визначає текст, що відображається у
створеному вікні. Заголовок вікна визначає текст заголовка у
рядку заголовка вікна. Текст за замовченням визначає текст,
що відображається у рядку введення.
x, y – координати верхнього лівого кута вікна, яке
створюємо.
Файл підказки – відкриває вказаний файл довідкової
системи. При натисненні на кнопку ОК функція повертає
значення, яке було введено у рядок введення. Якщо ж була
вибрана кнопка Отмена, то функція поверне пустий рядок.
Наприклад, a = Val(InputBox("Введіть число a", Число a",
8, 5, 5) (рис. 8.3).

Рисунок 8.3 – Вікно підказки

2. За допомогою генератора випадкових чисел rnd. Він
генерує випадкові числа від [0,1].
Private Sub Command1_Click()
Const n = 10
Dim A(1 To n) As Integer

127