To tylko jedna z 3 stron tej notatki. Zaloguj się aby zobaczyć ten dokument.
Zobacz
całą notatkę
Zad. 1. Uruchom program Microsoft Excel. Następnie przejdź do edytora Visual Basic (Narzędzia - Makro - Edytor Visual Basic) i stwórz nowy moduł. MoŜna go dodać wybierając polecenie Module (Moduł) z menu Insert (Wstaw) edytora. Następnie utwórz proste makro o nazwie suma_liczb, które będzie obliczało sumę dwóch liczb podanych przez uŜytkownika. Schemat blokowy do zadania powinien zostać wykonany na poprzednich zajęciach. Wskazówki: 1. NaleŜy zdeklarować wszystkie zmienne zwracając uwagę na ich typ (typy zmiennych omówiono na poprzednich zajęciach). Deklaracja zmiennej, niezaleŜnie od typu przechowywanych danych ma następującą składnię: Dim NazwaZmiennej As TypZmiennej 2. Wprowadź wartości do zmiennych za pomocą funkcji InputBox(): a = InputBox ("Podaj pierwszą liczbę: ") 3. Oblicz sumę i wyświetl komunikat. MoŜliwość wyświetlania tekstu komunikatu daje instrukcja MsgBox. Zad. 2 . Na podstawie schematu blokowego wykonanego na poprzednich zajęciach napisać program obliczający pole prostokąta. W programie naleŜy sprawdzić czy podane przez uŜytkownika długości boków są dodatnie. JeŜeli nie, wyświetlić odpowiedni komunikat. Do warunkowego wykonania fragmentu kodu wykorzystaj Instrukcję sterującą IF. Postać blokowa instrukcji IF wygląda następująco: If warunek Then [blok_instrukcji_1] Else [blok_instrukcji_2] End If Zad. 3. Napisać program obliczający maksimum z trzech dodatnich liczb podanych przez uŜytkownika. Wcześniej narysować schemat blokowy. Zad. 4. Napisać program obliczający wartość funkcji sgn(x). W programie naleŜy wykorzystać instrukcję Select Case, która jest instrukcją zastępującą wielokrotnie zagnieŜdŜone instrukcje If … ElseIf … Else , czyniąc kod bardziej czytelnym i efektywnym. Select Case wyrazenietestowe Case listawyrazen_1 [blok_instrukcji_1] Case listawyrazen_n [blok_instrukcji_n] Case Else [blok_instrukcji_dla_else] End Select Przykład uŜycia instrukcji Select Case: Zad. 5. Napisz program obliczający pole koła. NaleŜy uŜyć wcześniej zapisaną funkcję. = 0 x dla 1 - 0 x dla 0 0 x dla 1 ) ( x sign Zad. 6. Napisać makro, które rozwiązuje równanie kwadratowe
... zobacz całą notatkę
Komentarze użytkowników (0)