Saisir la ou les instructions permettant la réalisation de l'interface suivante

La valeur de sortie de la boîte de message sera stockée dans

une variable nommée

Par défaut, la réponse sera Oui.

Indiquez la ou les instructions à saisir pour coder l'interface suivante.

La

fenêtre permet d’affecter une valeur à la variable

L’extrait de code suivant contient une erreur. On vous demande de l'identifier, l'expliquer et de proposer

une correction de ce code.

Option Explicit

Sub Jeu_dé()

Dim i As Byte, dés As byte, cumul_dé As

Byte

cumul_dé = 0

i = 0

Do

            Randomize

            dé = Int(Rnd() * 6) + 1

            i = i + 1

            MsgBox "Le lancer " & i

& " du dé, a pour valeur  :

" & dé

 Loop While cumul_dé <= 20

MsgBox "Vous avez atteint 20 points

en " & i & " lancer de dé"

End Sub

L’extrait de code suivant contient une erreur. On vous demande de l'identifier, l'expliquer et de proposer

une correction de ce code.

Option Explicit

Sub Tables( )                                                                                          

Dim M( 1 To 100 ) As String, c As String

Dim Cellules As Range                                                                                   

Dim q As Byte

Set Cellules = Range(" A1 : AZ1")

Cellules=""

Do

q = InputBox(" Donnez le nombre des éléments de la table ")

Loop Until q >= 1 And q <= 100

For c = 1 To q

M( c )

= InputBox(" Saisir une chaîne de caractères")

         Cells(1 , c) = M( c )

Next

End Sub

En analysant le code suivant, indiquez le comportement attendu de la procédure.

Sub MaProcedure()

Dim var1 as integer

Dim var3 as byte

var1=128.516

var3=CByte(var1)

Msgbox var3

End Sub

A la lecture du code suivant, que se passe-t-il si l'utilisateur clique sur NON ?

Sub Extraction()

L’instruction :

 MsgBox "Pour avancer choisissez Oui ou Non", vbYesNo

Quel code permet de réaliser l'interface suivante ?

Quel est le problème avec cette boucle VBA ?

Dim i As Integer

Quel est le code permettant de réaliser l'interface suivante ?