مشکل در ادامه ساخت برنامه

[programm1]

با سلام

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

برنامه ای که 16 عدد از ورودی دریافت کنید در ارایه ای 2d دو بعدی 4*4 که در هر خانه عدد 1 تا 16 (ورودی ) را وارد کند . این برنامه شامل 3 دکمه میباشد یک دکمه برای دریافت ورودی یک دکمه برای نمایش ورودی های وارد شده (من برنامه رو تا اینجا نوشتم ) یک دکمه هم برای زمانی که وقتی کلیک شد یک عدد از ورودی دریافت کند و سپس ارایه ها (16 عدد وارد شده ) را ضرب در ان کند و سپس نمایش دهد.

برنامه رو پیوست کردم لطفاً چک کنید
با تشکر

[ahmad abdoli]

سلام

این شکلی می خوای بشه؟


Private Sub Command3_Click()

Dim n As Integer
n = InputBox("Enter n:")

For b = 1 To 4
For g = 1 To 4
Print n * a(b, g) & Space(2);
Next g
Print
Next b
End Sub