Page History
...
Code Block |
---|
/* The element values in MATRIX2 will be assigned to MATRIX1 such that MATRIX1(0) would have 0, MATRIX1(1,1) would have 1, MATRIX1(1,2) would be 2, and so forth. Then all elements of MATRIX2 are set to null. */ Dim MATRIX1(3,4), MATRIX2(12) For CTR = 1 to 12 MATRIX2 (CTR) = CTR Next CTR Mat MATRIX1 = Mat MATRIX2 Mat MATRIX2 = "" /* The matrix CUST.REC and the variables YR and MO are passed as arguments. */ Call CREDIT(Mat CUST.REC, YR, MO) |