6830718906

Sub silnik() 'iteracyjne obliczenie n!

Dim n As Byte, i As Byle, sil As Long

sil = 1 'początkowa wartość n!, wykorzystywana także gdy n=Q n = InputBox( "Podaj n")' wprowadzenie danej wejściowej For i = 1 To n ‘uruchomienie pętli For

sil = i * sil 'do wartości sil w każdym cyklu pętli domnażana jest kolejna liczba naturalna i

Next

MsgBox (n & "1 = " & sil) 'wyświetlenie wyniku End Sub

Sub sumapar() 'oblicanie sumy kolejnych liczb parzystych odm do n Dim m As Integer, n As Integer, i As Integer, sum As Long m = InputBox("Podaj m")' wprowadzanie danych wejściowych If m Mod 2 <> 0 Then ' jeśli n nie jest parzyste, to ...

MsgBox ("m musi być parzyste")

Elsę ¹ a w przeciwnym razie n = InputBox("Podaj n")

For i = m To n Step 2 ' pętla ze skokiem 2

sum = sum + i

Next

MsgBox ("Suma liczb parzystych od " & m & " do " & n & " = " & sum)

End If End Sub

Sub siedem()' czy w zaznaczonym obszarze arkusza jest liczba podzielna przez 7 Dim komora ' zawartość komórki może być dowolnego typu, więc deklarujemy ją jako Variant

For Each komora In Selection 'pętla For ... Each

If komora.Value <> 0 Then 'Jeśli a nie jest zerem lub pustą komórką

If komora.Value Mod 7 = 0 Then 'Jeśli znajdujemy choć jedną liczbę podzielną przez 7

MsgBox ("Jest liczba podzielna przez 7") 'Wyświetlamy komunikat

Exit Sub 'i nie mamy już potrzeby szukać dalej, więc opuszczamy procedurę

End If 'szukamy dalej

End If

Next

MsgBox ("Nie ma liczb podzielnych przez 7")

End Sub

Sub pisz_siedem() 'odszukaj w zazn. obszarze liczby podzielne przez 7 i wypisz je pod tym obszarem

Dim komora, licznik As Byte For Each komora In Selection If komora.Value <> 0 Then

If komora. Value Mod 7 = 0 Then' jeśli znaleziono liczbę podzielną przez 7 Cells(SelectiomRow + Selection.Rows.Count, SelectiomCołumn + licznik).Value = komora. Value ‘wypisz ją pod obszarem licznik = licznik + 1 End If