ساخت جدول ضرب شبیه این!!!!!!!!!!!

[karem2074]

سلام
دوستان من میخوام یک جدول ضرب شبیه عکس زیر بسازم.منظورم اینکه جدول رو رو فرم برام چاپ کنه.اگه یک کلیک زدم رو فرم چاپ بشه.گفتن باید از دستور loop استفاده کنی اما من چیزی متوجه نشدم.ممنون میشم راهنمایی کنین.

http://www.vb6.us/files/VBPrograms/Understand-Timer/image002.jpg

[MohammadGh2011]

سلام عليکم
البته با Do while...Loop هم ميشه اين کار رو کرد.
من با حلقه يFor...Next اين کار رو انجام دادم.
کد زير رو داخل يک کامند بنويس.
Dim i As Long, j As Long, m As String
For i = 1 To 5
For j = 1 To 5
m = m & (i * j) & vbTab
Next j
m = m & vbCrLf & vbCrLf & vbCrLf
Next i
Print m


موفق باشيد

[karem2074]

سلام عليکم
البته با Do while...Loop هم ميشه اين کار رو کرد.
من با حلقه يFor...Next اين کار رو انجام دادم.
کد زير رو داخل يک کامند بنويس.
Dim i As Long, j As Long, m As String
For i = 1 To 5
For j = 1 To 5
m = m & (i * j) & vbTab
Next j
m = m & vbCrLf & vbCrLf & vbCrLf
Next i
Print m


موفق باشيد

داداش خیلی ممنونم.یک مشکل دیگه دارم.میخوام آخر هر سطر جمع کل اعدا اون سطر رو بگیره.
مثلا سطر اول:
1 2 3 4 5 6 7 8 9 نیست!!! جمعشون میشه 45 که میخوام آخر سطر برام چاپ کنه.

[M.T.P]

همون سورس دوستمون با کمی تغییر



Dim i As Long, j As Long, m As String, k As Long
For i = 1 To 9
For j = 1 To 9
m = m & (i * j) & vbTab
k = k + (i * j)
Next j
m = m & k
k = 0
m = m & vbCrLf & vbCrLf & vbCrLf
Next i
Print m

[mr-adler]

سلام علیکم
میشه بگید vbTab عملکردش چیه؟
msdn سایت مایکروسافت نوشته بود:
Represents a tab character for print and display functions.
متاسفانه متوجه نشدم:ناراحت:

ممنون

[M.T.P]

شاید بشه بهش گفت یک فضای خالی عریض به اندازه حدودا 10 یا 15 کاراکتر.
تو NotePad هم که تب بزنید عملا موضوع روشنتر میشه.