نحوه پرينت اعداد باحقه هاي تو درتو روي فرم مثل‌ (لوزي)

آقا من هر جوري ور رفتم نشد لطفا بگيد ببينيم چجوري ميشه كه اعداد به صورت هاي زير روي فرم چاپ بشه لطفا كدها رو هم تو ضيح بديد ممنون مثل

1
22
333
4444
55555

يا به شكل لوزي يه به صورت مثلث يه دونش رو بگيد بقيش رو خودم حل ميكنم فقط يه توضيحم بهم بديد ممنون
:20:

کد:

---


Private Sub Command1_Click()
Me.Cls
Me.AutoRedraw = True

For i = 1 To 9
  Print Spc(9 - i);
  For j = 1 To i
      Print i;
  Next
  Print
Next

For i = 8 To 1 Step -1
  Print Spc(9 - i);
  For j = 1 To i
      Print i;
  Next
  Print
Next
End Sub

---

نقل قول:

---

نوشته شده توسط aaaammmm87 [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

کد:

---


private sub command1_click()
me.cls
me.autoredraw = true
 
for i = 1 to 9
  print spc(9 - i);
  for j = 1 to i
      print i;
  next
  print
next
 
for i = 8 to 1 step -1
  print spc(9 - i);
  for j = 1 to i
      print i;
  next
  print
next
end sub

---

---

دوست عيز اگه ميشه يه توضيح مختصر و مفيد بده ممنون