تبديل اعداد به حروف

[mehdiafzali]

سلام
يك سوال ديگه شرمنده
چطوري مي شه وقتي يه عدد به برنامه مي دهيم اون رو به حروف بنويسه
مثال:وقتي كه عدد 1234 رو مي نويسيم اون رو اين طوري بنويسهne;two,three,four
نكته اينجاست كه هر عدد چند رقمي مي دهيم جواب بدهد!!!
خيلي ممنون

 

[mahtab2009]

سلام
فکر کنم میشه عددها را با آرایه یا اشاره گر از کاربر بگیری و بعد با switch برای اعداد 0 تا 9 معادل حرفی آن را وارد کنی تا هر عضو آرایه با این 10 عدد مقایسه شده و مقدار برابر با آن چاپ بشه.
امتحان کن فکر کنم جواب بده

 

[the_king]

سلام
يك سوال ديگه شرمنده
چطوري مي شه وقتي يه عدد به برنامه مي دهيم اون رو به حروف بنويسه
مثال:وقتي كه عدد 1234 رو مي نويسيم اون رو اين طوري بنويسهne;two,three,four
نكته اينجاست كه هر عدد چند رقمي مي دهيم جواب بدهد!!!
خيلي ممنون

    Dim n As Variant
    Dim s As String
    n = CDec(InputBox("Please enter a number :"))
    Do
        If Len(s) > 0 Then s = ", " + s
        s = Choose(n Mod 10 + 1 _
            , "zero", "one", "two", "three", "four" _
            , "five", "six", "seven", "eight", "nine") + s
        n = n \ 10
    Loop While n > 0
    MsgBox s