1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
| Option Explicit
Sub hasard1()
Dim secret As Integer
Dim cherche As Integer
Dim fin As Integer
Dim inf As Integer
Dim sup As Integer
Dim ninf As Integer
Dim nsup As Integer
Dim max As Integer
Randomize
secret = Int(100 * Rnd) + 1
ninf = 1
nsup = 100
max = 2
cherche = InputBox("Essai n°1" & " Intervalle: [" & ninf & ", " & nsup & "]. " & "Entrer un nombre:")
Do
If cherche = secret Then
fin = MsgBox("Vous avez gagné !!")
Else
If cherche > secret Then
sup = MsgBox("C'est trop grand !")
nsup = cherche
cherche = InputBox("Essai n°" & max & " Intervalle: [" & ninf & ", " & nsup & "]. " & "Entrer un nombre:")
max = max + 1
Else
inf = MsgBox("C'est trop petit !")
ninf = cherche
cherche = InputBox("Essai n°" & max & " Intervalle: [" & ninf & ", " & nsup & "]. " & "Entrer un nombre:")
max = max + 1
End If
End If
Loop While cherche <> secret And max <> 11
If max = 11 Then
MsgBox "Perdu"
Else
MsgBox "bravo"
End If
End Sub |
