ciclo di iterazione con While.

iterazione5

ciclo di iterazione con While..Wend

il ciclo si ripete finchè si avvera la condizione posta
che numero sia inferiore o uguale a valore n indicato

si deve creare :
1 pulsante (nome automatico, inserire testo)
2 listbox (nome automatico)
1 label (ome automatico,inserire testo, non compare nel codice)

programma:usa dati prefissati:
esegue somma numeri consecutivi
iniziando da numero da indicare(1)
e considerando n (10) numeri in
successione:la somma termina quando
il numero (incrementato di 1 ogni volta) diventa = a n cifre

Private Sub commandbutton1_Click()
Rem somma numeri consecutivi
Dim numero As Integer 'inizio serie numerica'
Dim n As Integer 'cifre da sommare'
Dim somma As Integer
somma = 0
numero = 1 'primo numero della serie'
n = 10 ' cifre da sommare'
Rem inizio iterazione che si ripete fino a quando numero <= n
Rem in questo esempio fino quando numero =10
While numero <= n
ListBox1.AddItem (numero) 'visualizza numero in listbox1'
somma = somma + numero 'esegue somma di numero a somma iniziale'
numero = numero + 1 'incrementa numero con 1'
Wend 'chiusura ciclo'
ListBox2.AddItem (somma) ' stampa somma totale in listbox2'
End Sub

vedi esempio con somma numeri dispari consecutivi:cambia nel codice

Private Sub commandbutton1_Click()
Rem somma numeri consecutivi
Dim numero As Integer 'inizio serie numerica'
Dim n As Integer 'cifre da sommare'
Dim somma As Integer
somma = 0
numero = 1 'primo numero della serie'
n = 11 ' cifre da sommare'
Rem inizio iterazione che si ripete fino a quando numero <= n
Rem in questo esempio fino quando numero =10
While numero <= n
ListBox1.AddItem (numero) 'visualizza numero in listbox1'
somma = somma + numero 'esegue somma di numero a somma iniziale'
numero = numero + 2 'incrementa numero con 2'
Wend 'chiusura ciclo'
ListBox2.AddItem (somma) ' stampa somma totale in listbox2'
End Sub

vedi ppt

vedi esempio con somma numeri pariconsecutivi:cambia nel codice

Private Sub commandbutton1_Click()
Rem somma numeri consecutivi
Dim numero As Integer 'inizio serie numerica'
Dim n As Integer 'cifre da sommare'
Dim somma As Integer
somma = 0
numero = 2 'primo numero della serie'
n = 10 ' cifre da sommare'
Rem inizio iterazione che si ripete fino a quando numero <= n
Rem in questo esempio fino quando numero =10
While numero <= n
ListBox1.AddItem (numero) 'visualizza numero in listbox1'
somma = somma + numero 'esegue somma di numero a somma iniziale'
numero = numero + 2 'incrementa numero con 2'
Wend 'chiusura ciclo'
ListBox2.AddItem (somma) ' stampa somma totale in listbox2'
End Sub

vedi ppt

esempio con valori inseriti da tastiera