matrice3

uso di due cicli for-next e stampa di matrici numeriche

vedi ppt

matrice3x

creare 4 pulsanti(inserire testo)
creare 3 listbox nome automatico)
copiare e incollare codice

programma:usa due cicli for per stampare
serie di numeri secondo matrice
3*2 , 2*3, 3*3


codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem uso di due cicli for-next e variabili semplici
Dim a, b, c As Integer
c = 0
For a = 0 To 3
For b = 0 To 2
c = a + b
ListBox1.AddItem ("a= " & a & " b=  " & b & "  " & " c= " & c)
Next b
ListBox1.AddItem ("-----------------")
Next a
End Sub

Private Sub commandbutton2_Click()
Dim a, b, c As Integer
c = 0
For a = 0 To 2
For b = 0 To 3
c = a + b
ListBox2.AddItem ("a= " & a & " b= " & b & "  " & " c= " & c)
Next b
ListBox2.AddItem ("-----------------")
Next a

End Sub

Private Sub CommandButton3_Click()
Dim a, b, c As Integer
c = 0
For a = 0 To 3
For b = 0 To 3
c = a + b
ListBox3.AddItem (" a= " & a & " b= " & b & "  " & " c= " & c)
Next b
ListBox3.AddItem ("-----------------")
Next a
End Sub

Private Sub commandbutton4_Click() 'cancella dati in listbox
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear
End Sub

uso di due icli For_next e variabili dimensionate con due indici

vedi ppt

matrici3

uso di due cicli For-next e di variabili dimensionate
creare 4 pulsanti(inserire testo)
creare 3 listbox (nome automatico)
creare 1 label (inserire testo)

scrivere codice per stampare tre diverse matrici:
3*2, 2*3, 3*3
ogni valore si ottiene sommando al numero dato (10) il valore assunto dai
contatori n,k (variabile nei tre casi considerati)
(0,1,2,3 - 0,1,2)
(0,1,2 - 0,1,2,3)
(0,1,2,3- 0,1,2,3)


codice da copiare e incollare

Private Sub commandbutton1_Click()
Rem uso di due cicli for-next e di variabili dimensionate
Dim n, k As Integer
Dim numero(3, 2) As Integer
ListBox1.AddItem ("stampa  matrice 3*2")
ListBox1.AddItem ("-------------------")
For n = 0 To 3
For k = 0 To 2
numero(n, k) = 10 + n + k
ListBox1.AddItem (numero(n, k))
Next k
ListBox1.AddItem ("--------------")
Next n
End Sub

Private Sub commandbutton4_Click() 'cancella dati in listbox
ListBox1.Clear
ListBox2.Clear
ListBox3.Clear

End Sub

Private Sub commandbutton2_Click()
Dim n, k As Integer
Dim numero(2, 3) As Integer
ListBox2.AddItem ("stampa  matrice 2,3")
ListBox2.AddItem ("-------------------")
For n = 0 To 2
For k = 0 To 3
numero(n, k) = 10 + n + k
ListBox2.AddItem (numero(n, k))
Next k
ListBox2.AddItem ("--------------")
Next n
End Sub

Private Sub commandbutton3_click()
Dim n, k As Integer
Dim numero(3, 3) As Integer
ListBox3.AddItem ("stampa  matrice 3,3")
ListBox3.AddItem ("-------------------")
For n = 0 To 3
For k = 0 To 3
numero(n, k) = 10 + n + k
ListBox3.AddItem (numero(n, k))
Next k
ListBox3.AddItem ("--------------")
Next n
End Sub