iterazione 1

ciclo semplice di iterazione con for..next

 

codice da copiare e incollare in form creato con oggetti indicati(i nomi sono tutti automatici)
1 pulsante (inserire poi il testo ATTIVARE)
3 label (cancellare poi il testo label)
3 listbox 
programma :esegue 10 volte (limite) iniziando da 1 (inizio) con incremento 1 (step)le istruzioni seguenti:
visualizza contatore in label1 ( usa separatore & e manda a capo con vbcrlf)
visualizza somma in label2 (e manda a capo con vbcrlf)
visualizza prodotto in label3 ( e manda a capo con vbcrlf)
visualizzza gli stessi dati in listbox1,2,3 (a capo automatico,bars automatiche)
codice da copiare e incollare
Private Sub commandbutton1_click()
Rem iterazione con for next e dati tutti prefissati
Dim contatore As Integer
Dim inizio As Integer
Dim limite As Integer
Dim passo As Integer
Dim somma As Integer
Dim prodotto As Integer
inizio = 1
passo = 1
limite = 10
somma = 0
prodotto = 0
Rem inizio ciclo  iterazione
For contatore = inizio To limite Step passo 'contatore assume valori 1,2,3,4,5,6,7,8,9,10'
somma = somma + contatore
prodotto = somma * 2
Rem visualizzazione dati in label con vbcrglf
Label1.Caption = Label1.Caption & contatore & vbCrLf 'visualizza valore contatore con a capo'
Label2.Caption = Label2.Caption & somma & vbCrLf 'visualizza valore somma con a capo'
Label3.Caption = Label3.Caption & prodotto & vbCrLf 'visualizza valore prodotto con a capo'
Rem visualizzione dati in listbox a capo automatico e presenza automatica di bars
ListBox1.AddItem (contatore)
ListBox2.AddItem (somma)
ListBox3.AddItem (prodotto)
Next contatore 'aggiunge passo 1 a contatore e riprende ciclo'
End Sub

 

per attivare ppt

cliccando pił volte su pulsante si ripete la operazione sugli stessi dati

modificando solo nel codice
passo = (da 1 a ) 2
limite = (da 10 a )15
si eseguono le operazioni sui primi 8 numeri dispari

per vedere ppt

modificando solo nel codice
passo = (da 1 a ) 2
limite = (da 10 a )20
inizio =(da1 a ) 2
si eseguono le operazioni sui primi 10 numeri dispari

per vedere ppt

 

per esempio con dati da inserire mediante tastiera