---

Sub Пример1 ()
Dim r As Integer, q As Integer, s As
Double
MsgBox "Моя первая программа",
vbOKCancel, "Приветствие"
r = InputBox ("Введите первое число",
"Ввод данных")
= InputBox ("Введите второе число",
"Ввод данных")
s= (r +
q
/
2
MsgBox "Среднее арифметическое=" & s
End Sub