Afficher "Bonjour" à l'écran

Pseudo-code

Affichage de bonjour à l'écran 10 fois.

POUR Ctr = 1 Jusqu'à 10
  AFFICHE "Bonjour"
SUIVANT Ctr

Tant que l'utilisateur tape oui

AFFICHE "Voulez-vous afficher Bonjour à l'écran ?"
ACCEPTE Reponse
TANT QUE Reponse = "Oui"
  AFFICHE Bonjour
  AFFICHE "On continue ? "
  ACCEPTE Reponse
FIN TANT QUE

Jusqu'à ce que l'utilisateur tape non

REPETE
  AFFICHE "Bonjour"
  AFFICHE "Voulez-vous continuer ?"
  ACCEPTE Reponse
JUSQU'A CE QUE Reponse = "non"

Visual Basic

Version simple : affichage une seule fois de bonjour

Sub AfficherBonjour()
  Selection.TypeText "Bonjour"
End Sub

Version avec 5 fois bonjour côte à côte

Sub AfficherBonjour5FoisV1()
  Selection.TypeText "Bonjour"
  Selection.TypeText "Bonjour"
  Selection.TypeText "Bonjour"
  Selection.TypeText "Bonjour"
  Selection.TypeText "Bonjour"
End Sub

Même version mais avec un For .. To .. Next

Sub AfficherBonjour5FoisV2()
  For Ctr = 1 To 5
    Selection.TypeText "Bonjour"
  Next
End Sub

Version longue avec un saut de paragraphe entre chaque Bonjour

Selection.TypeText permet d'écrire du texte à l'écran

Sub AfficherBonjour5FoisV3()
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
End Sub

Le saut de paragraphe et le For .. To .. Next

Selection.TypeParagraph : Est équivalent à la touche ENTER

Sub AfficherBonjour5FoisV4()
  For Ctr = 1 To 5
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
  Next
End Sub

Ce programme affiche au moins une fois bonjour
Le programme répète la boucle tant que l'utilisateur répond Oui
Do ...
...
Loop While

Sub AfficherBonjourTantQueOui()
  Do
  Reponse = InputBox("Voulez-vous afficher Bonjour ?")
  Selection.TypeText "Bonjour"
  Selection.TypeParagraph
  Loop While Reponse = "oui"
End Sub

Ce programme aussi affiche au moins une fois bonjour
Le programme répète la boucle jusqu'à ce que l'utilisateur réponde Non
Do ...
...
Loop Until

Sub AfficherBonjourJusqueNon()
  Do
    Reponse = InputBox("Voulez-vous afficher Bonjour ?")
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
  Loop Until Reponse = "non"
End Sub

Ce programme n'affichera peut-être pas une seule fois bonjour
Do While ...
...
Loop

Sub AfficherBonjourTantQueOuiV2()
  Reponse = InputBox("Voulez-vous afficher Bonjour ?")
  Do While Reponse = "oui"
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
    Reponse = InputBox("Voulez-vous continuer à afficher Bonjour ?")
  Loop
End Sub

Ce programme n'affichera peut-être pas une seule fois bonjour
Do While ...
...
Loop

Sub AfficherBonjourJusqueNonV2()
  Reponse = InputBox("Voulez-vous afficher Bonjour ?")
  Do Until Reponse = "non"
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
    Reponse = InputBox("Voulez-vous continuer à afficher Bonjour ?")
    Loop
End Sub

Utilisation d'Exit Do

Sub ExitDo()
  Do
    Reponse = InputBox("Voulez vous écrire Bonjour à l'écran ?")
    If Reponse <> "oui" Then
      Exit Do
    End If
    Selection.TypeText "Bonjour"
    Selection.TypeParagraph
  Loop
End Sub