VBA 2

Option Explicit
Sub petla1()
' wpisuje do komórek A1:A9 kolejne liczby począwszy od 10
    Dim i As Integer, a As Integer
    a = 10
    For i = 1 To 9
    Cells(i, 1) = a
    a = a + 1 ' a++
    Next i
End Sub
Sub petla2()
'sprawdza ile razy liczba x wystąpiła w zakresie A1:A5
    Dim s As Integer, i As Integer, x As Integer, a As Integer
    x = InputBox("Podaj dowolną liczbę całkowitą")
    s = 0
    For i = 1 To 5
        a = Cells(i, 1)
            If (x = a) Then
                s = s + 1
            End If
    Next i
    MsgBox "Ilość wystąpień liczby " & x & Chr(13) & s
    End Sub
Sub petla3()
'wyszukiwanie najmniejszej/największej liczby w zakresie A1:A9
    Dim i As Integer, max As Integer, min As Integer, a As Integer
    max = Cells(1, 1)
    min = Cells(1, 1)
    For i = 1 To 9
        a = Cells(i, 1)
        If (a < min) Then
            min = a
        End If
        If (a > max) Then
            max = a
        End If
    Next i
    MsgBox "Wartośc najmniejsza: " & min & Chr(13) & "Wartość najwięsza: " & max
End Sub
Sub petla4()
' skoki
    Dim i As Integer, dist As Single, distNote, styleNote As Single, min As Integer, max As Integer
    dist = Cells(1, 2)
    min = Cells(1, 1)
    max = Cells(1, 1)
    styleNote = 0
    For i = 1 To 5
        styleNote = styleNote + Cells(i, 1)
        If Cells(i, 1) < min Then
            min = Cells(i, 1)
        End If
        If Cells(i, 1) > max Then
            max = Cells(i, 1)
        End If
    Next i
    styleNote = styleNote - (min + max)
    distNote = 60 + (dist - 120) * 1.8
    MsgBox "Punty za styl: " & styleNote & Chr(13) & "Punkty za odległość: " & distNote & Chr(13) & "Suma: " & styleNote + distNote
End Sub
Sub petla5()
' zmienia miejscami liczby w arkuszu a1->a2->...->a10
    Dim i As Integer, pom As Single
    pom = Cells(10, 1)
    For i = 9 To 1 Step -1
        Cells(i + 1, 1) = Cells(i, 1)
    Next i
    Cells(1, 1) = pom
End Sub
Sub petla6()
'silna n
    Dim n As Integer, i As Integer, s As Integer
    n = InputBox("Podaj n")
    s = 1
    For i = 1 To n
        s = s * i
    Next i
    MsgBox s
End Sub
Sub petla7()
    Dim n As Integer, s As Single, i As Integer, l As Integer, m As Integer, a As Single
    l = 1
    m = 1
    n = InputBox("Podaj n")
    For i = 1 To n
        a = l / m
        m = m * 2
        s = s + a
    Next i
    MsgBox s
End Sub
Sub petla8()
    Dim n As Integer, s As Single, l As Single, m As Single, i As Integer, a As Single
    l = 1
    m = 1
    s = 0
    n = CInt(InputBox("Podaj n")) ' Cint konwertuje na typ Integer
    For i = 1 To n
        Cells(i, 4) = l
        Cells(i, 5) = m
        a = l / m
        l = -l
        m = 2 * i + 1
        s = s + a
        Cells(i, 6) = s * 4
    Next i
    MsgBox s * 4
End Sub
Sub petla9()
    Dim n As Integer, i As Integer, b As Boolean
    n = CInt(InputBox("Podaj liczbę"))
    b = True
    For i = 2 To Sqr(n)
        If n Mod i = 0 Then
            b = False
        End If
    Next i
    If b = True Then
        MsgBox "liczba " & n & " pierwsza"
    Else
        MsgBox "liczba " & n & " nie jest pierwsza"
    End If
End Sub
Sub petla10()
' zamiana liczby 8-bitowej binarnej na dziesiętną, kolejne cyfry liczby binarnej znajdują się w komórkach A1:A8
    Dim i As Integer, dec As Integer
    dec = 0
    For i = 1 To 8
        dec = dec + Cells(i, 1) * 2 ^ (8 - i)
    Next i
    MsgBox dec
End Sub
Sub petla11a()
' sprawdzanie poprawności numeru PESEL, kolejne cyfry numeru PESEL w komórkach A1:A11
    Dim i As Integer, k As Integer, sum As Integer
    Dim wagi() As Variant
    wagi = Array(9, 7, 3, 1, 9, 7, 3, 1, 9, 7)
    sum = 0
    For i = 1 To 10
        sum = sum + Cells(i, 1) * wagi(i - 1)
    Next i
    'k = sum Mod 10 ' k - cyfra kontrolna
    If sum Mod 10 = Cells(11, 1) Then
        MsgBox "PESEL poprawny"
    Else
        MsgBox "PESEL niepoprawny"
    End If
End Sub
Sub petla11b()
    Dim i As Integer, sum As Integer, wagi() As Variant
    wagi = Array(1, 3, 7, 9, 1, 3, 7, 9, 1, 3, 1)
    sum = 0
    For i = 1 To 11
        sum = sum + wagi(i - 1) * Cells(i, 1)
    Next i
    If sum Mod 10 = 0 Then
        MsgBox "PESEL poprawny"
    Else
        MsgBox "PESEL nie jest poprawny"
    End If
End Sub

' zadanie 12a
' a = 2
' b = 16
' c = 7

' zadanie 12b
' a = 5
' b = 8
' c = 8