Stations: broncode

De variabelen die we nodig hebben:

Option Explicit
Dim station(50) As String 'de stations
Dim nr As Integer 'de nummers van elk van die stations
Dim bestemming As String
Dim aankondiging As String
Dim laatste As Integer 'het nummer van het laatste station, de bestemming
Bij het laden van het formuleir vragen we de stations:

Private Sub Form_Load()
For nr = 1 To 50
station(nr) = InputBox("Geef het " & nr & "e station." & vbCrLf & "Als alle stations zijn ingegeven, sluit af met een lege string")
If station(nr) = "" Then
bestemming = station(nr - 1)
laatste = nr
Exit For
End If
Next nr
Label1.Caption = "Dit is de trein met bestemming " & bestemming
nr = 1
End Sub
Bij een druk op de knop gaan we een station verder:

Private Sub Command1_Click()
Dim volgende As Integer
aankondiging = "Deze trein stopt in "
For volgende = nr To laatste
aankondiging = aankondiging & " " & station(volgende)
Next volgende
Label2.Caption = "Volgende halte: " & station(nr) & vbCrLf & aankondiging
nr = nr + 1
If station(nr) = bestemming Then End
End Sub