Option Explicit
Private Sub Form_Load()
Dim x As Long, y As Long, n As Long
AutoRedraw = True
n = 10
y = 1
While y <= n
x = 1
While x <= n
CurrentX = x * 270
CurrentY = y * 270
Print x * y;
x = x + 1
Wend
y = y + 1
Wend
End Sub
باید یک آرابه دوبعدی تعریف کنید که n*n باشه. دوتا حلقه میذارید و برای هر حلقه هم یک شمارنده با مقدار اولیه صفر. شرط پایان هر دو حلقه اینه که شمارنده به n برسه. اگر نام شمارنده هاتون i و j باشه. در بدنه حلقه باید توی خونه i و j از آرایه حاصلضرب i در j رو بذارید.
درضمن اگر بخواهید شماره سطر ها و ستون ها رو هم نامگذاری کنید باید در ابتدا سطر هایی که شماره ستونشون صفر هست و همینطور سطونهایی که شماره سطرشون صفر هستش رو از صفر تا n نامگذاری کنید.
