Initiation à la programmation/Exercices/Visual Basic

Établissons ensemble l'algorithme qui à partir de la largeur et de la longueur d'un rectangle nous donne le résultat de la surface et du périmètre.

De plus, affiche si le nombre obtenu pour le périmètre est inférieur ou supérieur au nombre obtenu pour la surface.

Remarques :

• la longueur et la largeur sont des entiers.
• les valeurs sont directement saisies dans le programme.

Début { commentaire }
    déclaration des variables longueur, largeur, périmètre : entier { déclare deux variables au nom de longueur, largeur et périmètre type entier. }
    longueur = x { on affecte la variable longueur de la valeur x, idem pour la largeur }
    largeur = y
    surface = longueur * largeur { action 1 ; calcul la surface est affecte la variable surface a cette valeur }
    périmètre = 2 * longueur + 2 * largeur { action 2 ; calcul le périmètre est affecte la variable périmètre a cette valeur }
    afficher surface { permet d'afficher la variable surface }
    afficher périmètre { permet d'afficher la variable périmètre }
    Si
        Alors afficher périmètre inférieur à surface ;
        Sinon afficher périmètre supérieur à surface ;
    Fin Si
Fin

En blocs graphiques, cela nous donne la représentation suivante.

On comprend aisément à travers cet exemple, que cette représentation est peu commode.

Lancer le tableur « Excel », puis dans « Outils », puis « Macro », choisir « Visual Basic Editor ».

Dans « Visual Basic Editor », dans la fenêtre « Projet – VBA Project », cliquer sur « Afficher le code », dans la fenêtre de droite l'espace vous est réservé pour saisir votre programme.

Les commentaires sont en vert et précédé d'un ', les mots système (réservé au langage informatique) sont en bleu. Sinon, on retrouve les mêmes structures que celles exposées dans le cours.

Sub SurfaceCarré() ' Sub remplace début, et est suivi du nom du programme, ici SurfaceCarré
    Dim Largeur As Integer ' déclaration de la variable Largeur par l'instruction « Dim » (les majuscules ont leur importance aussi « largeur » est différent de « Largeur »). Le type est spécifié par l'instruction « As » et « Integer ».
    Dim Longueur As Integer
    Largeur = x ' affecte la varuabke Largeur de la valeur x
    Longueur = y
    Cells(1,1).Value = « Surface » ' affiche dans la cellule située 1er ligne et 1er colonne la chaine de caractères « Surface »
    Cells(2,1).Value = « Périmètre »
    Cells(1,2).Value = Largeur * Longueur
    Cells(2,2).Value = 2 * Largeur + 2 * Longueur
    If (Cells(2,2).Value < Cells(1,2).Value) Then ' Teste si la valeur de la 1er cellule est inférieur à la valeur de la 2nd cellule, si oui exécute la suite d'instruction après le « Then » sinon exécute les instructions après le « Else ».
        Cells(2,2).Value = « Périmètre inférieur à surface »
    Else 
        Cells(2,2).Value = « Périmètre supérieur à surface »
    End If
End Sub

Exercice n^o 1

Établir l'algorithme qui permet d'afficher la valeur d'un entier dans la cellule (1, A) d'une feuille Excel.

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 2

Établir l'algorithme qui permet de lire la valeur d'un entier dans la cellule (1, A) d'une feuille Excel, de sauvegarder cette valeur dans une variable et d'afficher cette valeur dans la cellule (3, B).

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 3

Établir l'algorithme qui permet d'intervertir la valeur d'un entier dans la cellule (1, A) d'une feuille Excel, et la valeur d'un entier dans la cellule (2, A).

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 4

Établir l’algorithme qui permet d'intervertir la valeur d'un entier dans la cellule (1, A) d'une feuille Excel, et la valeur d'un entier dans la cellule (2, A), si la cellule du haut est de valeur supérieure à la cellule du bas. Ne rien faire dans les autres cas.

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 5

Établir l'algorithme qui à partir du rayon donne le résultat de la surface et du périmètre d'un cercle.

De plus, affiche si le nombre obtenu pour le périmètre est inférieur ou supérieur au nombre obtenu pour la surface.

• le rayon sera un entier.
• les valeurs seront lues à partir de valeurs écrites dans la feuille Excel.

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 6

Dans un tableau de valeurs (déjà rangé et croissant) sur la colonne A, valeur comprise entre 5 et 50 (de 5 en 5). Trouver la position d'une valeur (indice dans le tableau) et l'afficher.

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 7

Établir l'algorithme qui permet de remplir la feuille Excel sur les 10^er lignes (1^er colonne) par des nombres croissants. De 1 à …

On devra utiliser la structure de contrôle tant que.

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 8

Établir l'algorithme qui remplit la feuille Excel sur les 10^er lignes (1^er colonne) par des nombres aléatoires compris entre 1 et 100.

Tous les entiers sont déclarés comme des variables de type entier. On devra utiliser la structure de contrôle tant que.

La fonction en Visual Basic générant 1 entier de façon aléatoire est la suivante :

Int(Rnd * 100 + 1) { Int() est une procédure qui retourne la partie entière du nombre dans la parenthèse ; Rnd génère une valeur aléatoire comprise entre 0 et 1 }

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 9

Établir l’algorithme qui remplit la feuille Excel sur les 8^er lignes et les 2^er colonnes des entiers de 1 à n.

Première version : on remplira d'abord la 1^er colonne puis la 2^nd, ce qui donnera :

	A	B
1	1	9
2	2	10
3	3	11
4	etc.	etc.

Seconde version : on remplira d'abord la 1^er colonne puis la 2^nd, ce qui donnera :

	A	B
1	1	2
2	3	4
3	5	6
4	etc.	etc.

Tous les entiers sont déclarés comme des variables de type entier.

On pourra utiliser la structure de contrôle tant que.

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 10

Établir l'algorithme qui fait la conversion décimale binaire d'un chiffre entier.

• Tous les entiers sont déclarés comme des variables de type entier.
• Les valeurs seront directement saisies dans le programme.

On dispose des variables : Quo pour le quotient ; Den pour le dénominateur ; Num pour le numérateur et Res pour le reste. Respecter ces dénominations pour que tout le monde ait les mêmes noms de variable.

L'instruction Int(…) retourne la valeur entière de ce qui se trouve dans la parenthèse (donc sans la partie après la virgule).

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 11

À partir de l'algorithme qui fait la conversion décimale — binaire d'un chiffre entier, réaliser celui qui fait la conversion décimale — hexadécimale.

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}

 

Exercice n^o 12

Établir l'algorithme qui classe en ordre décroissant les n entier dans un tableau, les n entiers étant classés de façon aléatoire au départ.

Tous les entiers sont déclarés comme des variables de type entier.

Solution

Cette solution n'a pas été rédigée. Vous pouvez le faire en modifiant le paramètre « contenu » du modèle. ^{Comment faire ?}