درخواست رفع مشکل با برنامه

[khag]

http://www.lon.ir/up/uploads/1273602595.rar
The_king بزرگوار یه نگاه به این برنامه هم کن قربون دستت می خوام عددی رو که وارد می کنم و برعکس می کنه تویه لیست بکس به صورت زیر هم نشون بده !!! یعنی 589 به صورت 9 و8 و5 زیر همدیگه بزنه ؟؟؟
ممنون میشم

 

[the_king]

http://www.lon.ir/up/uploads/1273602595.rar
The_king بزرگوار یه نگاه به این برنامه هم کن قربون دستت می خوام عددی رو که وارد می کنم و برعکس می کنه تویه لیست بکس به صورت زیر هم نشون بده !!! یعنی 589 به صورت 9 و8 و5 زیر همدیگه بزنه ؟؟؟
ممنون میشم

Private Sub Command1_Click()
    Dim n As Integer
    n = Val(Text1.Text)
    Call showw(n)
End Sub

Public Sub showw(n As Integer)
    Dim m As Integer
    Do
        m = n Mod 10
        List1.AddItem m
        n = n \ 10
    Loop While n > 0
End Sub

در تعریف کردن متغیر ها توجه داشته باشید که برخلاف زبان هایی مثل ++C و #C ، نوع متغیر ها در ویژوال بیسیک
قابل فاکتور گیری نیستند، مثلا دو کد زیر معادل هم نخواهند بود (متغیر هایی که نوع شان مشخص نشود، بصورت
پیشفرض از نوع Variant خواهند بود) :

    Dim a As Integer, b As Integer, c As Integer

    Dim a, b, c As Integer