variabili vba

esercitazioni a livello didattico elementare per descrivere
e applicare sintassi varia con visual basic su powerpoint
descrizione, immagini, animazione presentazione.ppt
codice da copiare e incollare su form con oggetti creato
da utente
http://digilander.libero.it/francescovise/visualpre/visapre.htm

http://digilander.libero.it/francescovise/visualpre/numerica4.htm
http://digilander.libero.it/francescovise/visualpre/numerica4.ppt

esercitazione a livello didattico elementare di sintassi con variabili indicizzate numeriche
tipo matrice, con visual basic e powerpoint:
dimensionamento matrice, assegnazione valori,
stampa valoiri, stampa somma e prodotto,
cancella singoli elementi o tutti

esercitazione a livello
didattico elementare di sintassi con variabili indicizzate
numeriche
tipo matrice, con visual basic e powerpoint:
dimensionamento matrice, assegnazione valori, stampa valoiri,
stampa somma e prodotto,
cancella singoli elementi o tutti

Private Sub stampavettore_Click()
Rem variabili numeriche indicizzate vettore
matrice
Rem dimensionamento matrice 2*3
Rem assegnazione diretta valori alla matrice

Dim dato(2, 2) As Integer
dato(0, 0) = 1
dato(0, 1) = 2
dato(0, 2) = 3
dato(1, 0) = 4
dato(1, 1) = 5
dato(1, 2) = 6

Label1.Caption = dato(0, 0)
Label2.Caption = dato(0, 1)
Label3.Caption = dato(0, 2)
Label4.Caption = dato(1, 0)
Label5.Caption = dato(1, 1)
Label8.Caption = dato(1, 2)
End Sub

Private Sub sommavettore_Click()
Rem dimensionamento matrice
Rem assegnazione valore alla matrice
Rem somma valori

Dim dato(2, 2) As Integer
Dim x, y As Integer
Dim somma As Integer
somma = 0
dato(0, 0) = 1
dato(0, 1) = 2
dato(0, 2) = 3
dato(1, 0) = 4
dato(1, 1) = 5
dato(1, 2) = 6
Rem assegna valori per somma con ciclo For
For y = 0 To 1
For x = 0 To 2
somma = somma + dato(y, x)
ListBox1.AddItem (somma)
Next x
Next y
Label6.Caption = "somma=" & somma
End Sub

Private Sub cancellavettore_Click()
Rem cancella valori
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label8.Caption = ""
End Sub

Private Sub prodotto_Click()
Rem stampa prodotto
Dim dato(2, 2) As Integer
Dim x, y As Integer
Dim prodotto As Double
prodotto = 1
dato(0, 0) = 1
dato(0, 1) = 2
dato(0, 2) = 3
dato(1, 0) = 4
dato(1, 1) = 5
dato(1, 2) = 6
rem assegna valori per operazione con ciclo
For

For y = 0 To 1
For x = 0 To 2
prodotto = prodotto * dato(y, x)
ListBox2.AddItem (prodotto)
Next x
Next y
Label9.Caption = "prodotto=" & prodotto
End Sub

Private Sub cancellarisultati_Click()
Rem cancella risultati
Label6.Caption = ""
Label9.Caption = ""
End Sub

Private Sub cancellatutto_Click()
Rem cancella tutto
Label6.Caption = ""
Label1.Caption = ""
Label2.Caption = ""
Label3.Caption = ""
Label4.Caption = ""
Label5.Caption = ""
Label8.Caption = ""
Label9.Caption = ""
ListBox1.Clear
ListBox2.Clear
End Sub

Informazioni su fumarino

interessato ad argomenti scientifici, ambienti naturali, parchi e monti
Questa voce è stata pubblicata in informatica. Contrassegna il permalink.

Lascia un commento

Inserisci i tuoi dati qui sotto o clicca su un'icona per effettuare l'accesso:

Logo WordPress.com

Stai commentando usando il tuo account WordPress.com. Chiudi sessione / Modifica )

Foto Twitter

Stai commentando usando il tuo account Twitter. Chiudi sessione / Modifica )

Foto di Facebook

Stai commentando usando il tuo account Facebook. Chiudi sessione / Modifica )

Google+ photo

Stai commentando usando il tuo account Google+. Chiudi sessione / Modifica )

Connessione a %s...