Matrice a doppi gradinimatrice di ordine 10x10, questa matrice è creata visualizzando nelle prime due righe sia verticali che orizzontali tutti numeri 1, poi nella terza e quarta riga orizzonatale e vertica numeri 3, tranne quelli gia occupati dagli 1, e negli spazi rimasti dei numeri 5.

↑Matrice da creare

Dim I, J as integer Dichiarazione delle variabiliDim M(1 To 10, 1 To 10) As Integer Dichiarazione della matrice (ordine 10x10)

PULSANTE ESEGUI: Private Sub Command1_Click() Creazione della matrice:MSFlexGrid1.FixedCols = 0 Azzero le colonne di intestazione eMSFlexGrid1.FixedRows = 0 le righe di intestazione.MSFlexGrid1.Cols = 10 inserisco il numero delle colonne e MSFlexGrid1.Rows = 10 delle righe.For I = 1 To 10 Parto con il doppio ciclo For su I e J.For J = 1 To 10M(I, J) = 1 Riempio la matrice con tutti numeri 1. Next J Chiudo il doppio ciclo.Next I

(I cicli For partono da 3 e arrivano ad 8 perchè altrimenti andrebbero a togliere gli 1 messi in precedenza nelle prime due righe e colonne e nelle ultime due righe e colonne)

For I = 3 To 8 Partono i due cicli For.

For J = 3 To 8 M(I, J) = 3 Nelle sei righe e colonne centrali metto i numeri 3. Next J chiudo i cicli For. Next I

(i cicli partono da 5 e arrivano a 6 per inserire solo nelle quattro caselle centrali i numeri 5 come richiesti nella matrice a doppi gradini)

For I = 5 To 6 Apro i cicli For di righe e colonne.For J = 5 To 6M(I, J) = 5 Inserisco nelle caselle 5,5 5,6 6,5 e 6,6 il numero 5.Next J Chiudo il doppio ciclo For.Next I

(Alla fine dell'esercizio mettiamo la visualizzazione della matrice che ci permette di visualizzare su una FlexGrid il lavoro fatto) Visualizzazione: For I = 1 To 10 Partono i for che prendono tutta la matrice.For J = 1 To 10 MSFlexGrid.Row= I - 1 gli eventi Col e Row ci permettono di dire al computer da dove MSFlexGrid1.Col = J - 1 cominciare ad inserire gli elementi da noi scelti. MSFlexGrid1.Text = M(I, J) e con l'evento Text possiamo inserirli nella Matrice. Next J terminano i cicli For.Next IEnd Sub

PULSANTE FINE:Private Sub Command2_Click()End Istruzione di fine programma. End Sub

http://knol.google.com/k/-/-/14jud82v6wxvz/hcw5f5/6.bmp