首页

星链币 > VB打印这个题目金字塔图案如图所示 1 222 33333 4444444 555555555 6666666 77777 888 9 谢谢啊

VB打印这个题目金字塔图案如图所示 1 222 33333 4444444 555555555 6666666 77777 888 9 谢谢啊

2025-05-09 16:02:50

推荐回答（2个）

回答1：

For i = 1 To 9
Picture1.Print Spc(9 - i); String(2 * i - 1, CStr(i))
Next i

回答2：

Private Sub Command1_Click()
Dim i%
For i = 1 To 9
Print Spc(Abs(5 - i)); String(IIf(i <= 5, i * 2 - 1, (9 - i) * 2 + 1), CStr(i))
Next
End Sub

相关问答

最新问答

上海贝亭阀门有限公司怎么样？

江西省水利水电学校是什么学校

若有定义 int a[3][5];则a数组中行下标的上限为 _________ ,列下标的下限为 _____

福永汽车站到塘尾村富民工业区怎么走

请问我属马老公属蛇儿子属狗我想2月27日搬家是否合适如不行 2月份还哪天合适急谢谢

温州市伸九贸易有限公司怎么样？

中民投(广西)投资有限公司怎么样？

江阴车站坐几路车可以到澄江福地

oppo拍照手机，vivo音乐手机，是不是有这样的说法？

大一高数，只需回答九题，谢谢