iterazione5x

iterazione con While-Wend e dati inseriti da tastiera
esegue somma numeri consecutivi, pari, dispari, con inizio,passo,limite da indicare

vedi ppt

servono

2 pulsanti (nome automatico, testo Attivare,Cancellare)
2 listbox (nome automatico)
3 textbox (nome automatico)
3 label (nome automatico, inserire testo indicato)

attivare:esegue programma
cancellare:cancella dati precedenti

programma:inserire numero dal quale iniziare la somma(numero),
inserire passo per incrementare numero(passo),inserire valore
massimo da raggiungere(limite) prima di fermare la iterazione;

codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem somma numeri consecutivi pari dispari
Dim numero As Integer 'inizio serie numerica'
Dim limite As Integer 'limite massimo'
Dim somma As Integer
Dim passo As Integer 'passo per incremento '
somma = 0
numero = TextBox1 'primo numero della serie'
limite = TextBox3 ' limite massimo'
passo = TextBox2
Rem inizio iterazione che si ripete fino a quando numero <= limite
While numero <= limite
ListBox1.AddItem (numero) 'visualizza numero in listbox1'
somma = somma + numero 'esegue somma di numero a somma iniziale'
numero = numero + passo 'incrementa numero con passo'
Wend 'chiusura ciclo'
ListBox2.AddItem (somma) ' stampa somma totale in listbox2'
End Sub

Private Sub commandbutton2_Click() ' cancella dati precedenti'
ListBox1.Clear
ListBox2.Clear
TextBox1 = ""
TextBox2 = Clear
TextBox3 = ""
End Sub

esempio con Do While...Loop

per vedere ppt

somma numeri consecutivi

creare due pulsanti (attivare,cancellare)
1 listbox(nome automatico)
con valori prefissati:inizio(numero),limite conteggio(n)
inizio conteggio(conta),incremento numero (passo)

codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem somma numeri consecutivi da 1 a 10
Dim numero As Integer
Dim somma As Integer
Dim conta As Integer
dim passo as integer
Dim n As Integer
somma = 0
conta = 1
passo=1
n = 10
numero = 1
Do While conta <= n
somma = somma + numero
ListBox1.AddItem (conta & "   " & numero & "  somma=" & somma)
numero = numero + passo
conta = conta + 1
Loop
End Sub

Private Sub commandbutton2_Click()
ListBox1.Clear
End Sub

somma numeri dispari.....modificare codice :passo=2 vedi ppt

somma numeri pari ....modificare codice :numero=2 , passo = 2 vedi ppt

vedi ppt con inserimento da tastiera

creare 2 pulsanti (e inserire testo)
creare 1 listbox
creare 4 label (e inserire testo)
creare 4 textbox

inserire valori per eseguire la somma:
numero iniziale,passo,numero cifre,contatore


codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem somma numeri consecutivi pari dispari
Dim numero As Integer
Dim somma As Integer
Dim conta As Integer
Dim passo As Integer
Dim n As Integer
somma = 0
conta = TextBox3
passo = TextBox2
n = TextBox4
numero = TextBox1
Do While conta <= n
somma = somma + numero
ListBox1.AddItem (conta & "   " & numero & "  somma=" & somma)
numero = numero + passo
conta = conta + 1
Loop
End Sub

Private Sub commandbutton2_Click()
ListBox1.Clear
textbox1=""
textbox2=""
textbox3=""
textbox4=""
End Sub