فوري ! فوري ! فوري !

سلام به همگي
من يه سوال دارم كسي ميتونه با حلقه ي Do while يا For اون رو حل كنه ؟
برنامه اي ميخوام كه عددي رو از ورودي بگيره و مثل شكل چاپ كنه. مثلا 16 رو بگيره و اينو چاپ كنه.
تو رو خدا اگه كسي جوابشو ميدونه بگه :41::41::41::41::41::41::41::41::41:

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

پس چي شد به خدا لازم دارم

عکس رو یه جا دیگه آپ کنید
(بابا این تی نی پیک واسه خیلیا فیلتره خب چرا همه اینجا آپ می کنن؟!)

بیا این یه نمونه
[HTML]Private Sub Command1_Click()
Dim a As Integer, b As Integer, c As Integer, d As Integer, e As Integer
b = 1
c = 2
d = 6
e = -2
Print Spc(6);
For i = 1 To 7
For j = 1 To b
Print j;
If b = 7 Then
c = -2
End If
If d = 0 Then
e = 2
End If
Next j
b = b + c
d = d + e
Print
Print Spc(d);
Next i
End Sub
[/HTML]

:41:ازت ممنونم دوست عزيز اما اين فقط يك تا 7 رو چاپ من ميخوام عددي رو بدم و شكل مثلث رو چاپ كنه مثل شكل
تو اين شكل عدد 16 رو دادم و اين رو چاپ كرده حالا مثلا 25 رو دادم يه رديف اضافه ميكنه !
اميدوارم تونسته باشم منظورم رو برسونم اگه كسي جوابشو ميدونه خبرم كنه

نقل قول:

---

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

بیا این یه نمونه
[html]private sub command1_click()
dim a as integer, b as integer, c as integer, d as integer, e as integer
b = 1
c = 2
d = 6
e = -2
print spc(6);
for i = 1 to 7
for j = 1 to b
print j;
if b = 7 then
c = -2
end if
if d = 0 then
e = 2
end if
next j
b = b + c
d = d + e
print
print spc(d);
next i
end sub
[/html]

---

سلام.
ببخشید میتونید این برنامه ای که نوشتینو توضیح بدین؟؟:27:

پس برنامه ي من چي شد ؟

سلام دوستان اون برنامه اي كه خواستم رو كسي ننوشته ببينيد من يه خورده نوشتم كسي نيست كاملش كنه ؟ :41:

[PHP]N=Inputbox("Insert Number")
k=1
For i= 1 to N
for j=1 to I
Print k;
k=k+1
Next j
next i
Print
[/PHP]