Sub powitanie()

Dim imie As String

moje_imie = InputBox("Podaj imię:")

MsgBox ("Witaj" & moje_imie)

End Sub

Sub cyfry()

Dim a As Integer

Dim b As Integer

Dim suma As Integer

a = InputBox("Podaj liczbę:")

b = InputBox("Podaj liczbę:")

suma = a + b

Cells(1, 1) = a

Cells(2, 2) = b

Cells(3, 3) = a + b

MsgBox (a & " + " & b & " = " & suma)

End Sub

Sub porownanie()

Dim a As Integer

Dim b As Integer

Dim porownanie As Boolean

a = InputBox("Podaj liczbę:")

b = InputBox("Podaj liczbę:")

porownanie = a = b

MsgBox (porownanie)

End Sub

Sub operatory()

Dim a As Single

Dim b As Single

a = InputBox("Podaj liczbę:")

b = InputBox("Podaj liczbę:")

If a - b < 0 Then

MsgBox ("Podaj inne liczby a - b < 0 ")

GoTo 66

Else

If a * b = 0 Then

MsgBox ("Podaj inne liczby a * b = 0 ")

GoTo 66

Else

MsgBox ((a - b) ^ 1 / 2)

End Sub