[noway]

(25-10-16, 04:48 PM)a_abdullah كتب :

(25-10-16, 04:40 PM)noway كتب : الحل فى المرفقات

مارضى يشتغل الكود عشان اشوفه بس فتح معي الرن 

فورم جديد + Label1 +TextBox1 + Button1
دوس على button1 مرتين و اضف الكود التالى

PHP كود :

Label1.Text = ""
        If IsNumeric(TextBox1.Text) Then
            Dim x As Integer = TextBox1.Text
            Dim y As Integer
            Dim n As Integer = 0
            Dim z As Integer
            Do While x > 0
                y = x Mod 10
                z = 10 ^ n
                Label1.Text = Label1.Text & (y * z) & " , "
                x = (x - y) / 10
                n = n + 1

            Loop
        Else
            MessageBox.Show("Error")
        End If