16 lines
344 B
Plaintext
16 lines
344 B
Plaintext
Public Sub Main()
|
|
Dim sString As String[] = ["", "Hello", "world", "", "Today", "Tomorrow", "", "", "End!"]
|
|
Dim sTemp As String
|
|
Dim siCount As Short
|
|
|
|
For Each sTemp In sString
|
|
If sString[siCount] Then
|
|
Print "String " & siCount & " = " & sString[siCount]
|
|
Else
|
|
Print "String " & siCount & " is empty"
|
|
End If
|
|
Inc siCount
|
|
Next
|
|
|
|
End
|