programme VB6

salut pour tous , je veux ce algorthme en VB 6 s'ils vous plait

Exercice 3.2
Variable N en Entier
Debut
N <---- 0          ( N.B: <----- = fléche)
ecrire " Entrez un nombre entre 1 et 3 "
Tantque  N < 1 ou N > 3
  Lire N
      Si N < 1 ou N > 3 Alors
        Ecrire " Saisie erronée.Recommencez"
      Finsi
 FinTanque
FIn

Salut,

SI tu as lue le reglement, on est pas la pour resoudre les exercices mais pour donner des conseils

alors
tant que --> while
finqtanque --> wend
Variable N en Entier --> dim i as integer

Lire N <-- Plus complexe en vb6 (par exemple inputbox ou textbox et tu saisis la valeur dedans)

SI --> if
alors --> then

ecrire --> ecrire dans un label ou une texbox

Bon courage

merci oui j'ai déja lue le regleent mais le prblm dans l'écriture

J'ai rien compris
Mais ton code et apres on peut corriger

Bonjour,

Moi je ne vais pas faire ton exercice, mais te montrer cet exemple fort similaire (à toi de l'adapter après analyse et compéhension) :

Dim titre As String
 Do While titre <> "inputbox en boucle jusqu'à réponse valide"
   titre = InputBox("donne un titre valide à ta question, s'il te plait")
   If titre <> "inputbox en boucle jusqu'à réponse valide" Then
     MsgBox "ce titre n'est pas acceptable sur ce forum ... Recommence"
   End If
 Loop
 MsgBox "voilà ... t'as tout compris ?"

merçi bcp pour les deux maintnant j'ai compris