Sub logika()
Dim a As Integer
a = InputBox(" Podaj dowolną liczbę całkowitą")
If a < 0 Then
MsgBox ("Liczba jest ujemna")
Else
If a = 0 Then
MsgBox ("0")
Else
If a Mod 2 = 0 Then
MsgBox ("Liczba parzysta")
Else
MsgBox ("Liczba nieparzysta")
End If
End If
End If
End Sub

Sub miesiące()
Dim a As String
a = InputBox("Nr miesiąca w alfabecie rzymskim")
If a = "I" Then
MsgBox ("styczeń")
Else
If a = "II" Then
MsgBox ("luty")
Else
If a = "III" Then
MsgBox ("marzec")
Else
If a = "IV" Then
MsgBox ("kwiecień")
Else
If a = "V" Then
MsgBox ("maj")
Else
If a = "VI" Then
MsgBox ("czerwiec")
Else
If a = "VII" Then
MsgBox ("lipiec")
Else
If a = "VIII" Then
MsgBox ("sierpień")
Else
If a = "IX" Then
MsgBox ("wrzesień")
Else
If a = "X" Then
MsgBox ("październik")
Else
If a = "XI" Then
MsgBox ("listopad")
Else
If a = "XII" Then
MsgBox ("grudzień")
Else
MsgBox (" Ma być rzymska!")
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End If
End Sub

Sub pierwiastki()
Dim a As Integer
a = InputBox("Podaj liczbę atomową pierwiastka")
If 0 < a And a <= 2 Then
MsgBox ("Pierwiastek z bloku s")
Else
If 3 <= a And a <= 18 Or 30 <= a And a <= 36 Or 48 <= a And a <= 54 Or 80 <= a And a <= 86 Or 112 <= a And a <= 118 Then
MsgBox ("Pierwiastek z bloku sp")
Else
If 19 <= a And a <= 47 Or 71 <= a And a <= 79 Or 103 <= a And a <= 111 Then
MsgBox ("Pierwiastek z bloku dsp")
Else
If 55 <= a And a <= 70 Or 87 <= a And a <= 102 Then
MsgBox ("Pierwiastek z bloku fdsp")
Else
MsgBox ("To nie jest liczba atomowa pierwiastka")
End If
End If
End If
End If
End Sub

Sub kolejność()
Dim a, b, c As Single
a = InputBox("Podaj pierwszą liczbę")
b = InputBox("Podaj drugą liczbę")
c = InputBox("Podaj trzecią liczbę")
If a > b Then
If a > c Then
If b > c Then
MsgBox ("Kolejność malejąca to: " & a & ", " & b & ", " & c)
Else
MsgBox ("Kolejność malejąca to: " & a & ", " & c & ", " & b)
End If
Else
MsgBox ("Kolejność malejąca to: " & c & ", " & a & ", " & b)
End If
Else
If b > c Then
If a > c Then
MsgBox ("Kolejność malejąca to: " & b & ", " & a & ", " & c)
Else
MsgBox ("Kolejność malejąca to: " & b & ", " & c & ", " & a)
End If
Else
MsgBox ("Kolejność malejąca to: " & c & ", " & b & ", " & a)
End If
End If
End Sub