[أبو عمر]

PHP كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        Dim x As Integer = Val(TextBox1.Text)
        Dim c As Integer = 1
        Dim s As String = x.ToString
        Dim a(s.Length) As String
        Label1.Text = ""
        For i As Integer = 0 To s.Length - 1
            a(i) = s.Substring(s.Length - 1 - i, 1)
            Label1.Text &= vbNewLine & Val(a(i)) * c
            c = c * 10

        Next i
       
    End Sub