vb輸出數字金字塔

Private?Sub?Command1_Click()

Dim?i?As?Integer

Dim?j?As?Integer

Dim?s?As?String

For?i?=?1?To?5?Step?1

s?=?String(i?*?2?-?1,?CStr(i))

Print?Spc((10?-?i?*?2)?/?2);?s

Next?i

For?j?=?6?To?9?Step?1

s?=?String(9?-?2?*?(j?-?5),?CStr(j))

Print?Spc(j?-?5);?s

Next?j

End?Sub