variabili con indice
vedi matema6.xls

scrivere 5 numeri nelle celle A,B,C,D,E prima riga
scrivere 5 testi nelle celle A,B.C.D.E terza riga
cliccare pusante per vedere risultato
cancellare con altro pulsante per altra prova

Private Sub CommandButton1_Click()
'matema6 variabili indicizzate
'crea vettori con 5 elementi '
Dim intero(5) As Integer
Dim testo(5) As String
Dim k As Integer
'assegna valore alle variabili '
intero(1) = Cells(1, 1)
intero(2) = Cells(1, 2)
intero(3) = Cells(1, 3)
intero(4) = Cells(1, 4)
intero(5) = Cells(1, 5)
testo(1) = Cells(3, 1)
testo(2) = Cells(3, 2)
testo(3) = Cells(3, 3)
testo(4) = Cells(3, 4)
testo(5) = Cells(3, 5)
'visualizza valori delle variabili integer'
For k = 1 To 5
Cells(2, k) = intero(k)
Next k
'visualizza valori variabili string '
For k = 1 To 5
Cells(4, k) = testo(k)
Next k
End Sub

Private Sub CommandButton2_Click()
'cancella celle
For k = 1 To 5
For h = 1 To 5
Cells(k, h) = ""
Next h
Next k
End Sub