83524

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

'Dim a As Integer, b As Integer, x

'a = InputBox("Podaj a", "Wprowadzanie danych")

'b = InputBox("Podaj b", "Wprowadzanie danych")

If a = 0 Then If b = OThen

x = "Równanie tożsamościowe"

Elsę

x = "Równanie sprzeczne"