Как преобразовать число в слова, т. Е. "876432" в "Восемь семь шесть четыре три два" в VB6

Question

Требуется преобразовать число в слова, например: " 12345678", и оно должно отображаться как "one Two Three Four Five Six Seven Eight " в VB6 и отображать результат в Message Box

Answer 1

Вы можете создать метод, описанный ниже, для его достижения.

Private Function ConvertIntToString(ByVal value As Integer) As String
    Dim intToString As String = value.ToString()
    Dim result As String = String.Empty

    For i As Integer = 0 To intToString.Length - 1
        If i <> 0 Then result += " "

        Select Case intToString(i)
            Case "0"c
                result += "Zero"
            Case "1"c
                result += "One"
            Case "2"c
                result += "Two"
        End Select
    Next

    Return result
End Function