In diesem Beispiel wird die Beep-Anweisung verwendet, um drei aufeinanderfolgende Signaltöne über den Lautsprecher des Computers auszugeben.
Dim I For I = 1 To 3 ' 3 Schleifendurchläufe. Beep ' Signalton ausgeben. Next I