18 lines
442 B
Plaintext
18 lines
442 B
Plaintext
' FB 1.05.0 Win64
|
|
|
|
'create fixed size array of integers
|
|
Dim a(1 To 5) As Integer = {1, 2, 3, 4, 5}
|
|
Print a(2), a(4)
|
|
|
|
'create empty dynamic array of doubles
|
|
Dim b() As Double
|
|
' add two elements by first redimensioning the array to hold this number of elements
|
|
Redim b(0 To 1)
|
|
b(0) = 3.5 : b(1) = 7.1
|
|
Print b(0), b(1)
|
|
|
|
'create 2 dimensional fixed size array of bytes
|
|
Dim c(1 To 2, 1 To 2) As Byte = {{1, 2}, {3, 4}}
|
|
Print c(1, 1), c(2,2)
|
|
Sleep
|