 |
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