Exercice 1:
Écrire un programme visual basic qui lit un nombre à partir d’une zone de texte « txtNumber » et affiche la somme de 1 jusqu’au nombre saisi dans un label « lbSomme ».
Dim n as Integer
Dim somme = 0
n=Cint(txtNumber.text)
For i=1 to n
somme=somme +i
Next
Lblsomme.text = sommeExercice 2:
Écrire un programme en Visual Basic pour lire 10 nombres saisis dans une zone de texte « textNumber » et affiche leur moyenne dans un label « lbAvg ».
Dim cpt = 0
Dim somme = 0
Private Sub btnAvg_Click(sender As Object, e As EventArgs) Handles btnAvg.Click
if cpt <10 then
somme = somme + Cint(txtNumber.text)
cpt = cpt + 1
else
LbAvg.text = Cstr(somme/10)
End if
End SubExercice 3:
Écrire un programme en Visual Basic pour lire un nombre saisi à partir d’une zone de texte « textNumber » et affiche les cubes des nombres de 1 jusqu’à l’entier donné dans une liste « list1 ».
Dim n As Integer
n=Cint(textNumber.text)
list1.Items.Clear()
For i=1 to n
Dim chaine = i & "^3=" & (i^3)
list1.Items.add(chaine)
NextExercice 4:
Écrire un programme en Visual Basic qui lit un nombre à partir d’une zone de texte « textNumber » et affiche la somme des n termes des séries harmoniques dans un label « lbHarm ».
Exemple :
si le nombre saisi est 5:
le résultat sera => 1/1 + 1/2 + 1/3 + 1/4 + 1/5 = 2.283334 Dim n As Integer
Dim somme As Double
n=Cint(textNumber.text)
for i = 1 to n
Somme = somme + 1/i
Next
lbHarm.text = sommeExercice 5:
Écrire un programme en Visual Basic qui lit les bornes d’une plage de nombres donnés dans deux zones de texte « txtDebut » et « txtFin » et affiche les nombres parfaits qui sont compris dans l’intervalle dans une liste « list1 ».
Dim debut As Integer
Dim fin As Integer
Dim somme As Integer
debut = Cint(txtDebut.text)
fin = Cint(txtFin.text)
list1.Items.clear()
for i = debut to fin
somme = 0
for j = 1 to i
if i mod j = 0 then
Somme = somme + j
end if
Next
if somme = i then
list1.Items.add(i)
end if
Next