iterazione 1x
ciclo semplice di iterazione con for..next con dati da tastiera
codice da copiare e incollare in form creato con oggetti indicati(i nomi sono tutti automatici cambiati solo per i 2 pulsanti:attivare, cancellare usando proprietà) 1 pulsante (inserire poi il testo ATTIVARE) 1 pulsante (inserire poi il testo :CANCELLARE) 3 label (cancellare poi il testo label) 3 label (inserire poi il testo:inizio,limite,passo) 3 listbox 3 textbox
programma :esegue n volte (limite/passo) iniziando da inizio) con incremento passo (step)le istruzioni seguenti: chiede inserimento valori per inizio,limite,passo, con pulsante Attivare 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) cancella dati inseriti con pulsante Cancellare
codice da copiare e incollare
Private Sub attivare_click() Rem iterazione con for next e dati tutti da tastiera 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 = TextBox1 passo = TextBox3 limite = TextBox2 somma = 0 prodotto = 0 Rem inizio ciclo iterazione For contatore = inizio To limite Step passo 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 a contatore e riprende ciclo' End Sub Private Sub cancellare_Click() ' permette cancellazione dati precedenti' Label1 = Clear Label2 = Clear Label3 = Clear ListBox1.Clear ListBox2.Clear ListBox3.Clear TextBox1 = Clear TextBox2 = Clear TextBox3 = Clear End Sub