این برنامه رو چطور بنویسم؟

نقل قول:

---

نوشته شده توسط open-source [ برای مشاهده لینک ، با نام کاربری خود وارد شوید یا ثبت نام کنید ]

[html]dim key as integer
key = inputbox("enter key", "key")
me.cls
me.autoredraw = true

for i = 1 to 4
print spc(4 - i);
for j = 1 to i
if i = 4 then
print key;
else
print i;
end if
next
print
next

for i = 5 to 9
print spc(i - 4);
for j = 1 to (8 - i)
print i;
next
print
next[/html]

---

این اونی که من میخوام نیست
من میخوام عدد وسط رو بدیم بقیه اعداد اتوماتیک ساخته و چاپ بشه

و جا داره از تمامی دوستانی که منو راهنمایی کردن سپاس گزاری کنم

کد:

---

    Dim key As Integer
    key = InputBox("enter key", "key")
    Me.Cls
    Me.AutoRedraw = True
   
    For i = 1 To key
      Print Spc(key - i);
      For j = 1 To i
            Print i;
      Next
      Print
    Next
   
    For i = key + 1 To key * 2
      Print Spc(i - key);
      For j = 1 To ((key * 2) - i)
          Print i;
      Next
      Print
    Nex

---

امیدوارم همونی باشه که میخوای.

ایول همینه دستتون درد نکنه