To tylko jedna z 9 stron tej notatki. Zaloguj się aby zobaczyć ten dokument.
Zobacz
całą notatkę
Sub silnik() 'iteracyjne obliczenie n! Dim n As Byte, i As Byte, sil As Long sil = 1 'początkowa wartość n!, wykorzystywana także gdy n=0 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 & "! = " & sil) 'wyświetlenie wyniku End Sub
Sub sumapar() 'oblicanie sumy kolejnych liczb parzystych od m 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") Else ' 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(Selection.Row + Selection.Rows.Count, Selection.Column + licznik).Value = komora.Value 'wypisz ją pod obszarem licznik = licznik + 1 End If End If Next End Sub
Sub liczby() ' wprowadzanie liczb z InputBoxa do arkusza do momentu, gdy wpisze się zero Dim licznik As Byte, liczba As Integer
Do 'otwieramy pętlę liczba = InputBox("Podaj kolejną liczbę") 'wprowdzamy kolejną liczbę Cells(ActiveCell.Row, ActiveCell.Column + licznik).Value = liczba 'wpisujemy liczbę do arkusza w wierszu od celi aktywnej licznik = licznik + 1 'zwiększanie licznika pętli Loop Until liczba = 0 ' warunek stopu
End Sub
Sub liczby1() ' wprowadzanie liczb z InputBoxa do arkusza do momentu, gdy wpisze się zero 'Jeśli zmienimy miejsce spradzenia warunku stopu program nie wypisze żadnej liczby - zastanów się dlaczego? Dim licznik As Byte, liczba As Integer
Do Until liczba = 0 ' warunek stopu liczba = InputBox("Podaj kolejną liczbę") 'wprowdzamy kolejną liczbę Cells(ActiveCell.Row, ActiveCell.Column + licznik).Value = liczba 'wpisujemy liczbę do arkusza w wierszu od celi aktywnej licznik = licznik + 1 'zwiększanie licznika pętli
(…)
… zakresie komórek: " & max & Chr(13) _ & "Najmniejsza liczba w zaznaczonym zakresie komórek: " & min, vbInformation, "Najmniejsza i największa" End Sub 1. Napisz procedurę zamalowującą wskazany obszar arkusza na czerwono i ustawiającą w nim 13 pkt. pogrubioną czcionkę Times New Roman. 2. Napisz kod procedury wpisującej do arkusza, począwszy od komórki B2 macierz 10x7 zawierającą liczby całkowite…
… = vbYes Then GoTo początek End Sub Sub podzielne_przez_n_1() Dim n As Byte, komorka n = InputBox("Podaj dzielnik:") For Each komorka In Selection If komorka.Value Mod n = 0 Then MsgBox (komorka.Value & " jest podzielne przez " & n) End If Next End Sub Sub podzielne_przez_n_2() Dim n As Byte, nw As Byte, nk As Byte, i As Byte, j As Byte, k As Byte n = InputBox("Podaj dzielnik:") nw = Selection.Row nk = Selection.Column For i = 1 To Selection.Rows.Count For j = 1 To Selection.Columns.Count If Cells(nw + i - 1, nk + j - 1) Mod n = 0 Then Cells(nw + Selection.Rows.Count + 1, nk + k) = Cells(nw + i - 1, nk + j - 1) k = k + 1 End If Next Next End Sub Sub podzielne_przez_n_3() Dim n As Byte, nw As Byte, nk As Byte, i As Byte, zakres As Range, komorka n = InputBox("Podaj dzielnik:") Set zakres = Application.InputBox…
… zakresie komórek: " & max & Chr(13) _ & "Najmniejsza liczba w zaznaczonym zakresie komórek: " & min, vbInformation, "Najmniejsza i największa" End Sub 1. Napisz procedurę zamalowującą wskazany obszar arkusza na czerwono i ustawiającą w nim 13 pkt. pogrubioną czcionkę Times New Roman. 2. Napisz kod procedury wpisującej do arkusza, począwszy od komórki B2 macierz 10x7 zawierającą liczby całkowite…
... zobacz całą notatkę
Komentarze użytkowników (0)