① vb輸出數字金字塔
示例代碼如下：PrivateSubCommand1_Click()DimiAsIntegerDimjAsIntegerDimsAsStringFori=1To5Step1s=String(i*2-1,CStr(i))PrintSpc((10-i*2)/2);sNextiForj=6To9Step1s=String(9-2*(j-5),CStr(j))PrintSpc(j-5);sNextjEndSub