• Гідрологія і Гідрометрія
• Господарське право
• Економіка будівництва
• Економіка природокористування
• Економічна теорія
• Земельне право
• Історія України
• Кримінально виконавче право
• Медична радіологія
• Методи аналізу
• Міжнародне приватне право
• Міжнародний маркетинг
• Основи екології
• Предмет Політологія
• Соціальне страхування
• Технічні засоби організації дорожнього руху
• Товарознавство продовольчих товарів

End Sub

Dim x As Integer

Option Explicit

End Sub

Після того натиснемо кнопку «ОК», змінній Now буде присвоєно значення: «1 вересня», тобтоdat ="1 вересня".

Якщо другий і третій аргумент буде опущено, то функція InputBox і вікно діалогу будуть мати такий вигляд:

Public Sub Друга_програма()

x = InputBox("Введіть число ")

Як бачимо в заголовку вікна ім’я додатку- Microsoft Excel, поле для введення пусте в нього треба ввести число, наприклад 5, а потім натиснути OK. Змінній х буде присвоєно значення 5.

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

Public Sub Сума_двох_чисел()

Dim x As Integer, y As Integer

x = InputBox("Введіть число x")

y = InputBox("Введіть число y")

Sum = x + y

MsgBox "Сума x+y=" & Sum, vbInformation, "Результат"

End Sub

Переглядів: 615