VISUAL BASIC

Prozedurbeispiel

Berechne den Bruttopreis mit einem Prozeduraufruf!

Lösungsvorschlag:

Private Brutto As Currency
Private Sub Preis(netto As Currency, MwSt As Single) 'Prozedur
Brutto = netto * (1 + MwSt / 100)
End Sub
Private Sub BerechnenCommand1_Click()
Dim Nettopreis As Currency
Dim Steuer As Single
Nettopreis = Form1.bruttoText1.Text
Steuer = Form1.MwstText2.Text
Preis Nettopreis, Steuer ' Prozeduraufruf
Form1.ausgabeLabel3.Caption = "Der Bruttopreis beträgt " + Str(Brutto) + "."
End Sub