uso di variabili con indice

per vedere ppt

creare 1 pulsante, una listbox1, una label1( altre 4 label solo per informazione,non nel codice)

sintassi per costanti, variabili con indice,visualizzazione in listbox1 e label1

codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem dimensionamento matrice 2*3 con 6 elementi
Const k As Integer = 2
Const h As Integer = 3
Dim a, b As Integer
Dim mat(k, h) 'assegnazione valori a singoli elementi matrice
mat(1, 1) = 1
mat(1, 2) = 2
mat(1, 3) = 3
mat(2, 1) = 11
mat(2, 2) = 22
mat(2, 3) = 33
For a = 1 To k
For b = 1 To h
ListBox1.AddItem (mat(a, b)) 'visualizzazione valori singoli elementi
Next b
ListBox1.AddItem ("------")
Next a
Rem visualizzazione in label1
For a = 1 To k
For b = 1 To h
Label1.Caption = Label1.Caption & mat(a, b) & vbCrLf
Next b
Label1.Caption = Label1.Caption & "-------" & vbCrLf
Next a
End Sub