Option Explicit

Const strNazwaMakra As String = "Obliczanie silni"

lngLiczba = CLng(Val(strLiczba))

Sub podatek_2010_1()
Dim dochód As Long, podatek As Currency
On Error Resume Next
dochód = InputBox("Podaj Twój dochód w 2010 r. po zaokrągleniu do pełnych złotych.")
On Error GoTo 0
If dochód <= 85528 Then
    podatek = 0.18 * dochód - 556.02
        Else
            podatek = 14839.02 + 0.32 * (dochód - 85528)
                End If
If podatek < 0 Then podatek = 0
MsgBox "Twój podatek wynosi " & podatek
End Sub

Sub podatek_2010_2()
Dim dochód As Long, podatek As Currency
On Error Resume Next
dochód = InputBox("Podaj Twój dochód w 2010 r. po zaokrągleniu do pełnych złotych.")
On Error GoTo 0
Select Case dochód
Case Is <= 85528
    podatek = 0.18 * dochód - 556.02
Case Else
    podatek = 14839.02 + 0.32 * (dochód - 85528)
End Select
If podatek < 0 Then podatek = 0
MsgBox "Twój podatek wynosi " & podatek
End Sub

Sub Silnia_Iteracja()

''Deklaracje zmiennych lokalnych
Dim lngSilnia As Double
Dim strLiczba As String
Dim lngLiczba As Long
Dim i As Long

'Pętla Do...Loop, wykonywana dopóty użytkownik poda prawidłowe dane
Do
   'Wyświetlenie okienka do pobrania danych.
   strLiczba = InputBox("Podaj liczbę dodatnią, mniejszą od stu", strNazwaMakra)

   'Jeżeli użytkownik nie podał żadnego ciągu
   'lub wcisnął przycisk "Cancel" kończymy pracę programu.
   If strLiczba = vbNullString Then End

   'Wychodzimy z pętli Do...Loop, jeżeli użytkownik podał prawidłą liczbę
   If Not IsNumeric(strLiczba) Then
       MsgBox "To nie jest liczba.", vbInformation, strNazwaMakra
   Else
       If Val(strLiczba) < 0 Or Val(strLiczba) > 100 Or _
          (Val(strLiczba) <> CLng(Val(strLiczba))) Then _
          MsgBox "Nieprawidłowa liczba.", vbInformation, strNazwaMakra _
          Else Exit Do
   End If
Loop

'Zamieniamy ciąg (typ String) na liczbę typu Long (całkowitą)
lngLiczba = CLng(Val(strLiczba))


'Panu doktorowi chodzi pewnie o cos takiego:
'---------------------------------------------
'------------- pierwsza petla ----------------
'---------------------------------------------
lngSilnia = 1
lngLicznik = 2

If lngLiczba > 0 Then
   Do While lngLicznik <= lngLiczba
      lngSilnia = lngSilnia * lngLicznik
      lngLicznik = lngLicznik + 1
   Loop
End If

'wys'wietlenie wyniku.
MsgBox "Wynik: " & lngLiczba & "! = " & lngSilnia, vbInformation

'---------------------------------------------
'-------- koniec pierwszej petli -------------
'---------------------------------------------


'---------------------------------------------
'--------------- druga petla -----------------
'---------------------------------------------
lngSilnia = 1
lngLicznik = 2

If lngLiczba > 0 Then
   Do Until lngLicznik > lngLiczba
      lngSilnia = lngSilnia * lngLicznik
      lngLicznik = lngLicznik + 1
   Loop
End If

'wys'wietlenie wyniku.
MsgBox "Wynik: " & lngLiczba & "! = " & lngSilnia, vbInformation

'---------------------------------------------
'---------- koniec drugiej petli -------------
'---------------------------------------------

'---------------------------------------------
'--------------- trzecia petla ---------------
'---------------------------------------------
lngSilnia = 1
lngLicznik = 2

If lngLiczba > 0 Then
   Do
      lngSilnia = lngSilnia * lngLicznik
      lngLicznik = lngLicznik + 1
   Loop While lngLicznik <= lngLiczba
End If

'wys'wietlenie wyniku.ilnia
MsgBox "Wynik: " & lngLiczba & "! = " & lngSilnia, vbInformation

'---------------------------------------------
'---------- koniec trzeciej petli ------------
'---------------------------------------------

'---------------------------------------------
'--------------- czwarta petla ---------------
'---------------------------------------------
lngSilnia = 1
lngLicznik = 2

If lngLiczba > 0 Then
   Do
      lngSilnia = lngSilnia * lngLicznik
      lngLicznik = lngLicznik + 1
   Loop Until lngLicznik > lngLiczba
End If

'wys'wietlenie wyniku.ilnia
MsgBox "Wynik: " & lngLiczba & "! = " & lngSilnia, vbInformation

'---------------------------------------------
'---------- koniec czwartej petli ------_-----
'---------------------------------------------
End Sub

Sub Silnia_Iteracja()

'Deklaracje zmiennych lokalnych
Dim lngSilnia As Double
Dim strLiczba As String
Dim lngLiczba As Long
Dim i As Long

'Pętla Do...Loop, wykonywana dopóty użytkownik poda prawidłowe dane
Do
   'Wyświetlenie okienka do pobrania danych.
   strLiczba = InputBox("Podaj liczbę dodatnią, mniejszą od stu", strNazwaMakra)

   'Jeżeli użytkownik nie podał żadnego ciągu
   'lub wcisnął przycisk "Cancel" kończymy pracę programu.
   If strLiczba = vbNullString Then End

   'Wychodzimy z pętli Do...Loop, jeżeli użytkownik podał prawidłą liczbę
   If Not IsNumeric(strLiczba) Then
       MsgBox "To nie jest liczba.", vbInformation, strNazwaMakra
   Else
       If Val(strLiczba) < 0 Or Val(strLiczba) > 100 Or _
          (Val(strLiczba) <> CLng(Val(strLiczba))) Then _
          MsgBox "Nieprawidłowa liczba.", vbInformation, strNazwaMakra _
          Else Exit Do
   End If
Loop

'Zamieniamy ciąg (typ String) na liczbę typu Long (całkowitą)
lngLiczba = CLng(Val(strLiczba))

'ustawienie wartości początkowej zmiennej dblSilnia
lngSilnia = 1

'Jeżeli liczba jest większa od zera, obliczamy silnię w pętli.
'Pytanie za sto punktów:
'Dlaczego napisałem pętlę For i = 2 ... a nie
'For i = 1 ..., tak jak jest w definicji silni?
    If lngLiczba > 0 Then
        For i = 2 To lngLiczba
           lngSilnia = lngSilnia * i
        Next i
    End If

'wyświetlenie wyniku.
MsgBox "Wynik: " & lngLiczba & "! = " & lngSilnia, vbInformation

End Sub

Sub Silnia_Rekurencja()

'Deklaracje zmiennych lokalnych
Dim lngSilnia As Long
Dim strLiczba As String
Dim lngLiczba As Long
Dim i As Long

'Pętla Do...Loop, wykonywana dopóty użytkownik poda prawidłowe dane
Do
   'Wyświetlenie okienka do pobrania danych.
   strLiczba = InputBox("Podaj liczbę dodatnią, mniejszą od stu", strNazwaMakra)

   'Jeżeli użytkownik nie podał żadnego ciągu
   'lub wcisnął przycisk "Cancel" kończymy pracę programu.
   If strLiczba = vbNullString Then End

   'Wychodzimy z pętli Do...Loop, jeżeli użytkownik podał prawidłą liczbę
   If Not IsNumeric(strLiczba) Then
       MsgBox "To nie jest liczba.", vbInformation, strNazwaMakra
   Else
       If Val(strLiczba) < 0 Or Val(strLiczba) > 100 Or _
          (Val(strLiczba) <> CLng(Val(strLiczba))) Then _
          MsgBox "Nieprawidłowa liczba.", vbInformation, strNazwaMakra _
          Else Exit Do
   End If
Loop

'Zamieniamy ciąg (typ String) na liczbę typu Long (całkowitą)
lngLiczba = CLng(Val(strLiczba))

lngSilnia = Silnia(lngLiczba)

'wyświetlenie wyniku.
MsgBox "Wynik: " & lngLiczba & "! = " & lngSilnia, vbInformation

End Sub

Function Silnia(n As Long) As Long

Select Case n
Case 0
    Silnia = 1
Case 1
    Silnia = 1
Case Else
    Silnia = n * Silnia(n - 1)
End Select

End Function