83521

MsgBox ("Otrzymałeś ocenę: " & ocena) End Sub

To samo zadanie, ale z wykorzystaniem instrukcji wyboru: Sub ocenyl()

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 Elsę 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^A2-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 liniowego, usuń deklaracje zmiennych z nagłówka i usuń apostrofy, _ znajdujące się przed liniami poniżej