BCX Console Demonstration Program s148.bas
|
DIM in$, i, z
DIM ar[20]
DIM f![20]
DIM d#[20]
DIM g![20,20]
in$ = "1.1, 3.3, 5.5, 7.7, 9.9, 11.11"
z = FILLARRAY(in$, vt_SINGLE, 6, f!)
FOR i = 0 TO z
PRINT "f["; MID$(STR$(i), 2); "] = "; f![i]
NEXT
in$ = "1, 3, 5, 7, 9, 11"
z = FILLARRAY(in$, vt_INTEGER, 6, ar)
FOR i = 0 TO z
PRINT "ar["; MID$(STR$(i), 2); "] ="; ar[i]
NEXT
in$ = "1.1, 3.3, 5.5, 7.7, 9.9, 11.11"
z = FILLARRAY(in$, vt_DOUBLE, 6, d#)
FOR i = 0 TO z
PRINT "d["; MID$(STR$(i), 2); "] ="; d#[i]
NEXT
in$ = "1.1, 3.3, 5.5, 7.7, 9.9, 11.11"
z = FILLARRAY(in$, vt_SINGLE, 6, &(g![0, 0]))
FOR i = 0 TO z
PRINT "g[0]["; MID$(STR$(i), 2); "] = "; g![0][i]
NEXT
in$ = "3.3, 5.5, 7.7, 9.9, 11.11, 13.13"
z = FILLARRAY(in$, vt_SINGLE, 6, &(g![1, 0]))
FOR i = 0 TO z
PRINT "g[0]["; MID$(STR$(i), 2); "] = "; g![0][i]; " g[1]["; _
MID$(STR$(i), 2); "] = "; g![1][i]
NEXT