[ممدوح]

هذه مشاركة

كود :

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click

        Dim num As Integer = 5628
        Dim res As String

        Dim i As Integer = 0
        Do
            i += 1
            Dim c As Integer = (num Mod 10 ^ i)
            num -= c
            If c = 0 Then Exit Do
            res &= c & vbNewLine
        Loop

        Label1.Text = res

     End Sub

للأسف سألت عن كتاب Visual Basic 2010 How to program لمن حولي فلم يدرسه أحد منهم
وبحثت عنه في النت فوجدته بمبلغ 140$
لكن نحاول نستنتج الأكواد المناسبة للدراسة