Leren programmeren: euro

We nemen een tekstvak voor de invoer van het bedrag in euro (txtEuro), een knop cmdBereken en een label voor de uitvoer (lblPond).
De code:

Private Sub cmdBereken_Click()
Dim pond As Single
Dim bedragineuro As Single
Dim bedraginpond As Single
pond=.701
If Not IsNumeric(txtEuro.Text) Then Exit Sub
bedragineuro = CSng(txtEuro.Text)
bedraginpond = bedragineuro * pond
lblPond.Caption = "Het bedrag in pond is " & bedraginpond
'in VB .NET: lblPond.text

Een belangrijke bemerking: wisselkoersen zijn allesbehalve vast. Om dat in het programma te kunnen inbouwen, hebben we een paar mogelijkheden, zoals bv. de wisselkoers te vragen, of de wisselkoers van vorige keer dat 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.