Leçon de la série : « Programmation en Visual Basic.NEN pour les écoliers"
Vous êtes familiarisé avec le contrôle ComboBox.
Dans cette leçon, nous continuerons notre étude des opérateurs du langage Visual Basic.Net, en nous concentrant sur les opérateurs de boucle.
Il existe trois types de structures algorithmiques cycliques :
- des contre-boucles, dans lesquelles le corps de la boucle est exécuté un certain nombre de fois ;
- boucles pour traiter des tableaux ou des collections ;
- boucles conditionnelles, dans lesquelles le corps de la boucle est exécuté lorsque la condition est vraie (ou jusqu'à ce que la condition devienne vraie).
Dans cette leçon, nous examinerons l'opérateur de boucle avec un compteur (For . . . Next). Écrivons un projet en utilisant cet opérateur.
Faire du vélo avec compteur Pour. . . Suivant t est utilisé lorsqu'on sait à l'avance combien de répétitions doivent être effectuées.
Diagramme
Vue générale de l'opérateur
Pour le compteur = StartValue To EndValue Corps de la boucle suivant [Compteur]
La syntaxe de l'opérateur est la suivante : la ligne commençant par le mot-clé For est le début de la boucle, et la ligne avec le mot-clé Next est la fin de la boucle, entre elles se trouvent les instructions qui constituent le corps de la boucle.
Algorithme d'exécution de l'opérateur For. . . Suivant
- La valeur de la variable Counter est définie comme étant égale à StartValue.
- La condition Compteur est cochée<= КонЗнач
- Si la condition est remplie, alors le corps de la boucle est exécuté. La variable Compteur est modifiée par la valeur du pas : Compteur = Compteur + pas.
- Lorsque la variable Counter atteint la valeur ConValue, la boucle se termine et les instructions suivantes sont exécutées.
Le programmeur peut organiser une sortie prématurée de la boucle à l'aide de la construction Exit For. Dans ce cas, la boucle est automatiquement quittée et le contrôle est transféré à la commande suivante suivant la boucle.
Projet "Revenus en dépôt"
Écrivez un projet qui calcule le revenu d'un dépôt et fournit le calcul des intérêts simples et composés. Les intérêts simples sont accumulés à la fin de la durée du dépôt, les intérêts composés sont accumulés mensuellement et sont ajoutés au montant du dépôt initial, et les intérêts du mois suivant sont accumulés sur le nouveau montant. La forme recommandée est indiquée dans la figure.
Technologie d'exécution
Ce didacticiel a montré comment utiliser une boucle For...Next pour répéter le code un nombre de fois spécifié.
Toute action dans une procédure qui est répétée un nombre de fois spécifié ou jusqu'à ce qu'une condition soit remplie ou non est appelée faire du vélo .
Le processus d'exécution de toutes les instructions contenues dans une structure de boucle est appelé itération de boucle.
Les structures de boucle qui s'exécutent toujours un nombre de fois spécifié sont appelées boucles avec un nombre fixe d'itérations. D'autres types de structures en boucle se répètent un nombre variable de fois en fonction d'un ensemble de conditions. De tels cycles sont appelés cycles indéfinis.
Le bloc d'instructions situé entre le début et la fin de la boucle est appelé "corps boucle".
La structure de boucle la plus simple est cycle fixe .
Pour..boucle suivante
Syntaxe
Pour comptoir = CommencerÀ Fin
Déclarations
Suivant [ comptoir]
Compteur - n'importe quelle variable numérique VBA
Début - toute expression numérique qui définit la valeur initiale de la variable compteur
Fin - une expression numérique qui définit la valeur finale de la variable compteur
Par défaut, VBA incrémente une variable comptoir de 1 à chaque fois que les instructions sont exécutées dans la boucle. Vous pouvez définir une valeur différente ( Taille Ster- toute expression numérique) par laquelle il changera comptoir.
Mot-clé Suivant indique à VBA que la fin de la boucle a été atteinte. Variable facultative comptoir après le mot clé Suivant doit être la même variable comptoir, qui a été spécifié après le mot-clé Pour au début de la structure de la boucle.
Vous trouverez ci-dessous une liste de la boucle la plus simple Pour..Suivant, qui compte la somme des nombres de 1 à 10 :
Et maintenant deux options pour le cycle Pour..Suivant en utilisant une étape de boucle autre qu'une :
Note! Lors de la diminution du compteur de cycles Pour..Suivant la boucle s'exécute tant que la variable compteur est supérieure ou égale à la valeur finale, et lorsque le compteur de boucle est incrémenté, la boucle s'exécute tant que la variable compteur est inférieure ou égale à la valeur finale.
Boucle pour chaque..Suivant
Faire du vélo Pour chacun..Suivant n'utilise pas de compteur de cycles. Cycles Pour chacun..Suivant sont exécutés autant de fois qu'il y a d'éléments dans un groupe particulier, comme une collection d'objets ou un tableau (qui sera discuté plus tard). Autrement dit, le cycle Pour chacun..Suivant est exécuté une fois pour chaque élément du groupe.
Syntaxe
Pour chaque Élément Dans Groupe
Déclarations
Suivant [ Élément]
Élément - une variable utilisée pour parcourir tous les éléments d'un groupe spécifique
Le groupe est un objet de collection ou un tableau
Instructions : une, plusieurs ou aucune instruction VBA (corps de la boucle).
Instructions de boucle
En VBA Il existe deux principaux types de boucles : les boucles avec un compteur (paramétrique) et les boucles avec une condition (itérative).
Les contre-boucles sont utilisées dans les cas où il est nécessaire d'effectuer certaines actions un certain nombre de fois.
Les boucles conditionnelles sont utilisées lorsque certaines actions d'un programme doivent être répétées jusqu'à ce qu'une certaine condition soit remplie.
Boucles avec paramètre Pour… Suivant
Structure des cycles :
Pour Cycle_parameter = Initial_ValueÀ Valeur_finale
[Étape Étape]
Les opérateurs
[Sortie pour]
Suivant [Paramètre_cycle]
où pour mot-clé VBA (de), indiquant le début du cycle ;
variable loop_parameter définie comme compteur de boucle ;
Initial_Value un nombre qui spécifie la valeur initiale du paramètre de boucle ;
Vers le mot-clé VBA (avant), diviser
Initial_Value et Final_Knowledge ;
Final_Value un nombre précisant la valeur du paramètre de boucle,
À quel moment le cycle se termine ;
Mot-clé d'étape VBA (étape) utilisé pour
Spécifications des étapes de boucle, argument facultatif ;
Étape un numéro spécifiant l'étape du cycle, c'est-à-dire la valeur par laquelle
Augmente (ou diminue) la valeur du paramètre
Faites du vélo à chaque étape. Ce numéro pourrait être
Négatif;
Quitter pour opérateur de sortie anticipée de la boucle (facultatif) ;
Suivant mot-clé VBA (suivant) désignant
Fin du cycle.
Travail en vélo :
Étape 1 Tout d'abord, le paramètre de boucle est déterminé et les valeurs initiales et finales de cette variable sont calculées et stockées.
Étape 2 Le paramètre de boucle reçoit une valeur initiale.
Étape 3 La valeur initiale du paramètre de boucle est comparée à la valeur finale.
Si le paramètre de boucle est supérieur à la valeur finale, le programme quitte immédiatement la boucle et passe à la ligne de code qui suit la boucle.
Étape 4 Le corps de la boucle est exécuté.
Étape 5 Après avoir exécuté le corps de la boucle, la valeur suivante est attribuée au paramètre de boucle. Passez à l'étape 3.
Note.
1. Si un mot-clé est utiliséÉtape , alors le paramètre de boucle change en fonction du numéro spécifié après ce mot. Si le motÉtape est absent, alors la valeur du pas est égale à un.
Exemple 1.
Pour I = 0 à 10 Étape 2 (Valeur I augmentera de 2)
2. Pour... Boucle suivante peut être résilié de manière anticipée lorsqu’une condition est atteinte. Pour ce faire, au bon endroit dans la boucle vous devez placer l'opérateur Quitter pour.
Exemple 2.
Dim S comme entier
Dim j comme entier
S=2
Pour j = 1 à 10
S = S + j
Si S > 6 Alors
Quitter pour (Sortez de la boucle si la valeur S > 6)
Fin si
Suivant j
Boîte de message(S)
Boucles conditionnelles (itératives)
Si une action (plusieurs actions) doit être effectuée plusieurs fois, mais que l'on ne sait pas à l'avance combien de fois et que cela dépend d'une condition, vous devez alors utiliser une boucle avec une précondition ou une postcondition.
En VBA il y a deux boucles principales FAIRE... BOUCLE avec une condition saisie par un mot clé Alors que , et avec la condition renseignée par le mot-clé Jusqu'à . Les deux peuvent être avec précondition ou postcondition.
Syntaxe:
où faire mot-clé (faire);
Alors que mot-clé (encore) ;
Jusqu'à mot-clé (jusqu'à);
Boucle un mot-clé indiquant la fin du cycle ;
<условие>une expression logique dont la vérité est vérifiée
Au début de chaque exécution du corps de la boucle ;
<тело_цикла>séquence arbitraire d'opérateurs ;
À faire...Pendant la construction lit : faire tant que la condition est remplie. En conception Faire... pendant que pour
Le faire... Jusqu'à ce que la construction indique : faire jusqu'à ce que la condition soit remplie. En conception Faire jusqu'à ce que Pour augmenter le pas, vous devez écrire un opérateur spécial, car dedans, contrairement au design Pour , cela ne se fait pas automatiquement.
Condition écrite après le mot clé Jusqu'à , est vérifié à la fin de chaque itération (après l'exécution du corps de la boucle). Notez que cela ne fonctionne pas exactement de la même manière que dans la boucle Alors que . Si la condition est vraie ( Vrai ), puis la boucle se termine. Si la condition n'est pas remplie (est faux FAUX ), puis le corps de la boucle est à nouveau exécuté.
Exemple 1.
Formulation du problème. Calculez la somme d’une série finie à l’aide d’une procédure de sous-programme.
Technologie d'exécution de tâches :
1. Données initiales : je Z
Résultat : S R .
2.Tapez la procédure personnalisée suivante dans le module de projet standard à l'aide d'une boucle avec une précondition Alors que:
Sous-somme()
Dim S comme entier
Dim i comme entier
S=0
je = 1
Faire pendant que je<= 10
S = S + je^2
je = je + 1
Boucle
Boîte de message(S)
Fin du sous-marin
3.Tapez la procédure personnalisée suivante dans le module de projet standard à l'aide d'une boucle avec une précondition Jusqu'à:
Sous-somme()
Dim S comme entier
Dim i comme entier
S=0
je = 1
Faire jusqu'à i > 10
S = S + je^2
je = je + 1
Boucle
Boîte de message(S)
Fin du sous-marin
4 Tapez la procédure personnalisée suivante dans le module projet standard à l'aide d'une boucle avec une postcondition Alors que:
Sous-somme()
Dim S comme entier
Dim i comme entier
S=0
je = 1
S = S + je^2
je = je + 1
Boucle pendant que je<= 10
Boîte de message(S)
Fin du sous-marin
5 Tapez la procédure personnalisée suivante dans le module projet standard à l'aide d'une boucle avec une postcondition Jusqu'à:
Sous-somme()
Dim S comme entier
Dim i comme entier
S=0
je = 1
S = S + je^2
je = je + 1
Boucle jusqu'à i > 10
Boîte de message(S)
Fin du sous-marin
Cette leçon couvrira le travail avec une boucle. Pour en VBA. Un exemple de travail avec la boucle For ; un exemple de création de formules dans Excel à l'aide de macros sera également démontré.
Faire du vélo Pour fonctionne sur le principe d'un compteur. Pour utilisé dans les cas où il est nécessaire de répéter certaines actions un nombre de fois prédéterminé. Par exemple, un cycle Pour souvent utilisé lors de la lecture de tableaux.
Faire du vélo Pour a la syntaxe suivante :
Pour comptoir =
début de cycle À fin de cycle [Étape étape]
groupe d’opérateurs, équipes, etc.
Quitter pour
Suivant comptoir
- "comptoir" - une variable qui devient la valeur spécifiée "étape". Si l'étape n'est pas spécifiée, la valeur par défaut est une.
- "début de cycle", "fin de cycle" - nombres ou variables indiquant la limite inférieure du compteur et la limite supérieure. Le cycle s'arrête lorsque "compteur" >"fin de cycle" ( ou, si le cycle est inversé, c'est-à-dire par pas de -1, puis "comptoir"< "fin de cycle").
- Sortie pour – commande pour forcer l’arrêt du cycle. Il est utilisé dans les cas où un événement s'est produit après lequel il est nécessaire d'arrêter l'exécution des commandes dans la boucle ou d'éviter qu'une erreur ne se produise.
Regardons quelques exemples d'utilisation d'une boucle Pour. À l’avenir, nous rencontrerons ce cycle assez souvent.
Exemple 1
Étant donné deux colonnes C et E remplies de chiffres :
Vous devez additionner les nombres de la colonne C avec les nombres de la colonne E comme suit :
C2+E21, C3+E20, ..., C21+E2. Afficher le résultat dans la colonne D sous forme de formule, c'est-à-dire Le contenu de la cellule de résultat doit être "=C2+E21".
Le code de la macro ressemble à ceci (lisez où écrire le code) :
Sous Boucle_For()
"une constante indiquant la limite de la boucle, c'est-à-dire jusqu'à quelle valeur la boucle doit s'exécuter
Const n = 21
Pour je = 2 À n
"créez une chaîne de formule et enregistrez-la dans une cellule
Cellules (i, 4) = "=C" & CStr(je) & "+E" & CStr((n - je) + 2)
"suite lors de l'exécution en boucle
Suivant je
" reste du code du programme
Fin du sous-marin
Analysons le code écrit :
- Const n = 21 - description de la constante n avec la valeur 21, c'est-à-dire nombre de lignes que la boucle doit parcourir Pour;
- Pour je = 2 À n - i est un compteur qui changera de 1 à chaque passage de la boucle. Le compteur commence à 2 et se termine lorsque i>n ;
- Cellules(i, 4) - cellule attribué feuille, i est le numéro de ligne, 4 est le numéro de colonne dans laquelle le résultat est affiché. Notez que notre compteur i indique le numéro de ligne de la feuille Excel ;
- Ensuite je- opérateur pour fermer la boucle et déplacer le pointeur vers Pour. Tout entre Pour Et Suivant exécuté en boucle;
- CStr- fonction qui convertit un nombre en texte.
On attribue à la cellule la formule créée comme suit "=C" & CStr(je) & "+E" & CStr((n - je) + 2). Le signe & est le « collage » de caractères et de chaînes. En conséquence, nous obtenons la formule « =Cn+E((n - i) + 2) » où n = 21, i est le compteur.
Effrayant? Il semble juste :)
Tous. Après avoir exécuté la macro, nous obtiendrons la colonne suivante (en surbrillance), et dans chaque cellule la formule :
Exemple 2
Considérons maintenant une boucle avec l'étape spécifiée. Après avoir calculé la dernière macro, nous avons reçu trois colonnes, nous devons maintenant soustraire D de la colonne E et afficher les formules de soustraction dans la colonne F. Le code de la macro est le suivant :
Sous Boucle_For_with_step()
Const n = 21
Pour je = n À 2 Étape -1
Cellules (i, 6) = "=E" & CStr(identifiant"& CStr(je)
Suivant je
Fin du sous-marin
Dans ce cas, tout est pareil, seul le cycle « passe » désormais non pas de 2, mais de 21 à 2 avec l'étape -1.
Le résultat de l'exécution sera le suivant :
Faire du vélo Pour, en VBA, n'est pas la seule boucle. À l'avenir, nous envisagerons quelques options supplémentaires pour les boucles, dont vous ne pourrez pas vous passer lors de l'écriture de commandes macro dans Excel.