Loops: VB code

• Eerst controleren we of er wel degelijk een getal is ingevoerd. Zoniet verwijderen we de invoer, en plaatsen we de invoegpositie terug in dat vak:
  
  If Not IsNumeric(txtAantal.Text) Then
  txtAantal.Text = ""
  txtAantal.SetFocus ' [In .NET is dit txtAantal.Focus]
  Exit Sub
  End If
  
• De eigenlijke herhaling gaat als volgt:
  
  Dim teller As Integer
  Dim msg As String
  For teller = 1 To txtAantal.Text
  msg = msg & txtText.Text & " (" & teller & ") "
  Next teller
  MsgBox msg
  
• Enkele toepassingen:
  • 2001
  • Geheel getal
  • Hello 10

[VB Web] - [hlrnet] - [copyright]