ایجاد یک جدول ضرب

[ebo_vb]

با سلام و تشکر از دوستان عزیز میخواستم در مورد کد ایجاد جدول ضرب مرا راهنمایی فرمایید
با تشکر فراوان

[mohsengrisly]

Dim a, b As Byte
Private Sub Command1_Click()
10: b = b + 1
For a = b To 100 Step b
Print a,
Next a
If b < 10 Then
Print
Print
Print
GoTo 10
End If
End Sub
Private Sub Form_Load()
a = 1
b = 0
Print
End Sub

فکر می کنم به اندازه کافی ساده و واضح باشه
کمکی بود در خدمتم