To tylko jedna z 7 stron tej notatki. Zaloguj się aby zobaczyć ten dokument.
Zobacz
całą notatkę
'Zapisane niżej procedury należy skopiowac do edytora VBA i testować.
Sub sumka() Dim a1 As Byte Dim a2 As Byte Dim sum As Byte a1 = Range("A1").Value ' wartość a1 jest pobierana z komórki A1 a2 = Range("B1").Value ' wartość a2 jest pobierana z komórki B1 sum = a1 + a2 ' obliczenie wartości zmiennej sum Range("C1").Value = sum ' kopiowanie wartości zmiennej sum do komórki C1 End Sub
Sub sumka1() Dim a1 As Byte Dim a2 As Byte 'proszę zmieniać typ zadeklarowanych zmiennych i obserwować, co się dzieje Dim sum As Byte
a1 = InputBox("Podaj wartość a1") ' wartość a1 jest pobierana za pomocą okna dialogowego InputBox a2 = InputBox("Podaj wartość a2") ' wartość a2 jest pobierana za pomocą okna dialogowego InputBox sum = a1 + a2 ' obliczenie wartości zmiennej sum MsgBox (sum) ' wartość sum wyświetlona zostaje za pomocą okna dialogowego Message Box ' MsgBox "Obliczono sumę a1 i a2 = " & sum, vbInformation + vbYesNo, "SUMA" End Sub
Sub oceny() 'napisz procedurę do zamiany punktów na stopnie Dim punkty As Integer, ocena As Single
punkty = InputBox("Wpisz liczbę punktów") 'nadajemy wartość zmiennej punkty If punkty
(…)
… a i b jako zmienne typu boolean. Napisz kody następujących procedur:
- sprawdzających, kiedy prawdziwe są koniunkcja, alternatywa i implikacja,
- dowodzących, że prawa de Morgana są tautologią
3. Instrukcja warunkowa
Narysuj schematy algorytmów i napisz kody następujących procedur:
- testującą wprowadzoną z klawiatury liczbę całkowitą, jeśli jest ujemna zwracany jest komunikat „Liczba ujemna”, jeśli 0…
…() Dim punkty As Byte, ocena As Single punkty = InputBox("Podaj liczbę punktów") Select Case punkty Case Is < 31 ocena = 2 Case Is < 36 ocena = 3 Case Is < 43 ocena = 3.5 Case Is < 48 ocena = 4 Case Is < 55 ocena = 4.5 Case Else ocena = 5 End Select MsgBox ("Twoja ocena to: " & ocena) End Sub
'Rozwiązanie równania kwadratowego
Function delta(a As Integer, b As Integer, c As Integer) As Integer delta = b ^ 2 - 4 * a * c ' obliczenie wyróżnika równania kwadratowego End Function
'Procedura z parametrami do rozwiązywania równania liniowego Sub liniowe(a As Integer, b As Integer, x) 'x deklarujemy jako Variant, gdyż może przyjąć zarówno wartość liczbową, _ jak i tekstową. Zmienna x umożliwia przekazanie wyniku obliczeń do innej procedury
'Aby uzyskać samodzielną procedurę do rozwiązywania równania…
… liniowe(b, c, x) 'jeśli nie - wywołujemy procedurę do rozwiązywania równań liniowych Else 'a jeśli tak ... Call kwadratowe(a, b, c, x) 'wywołujemy procedurę rozwiązywania równania kwadratowego End If MsgBox ("Rozwiązanie równania:" & vbCr & vbLf & x) 'po czym wypisujemy wynik End Sub
'Oczywiście program można rozwijać o sprawdzenie poprawności danych wejściowych, propozycję wykonania następnych obliczeń…
… komunikat „0”, jeśli dodatnia to sprawdza się, czy jest parzysta i wyświetla odpowiednie komunikaty.
- zamieniającą liczby rzymskie I, II, III, …, XII na nazwy odpowiednich miesięcy.
- wyznaczającą blok (s,p,d,f), do jakiego należy pierwiastek na podstawie znajomości liczby atomowej.
- sortującą 3 liczby wprowadzone z klawiatury w porządku malejącym.
Plan zajęć:
1. Co to jest stała, a co to jest zmienna? 2…
... zobacz całą notatkę
Komentarze użytkowników (0)