aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

September 2017 Update

Browse source
This commit is contained in:
Ingy döt Net 2017-09-23 10:01:46 +02:00
parent bba7bfd280
commit ba8067c3b7
14570 changed files with 153136 additions and 63871 deletions
Download patch file Download diff file Expand all files Collapse all files

0
Task/Arrays/Gambas/arrays.gambas → Task/Arrays/Gambas/arrays-1.gambas
View file

19
Task/Arrays/Gambas/arrays-2.gambas Normal file
View file

@ -0,0 +1,19 @@
Public Sub Main()
Dim sFixedArray As String[] = ["Rosetta", "code", "is", "a", "programming", "chrestomathy", "site"]
Dim sFixedArray1 As New String[10]
Dim iDynamicArray As New Integer[]
Dim siCount As Short
For siCount = 1 To 10
iDynamicArray.Add(siCount)
Next
sFixedArray1[5] = "Hello"
sFixedArray1[6] = " world!"
Print sFixedArray.Join(" ")
Print iDynamicArray[5]
Print sFixedArray1[5] & sFixedArray1[6]
End