سوالvb6

بریم سراصل مطلب.راستش استادبه من دوتا سوال دادکه من روکلافه کرده1.برنامه ای بنویسدکه شکل زیر راایجادکند
5555
5555
2.
$$$$
$$$
$$
$

یعنی می خوای این رو روی فرم پرینت بگیری؟ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]
همین کلافت کرده؟ [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

آره .که بازدن دکمه ایجادشده این رونمایش بده

کد:

---

Me.Cls
For i = 1 To 2
Print "5555"
Next i
For i = 4 To 1 Step -1
Print String(i, "$")
Next i

---

یک کامند بزار توی فروم و این کد رو در رویداد کلیدش کپی کن
کد نهایی این میشه:

کد:

---

Private Sub Command1_Click()
Me.Cls
For i = 1 To 2
Print "5555"
Next i
For i = 4 To 1 Step -1
Print String(i, "$")
Next i
End Sub

---

:46:

Private Sub Command1_Click()
dim a(1 to 2,1 to 4)
for i =1 to 2
for j = 1 to 4
print"5";
next j
print
next i
این جواب درست بود