variabile con indice

uso di variabili con indice

per vedere ppt

creare un pulsante e una listbox(nomi automatici,inserire testo attivare)
dimensionare valori con dim(3) per tre numeri
assegnare valori a singole variabili indicate dal nome e dall'indice n(1)=valore
leggere i valori con un ciclo for-next ed eseguire somma e prodotto in successione
visualizzare i risultati intermedi e finali

codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem uso di variabili con indice
Dim n(3) As Integer
Dim x As Integer
Dim somma, prodotto As Integer
prodotto = 1
somma = 0
n(1) = 10 'assegazione valore a singole variabili
n(2) = 20
n(3) = 30
For x = 1 To 3
somma = somma + n(x)
prodotto = prodotto * n(x)
ListBox1.AddItem (" numero= " & n(x) & " somma=" & somma & " prodotto= " & prodotto)
Next x
End Sub

esempio con inserimento dati da tasiera

per vedere ppt

creare un pulsante(inserire testo:attivare)
creare tre textbox (nome automatico)
creare una listbox(nome automatico)
creare tquattro label(inserire testo)

codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem uso di variabili con indice e valori da tastiera
Dim n(3) As Integer
Dim x As Integer
Dim somma, prodotto As Integer
prodotto = 1
somma = 0
TextBox1.SetFocus
n(1) = TextBox1
n(2) = TextBox2
n(3) = TextBox3
For x = 1 To 3
somma = somma + n(x)
prodotto = prodotto * n(x)
ListBox1.AddItem (" numero= " & n(x) & " somma=" & somma & " prodotto= " & prodotto)
Next x
End Sub

per vedere ppt

creare pulsante(inserire testo)
creare una listbox
creare tre label(nome automatico)

vengono assegnati automaticamente valori mediante ciclo for-next
vengono visualizzati i valori con due modi (listbox e label)

codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem uso di variabili con indice e assegnazione valore con for-next
Dim n(3) As Integer
Dim x As Integer
For x = 1 To 3 'assegnazione valore consecutivo a variabili
n(x) = x
Next x
For x = 1 To 3 'visualizzazione valori inseriti
ListBox1.AddItem ("numero " & x & " = " & n(x))
Next x
Rem altra visualizzazione valori inseriti
Label1.Caption = n(1)
Label2.Caption = n(2)
Label3.Caption = n(3)
End Sub

per vedere ppt

creare due pulsanti(inserire testo)
creare tre textbox(nome automatico)
creare una listbox(nome automatico)
creare 4 label(inserire testo)

codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem uso di variabili con indice e valori da tastiera
Dim n(3) As Integer
Dim x As Integer
Dim somma, prodotto, moltiplica, addiziona As Integer
prodotto = 1
somma = 0
TextBox1.SetFocus
n(1) = TextBox1
n(2) = TextBox2
n(3) = TextBox3
For x = 1 To 3
somma = somma + n(x)
prodotto = prodotto * n(x)
ListBox1.AddItem (" numero= " & n(x) & " somma=" & somma & " prodotto= " & prodotto)
Next x
moltiplica = TextBox1 * TextBox2 * TextBox3 'altro modo di usare i dati
addiziona = n(1) + n(2) + n(3)
MsgBox (moltiplica)
MsgBox (addiziona)
End Sub

Private Sub commandbutton2_Click()
TextBox1 = ""
TextBox2 = ""
TextBox3 = ""

End Sub

per esempio con matrici 2*3