عرض مشاركة واحدة
قديم 02-10-2016, 01:04 AM   #7
kabtod
حاسبكو جديد
 
تاريخ التسجيل: Sep 2015
الموقع: الرياض
المشاركات: 3
معدل تقييم المستوى: 0
kabtod حاسبكو نشيط
افتراضي رد: عرض تقديمي ،، تتبع لمخطط الإنسياب سؤال 9 صفحة 38

كود:
      Dim s = 3
start:  Dim m = 1
print:  Label1.Text = Label1.Text + "X "
        m = m + 1
        If (m > s) Then
            s = s - 1
            If (s <> 0) Then
                GoTo start
            End If
        Else
            GoTo print
        End If




kabtod غير متصل   رد مع اقتباس