2F 代码并没问题, 唯一有可能的是我用一个倒三角的特殊字符, 而在你的电脑里面可能无法显示.
Debug.print 是适用在设计时期纠错用为妥, 而不是在运行中的"系统"使用.
2F 代码 效果图:
等级
本版专家分:17633
勋章
红花2008年4月VB大版内专家分月排行榜第一
2008年3月VB大版内专家分月排行榜第一
'就使用 * 不使用特殊符
Dim i%
Private Sub Command1_Click()
Call star("*", 9)
End Sub
Sub star(txtstr As String, starno As Integer)
'倒三角形
For i = starno To 1 Step -1
Print Space(starno - i) & String((i) * 2 - 1, txtstr)
Next i
End Sub
等级
本版专家分:40411
勋章
微软MVP2012年4月 荣获微软MVP称号
2003年4月 荣获微软MVP称号
红花2008年2月VB大版内专家分月排行榜第一
2003年4月VC/MFC大版内专家分月排行榜第一
2002年11月VC/MFC大版内专家分月排行榜第一
黄花2011年11月VC/MFC大版内专家分月排行榜第二
2008年3月VB大版内专家分月排行榜第二
2008年3月 硬件/嵌入开发大版内专家分月排行榜第二
2003年4月 其他开发语言大版内专家分月排行榜第二
2003年4月VB大版内专家分月排行榜第二
2003年3月VB大版内专家分月排行榜第二
蓝花2008年5月 其他开发语言大版内专家分月排行榜第三
2008年4月 其他开发语言大版内专家分月排行榜第三
2008年3月 其他开发语言大版内专家分月排行榜第三
2003年3月VC/MFC大版内专家分月排行榜第三
2003年5月 其他开发语言大版内专家分月排行榜第三
6楼的图片好看。