13 lines
209 B
Text
13 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
|