Jabaco Source

Option Explicit

Public Sub Command1_Click()
    Dim c As Char
    Dim cArr(1 To 10) As Char
    Dim cArr2() As Char
    Dim s As String
    
    '  initializer with scalar (= non-array) function call compiles OK
    Dim i As Integer = myInteger()

    '  initializer for Integer() does not compile
    ' Dim iArr() As Integer = myIntegerArray()
    
    '  initializer for Char() does not compile
    ' Dim cArr2() As Char = myCharArray()
        
    cArr2 = myCharArray()
    
    Debug.Print "Chr(cArr(2))=" & Chr(cArr2(2))
    
    '  the following statement does not compile
    '  "Auto conversion 'String' to 'Char' is not supported!"
    ' c = Chr(65)
    
    '  Char can be set to an Integer value
    c = 65
    Debug.Print "c=" & Chr(c)
    
    '  what happens in an overflow situation?
    '  least-significant 16 bit are assigned
    '  higher bits are ignored
    c = &H87654321
    Debug.Print "c=" & Hex(c)
    
    ' CChar() seems to be the only way to set a Char to a literal String/Char value
    c = CChar(Asc("A"))
    cArr(1) = c
    
    '
    '  cArr(1) returns the ASCII code rather than the Char
    s = Chr(c) & Chr(cArr(1))
    
    Debug.Print "cArr(1)=" & cArr(1)
    Debug.Print "Chr(cArr(1))=" & Chr(cArr(1))
    Debug.Print "CChar(cArr(1))=" & CChar(cArr(1))
    
    Debug.Assert s = "AA"
    Debug.Print s
   
    s = CChar(cArr(1))
    For i = 2 To Ubound(cArr)
      c = cArr(i - 1) + 1
      cArr(i) = c
      s = s & CChar(cArr(i))
    Next i
    
    Debug.Print s
End Sub

Private Function myCharArray() As Char()
   Dim cArr(1 To 2) As Char
   
   cArr(1) = CChar(66)
   cArr(2) = CChar(67)
   
   myCharArray = cArr
End Function

Private Function myInteger() As Integer
   myInteger = 999
End Function

Private Function myIntegerArray() As Integer()
   Dim iArr(1 To 2) As Integer
   
   iArr(1) = 11
   iArr(2) = 22
   
   myIntegerArray = iArr
End Function