Correction exercices VBA Traitements de chaines de caractères Série 01

Sub Operation()
Dim op As String, x As Integer, y As Integer
x=InputBox("x=")
y=InputBox("y=")
op=InputBox("operation ? p=produit s=somme")
If op="p" Then
MsgBox("Le produit de " & x & " et " & y & " vaut " & x*y)
End If
If op="s" Then
MsgBox("La somme de " & x & " et " & y & " vaut " & x+y)
End If
If op<>"s" And op<>"p" Then
'l'utilisateur a entré une lettre différente de "p" et "s"

MsgBox("Erreur : opération inconnue !")
End If
End Sub

Sub sommeMoyenneAleatoire_1()
Dim somme As Double, x As Double, i As Integer
Randomize
somme=0
For i=1 To 10
x=Rnd()
somme=somme+x
Next
MsgBox("Moyenne = " & somme/10)
End Sub

Sub sommePositif()
Dim somme As Double, x As Double, n As Integer
x=InputBox("Entrez un nombre réel")
n=0 'la variable n sert à compter combien de
' nombres a entré l'utilisateur.
somme=0
While x<>­1
somme=somme+x
n=n+1
x=InputBox("Entrez un nombre réel")
Wend
MsgBox("Moyenne des " & n & " nombres = " & somme/n)
End Sub

Sub sommeMoyenneAleatoire_2()
Dim x As Integer, y As Integer, i As Integer, reponse As String
Randomize
i=0
reponse="oui"
While reponse<>"non"
i=i+1
x=Int(6*Rnd())+1 'tire au hasard un nombre entre 1 et 6
y=InputBox("D'après vous, quel est le résultat du lancer au
hasard ?")
If x=y Then
MsgBox("Vous avez gagné !")
Else
MsgBox("Vous avez perdu !")
End If
If i<10 Then
reponse=InputBox("Voulez­vous continuer ?")
Else
MsgBox("Fini, vous n'avez droit qu'à 10 tentatives !")
reponse="non"
End If
Wend
End Sub