Imports System
Public Module Module1
Public Sub Main()
Dim arr(10) As Char
For i As Integer = 0 To 10 - 1
arr(i) = "*" ' 10 * '*'
Next
Console.WriteLine(arr)
For i As Integer = 0 To 10
arr(i) = "#" ' 11 * '#'
Next
Console.Write(arr)
End Sub
End Module
' run:
' **********
' ###########