Leren programmeren: brandstofverbruik

We nemen een tekstvak voor de invoer van de prijs van de benzine (txtPrijsperliter) en een voor de afstand (txtAfstand), een knop cmdBereken en een label voor de uitvoer (lblPrijs).
De code:

Private Sub cmdBereken_Click()
Dim prijsbenzine As Single
Dim afstand As Single
Dim verbruik As Single
Dim kostprijs As Single
verbruik = 6
If Not IsNumeric(txtPrijsperliter.Text) Then Exit Sub
prijsbenzine = CSng(txtPrijsperliter.Text)
If Not IsNumeric(txtAfstand.Text) Then Exit Sub
afstand = CSng(txtAfstand.Text)
kostprijs = verbruik * prijsbenzine * afstand / 100
lblPrijs.Caption = "Je reis kost " & kostprijs" & " euro."
'in VB .NET: lblPrijs.Text

Een belangrijke bemerking: ook het verbruik is allesbehalve vast. Om dat in het programma te kunnen inbouwen, hebben we een paar mogelijkheden, zoals bv. het verbruik laten invoeren, of door het verbruik dat vorige keer in het programma gebruikt is, op te slaan. In VBA en VB zal men dat in eerste instantie in een tekstbestand doen, in VB .NET misschien eerder in een XML bestand.