Leren programmeren: som

We voorzien twee tekstvakken (txtGetal1 en txtGetal2), een knop en een label voor het resultaat (lblResultaat).
De code:

Private Sub cmdbereken_Click()
Dim getal1 As Single
Dim getal2 As Single
Dim resultaat As Single
Dim som As Single
If Not IsNumeric(txtGetal1.Text) Then Exit Sub
getal1 = CSng(txtGetal1.Text)
If Not IsNumeric(txtGetal2.Text) Then Exit Sub
getal2 = CSng(txtGetal2.Text)
resultaat = getal1 + getal2
lblResultaat.Caption = "De som van " & getal1 & " en " & getal2 & " is " & resultaat
End Sub

Op twee plaatsen gebruiken we twee keer zo goed als identieke code: voor de variabelen getal1 en getal2, en voor de invoerelementen txtGetal1 en txtGetal2. Daarvoor kunnen we eigenlijk beter arrays gebruiken: arrayus van variabelen in het eerste geval, arrays van controls in het tweede geval (niet in VB .NET). We verwijzen daarvoor naar een andere plaats van VBWEB.