1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
Private Sub MonTest()
Dim cb() As Double, ce() As Double
Dim i As Integer, j As Integer, Minij As Integer
Dim oo As POO2
Randomize
Minij = 1
ReDim cb(Minij To 5, Minij To 2)
Set oo = New POO2
Debug.Print vbCrLf & "1) initialise cb()"
Debug.Print "'i'", "'j'", "'cb(i,j)'"
For j = Minij To UBound(cb, 2)
For i = Minij To UBound(cb)
cb(i, j) = Int(Rnd * 50)
Debug.Print i, j, cb(i, j)
Next i
Next j
oo.c = cb
Debug.Print vbCrLf & "2) Affectation de cb() à l'objet"
Debug.Print vbCrLf & "3) Efface cb()"
Debug.Print "'i'", "'j'", "'cb(i,j)'"
For j = Minij To UBound(cb, 2)
For i = Minij To UBound(cb)
cb(i, j) = 0
Debug.Print i, j, cb(i, j)
Next i
Next j
Debug.Print vbCrLf & "4) Réaffectation de cb() via l'objet"
cb = oo.c
Debug.Print vbCrLf & "5) Affectation directe ce() via l'objet"
ce = oo.c
Debug.Print "'i'", "'j'", "'cb(i,j)'", "'ce(i,j)'"
For j = Minij To UBound(cb, 2)
For i = Minij To UBound(cb)
Debug.Print i, j, cb(i, j), ce(i, j)
Next i
Next j
Debug.Print vbCrLf & "6) Détruit l'objet"
Set oo = Nothing
Debug.Print vbCrLf & "7) Vérification des tableaux cd() et ce()"
Debug.Print "'i'", "'j'", "'cb(i,j)'", "'ce(i,j)'"
For j = Minij To UBound(cb, 2)
For i = Minij To UBound(cb)
Debug.Print i, j, cb(i, j), ce(i, j)
Next i
Next j
End Sub |
Partager