"單個迴圈實現方法。因手機打不出五角星，故用*號替代，樓主可自行該改回PrivateSubCommand1_Click()DimaAsInteger"存放每行需列印的*數DimbAsInteger"存放每行左邊空格數DimcAsInteger"存放當前行序號DimiAsInteger,strgAsString"初始化變數a=1b=8c=0Fori=1To17*9c=c "行序號+1IFc<=bThenstrg=strg&"" "行序號小於等於左邊空格數時，列印空格Ifc>bandc<=b+aThenstrg=strg&"*""這時列印*號Ifc>b+aThenstrg=strg&"""這時又列印空格Ifc=17Then"每行末所做的處理strg=strg&vbCrLf "換行顯示c=1 "行序號復位a=a+2"*數增加兩個b=b-1"左邊空格減少一個EndIfNextiPrintstrg"窗體顯示輸出效果EndSub

第一個第二個和第五個前面沒有空格

只需要按著行和列的數學關係進行迴圈列印即可

其它的只需要在列印星號之前列印空格再列印即可

其中最後一個可以偷點懶把第三個和第四個組合起來。。。。

如果程式碼不想自己寫的話

我可以有償代勞