'__ ex 1 ______________

Sub ankara()

Dim x, y As Integer
x = 1
y = x + 2
x = x - 1
MsgBox ("x+y=" & x + y)

End Sub


'__ ex 2 ______________

Sub berlin()

Dim x, y As Single
x = InputBox("Entrez une note")
y = InputBox("Entrez une autre note")
If x > y Then
MsgBox ("La plus petite des deux notes est " & y)
ElseIf x = y Then
MsgBox ("Les deux notes sont égales")
Else: MsgBox ("La plus petite des deux notes est " & x)
End If
End Sub


'__ ex 3 ______________

Sub casablanca()

Dim x As Single
x = 0
While x * x < 30
x = x + 1
Wend
MsgBox ("Seuls les naturels inférieurs à " & x - 1 & " ont un carré inférieur à 30.")

End Sub


'__ ex 4 ______________

Sub dharamsala()

Dim n, x As Single
n = InputBox("Entrez un entier positif")
x = 0
While x * x < n
x = x + 1
Wend
MsgBox ("Seuls les naturels inférieurs à " & x - 1 & " ont un carré inférieur à " & n & ".")

End Sub


'__ ex 5 ______________

Sub edimbourg()

Dim x As Single

Dim mini As Single

Dim maxi As Single

Dim delta As Single

Dim i As Integer

x = InputBox("Entrez la valeur d'un réel")

maxi = x

mini = x

For i = 1 To 4

x = InputBox("Entrez la valeur d'un nouveau réel")

If x > maxi Then

maxi = x

ElseIf x < mini Then

mini = x

Else

End If

Next

delta = maxi - mini

MsgBox ("La différence entre la plus grande et la plus petite de ces valeurs est " & delta & ".")

End Sub


'__ ex 6.1 ______________

Sub faro()

Dim note As Single

note = InputBox("entrez une note")

If note < 10 Then
        
        MsgBox ("travaillez davantage")
    
    End If

End Sub


'__ ex 6.2 ______________

Sub gstaad()

Dim note As Single

note = InputBox("entrez une note")

    If note < 0 Or note > 20 Then
        
    note = MsgBox("erreur de saisie")
    
    ElseIf note < 10 Then
    
    MsgBox ("travaillez davantage")
    
    End If
    
End Sub


'__ ex 6.3 ______________

Sub haan()

Dim nb As Single

Dim note As Single

Dim k As Integer

nb = InputBox("nombre de notes à entrer ? ")

If nb >= 1 Then

For k = 1 To nb

If k = 1 Then

note = InputBox("entrez votre première note")

ElseIf k = nb Then

note = InputBox("entrez votre dernière note")

Else

note = InputBox("entrez une nouvelle note")

End If

Next

Else

End If

End Sub


'__ ex 6.4 ______________

Sub iena()

Dim nb As Single

Dim note As Single

Dim sumnote As Single

Dim moyenne As Single

Dim k As Integer

nb = InputBox("nombre de notes à entrer ? ")

sumnote = 0

If nb >= 1 Then

For k = 1 To nb

If k = 1 Then

note = InputBox("entrez votre première note")

ElseIf k = nb Then

note = InputBox("entrez votre dernière note")

Else

note = InputBox("entrez une nouvelle note")

End If

sumnote = sumnote + note

Next

moyenne = Round(sumnote / nb, 2)

MsgBox ("votre moyenne est de " & moyenne)

Else

MsgBox ("pas de moyenne sans notes")

End If

End Sub


'__ ex 6.5 ______________

Sub jonkoping()

Dim nb As Single

Dim note As Single

Dim sumnote As Single

Dim badnote As Single

Dim moyenne As Single

Dim k As Integer

nb = InputBox("nombre de notes à entrer ? ")

sumnote = 0

badnote = 0

If nb >= 1 Then

    For k = 1 To nb

        note = InputBox("entrez votre note " & k)

            If ((note < 0) Or (note > 20)) Then

                badnote = badnote + 1

            Else

                sumnote = sumnote + note

            End If

    Next

    If (badnote < nb) Then
    
            moyenne = Round(sumnote / (nb - badnote), 2)

            MsgBox ("votre moyenne est de " & moyenne)

    Else

            MsgBox ("moyenne indisponible : aucune des notes saisies n'est correcte")

    End If

Else

MsgBox ("pas de moyenne sans notes")

End If

End Sub


'__ ex 6.6 ______________

Sub kiel()

Dim nb As Single

Dim note As Single

Dim sumnote As Single

Dim moyenne As Single

Dim k As Integer

nb = InputBox("nombre de notes à entrer ? ")

sumnote = 0

If nb >= 1 Then

    For k = 1 To nb

    note = InputBox("entrez votre note " & k)

        While note < 0 Or note > 20

        note = InputBox("erreur de saisie : entrez à nouveau la note " & k)

        Wend
    
    sumnote = sumnote + note

    Next

moyenne = Round(sumnote / nb, 2)

MsgBox ("votre moyenne est de " & moyenne)

Else

MsgBox ("pas de moyenne sans notes")

End If

End Sub


'__ ex 6.7 ______________



'__ ex 6.8 ______________

Sub montebelluna()

Dim nb As Single

Dim note As Single

Dim sumnote As Single

Dim moyenne As Single

Dim k As Integer

sumnote = 0

nb = InputBox("nombre de notes à entrer ? ")

If nb >= 1 Then

    For k = 1 To nb

        note = InputBox("entrez votre note " & k)

        While note < 0 Or note > 20

        note = InputBox("erreur de saisie : entrez à nouveau la note " & k)

        Wend
    
    sumnote = sumnote + note

    Next

moyenne = Round(sumnote / nb, 2)

Select Case moyenne

    Case Is < 10
       
            MsgBox ("votre moyenne est de " & moyenne & vbCr & "ajourné")
        
    Case 10 To 11.99
    
            MsgBox ("votre moyenne est de " & moyenne & vbCr & "passable")
        
    Case 12 To 13.99
    
            MsgBox ("votre moyenne est de " & moyenne & vbCr & "assez bien")
            
    Case 14 To 15.99
    
            MsgBox ("votre moyenne est de " & moyenne & vbCr & "bien")
            
    Case Is >= 16
    
            MsgBox ("votre moyenne est de " & moyenne & vbCr & "très bien")

End Select

Else

MsgBox ("pas de moyenne sans notes")

End If

End Sub

'________________________