Информатика 2011-2012 / Дополнительная информация / msgBox

Sub gggg1()

a = 2

d = 6

c = 4

y = a + d - 25

MsgBox y, , "y="

End Sub

Sub gggg1()

m: a = Val(InputBox("ввести a", , "a="))

b = 6

c = 4

MsgBox a + b - c, , "Значение y равно"

i = MsgBox("Продолжить программу", 67, "")

If i = 6 Then GoTo m1

If i = 7 Then GoTo m

If i = 2 Then End

m1:

y = a + b - c

Debug.Print "Продолжение работы"; "y="; y

End Sub

MsgBox "Значение y равно"