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
Result:
f[0] = 1.1
f[1] = 3.3
f[2] = 5.5
f[3] = 7.7
f[4] = 9.9
f[5] = 11.11
ar[0] = 1
ar[1] = 3
ar[2] = 5
ar[3] = 7
ar[4] = 9
ar[5] = 11
d[0] = 1.1
d[1] = 3.3
d[2] = 5.5
d[3] = 7.7
d[4] = 9.9
d[5] = 11.11
g[0][0] = 1.1
g[0][1] = 3.3
g[0][2] = 5.5
g[0][3] = 7.7
g[0][4] = 9.9
g[0][5] = 11.11
g[0][0] = 1.1 g[1][0] = 3.3
g[0][1] = 3.3 g[1][1] = 5.5
g[0][2] = 5.5 g[1][2] = 7.7
g[0][3] = 7.7 g[1][3] = 9.9
g[0][4] = 9.9 g[1][4] = 11.11
g[0][5] = 11.11 g[1][5] = 13.13