Leren programmeren: vermenigvuldigingstafel


Om een tafel van vermeniggvuldiging op te bouwen gebruiken we:

De code ziet er dan zo uit:

Private Sub cmdStart_Click()
Dim getal As Integer
Dim doorloper As Integer
getal = InputBox("Geef een geheel getal")
For doorloper = 1 To 10
  lblTafel.Caption = lblTafel.Caption & doorloper & " * " & getal & " = " & doorloper * getal & vbCrLf
Next doorloper
End Sub

Op te merken:


[VB Web] - [Leren programmeren] - [hlrnet] - [copyright]