14 lines
209 B
Text
14 lines
209 B
Text
|
Dim a(10)=1
|
||
|
|
Print a() ' 1 1 1 1 1 1 1 1 1 1
|
||
|
|
make(a())
|
||
|
|
Print a() ' 2 2 2 2 2 2 2 2 2 2
|
||
|
|
make2(&a())
|
||
|
|
Print a() ' 3 3 3 3 3 3 3 3 3 3
|
||
|
|
Sub make(A)
|
||
|
|
A++
|
||
|
|
End Sub
|
||
|
|
Sub make2(&a())
|
||
|
|
A=A()
|
||
|
|
A++
|
||
|
|
End Sub
|