最佳答案

将下列代码放入你的Form_Click事件，运行程序并单击窗体空白处就能看到效果了，各变量用中文写的，相信我不用给你解释了吧。

Dim循环变量AsInteger,累加器AsInteger,每行要印几个数()AsInteger,你要打印的最大数AsInteger
Me.Cls
你要打印的最大数=5'这个数不能超过9，因为超过9就需要两个字符的位置才能打印了
ReDim每行要印几个数(1To你要打印的最大数)
累加器=1
For循环变量=1To你要打印的最大数
每行要印几个数(循环变量)=累加器
累加器=累加器+2
Next

For循环变量=1To你要打印的最大数-1
Me.PrintString((每行要印几个数(你要打印的最大数)-每行要印几个数(循环变量))*0.5,32);String(每行要印几个数(循环变量),Trim$(循环变量))
Next
For循环变量=循环变量To1Step-1
Me.PrintString((每行要印几个数(你要打印的最大数)-每行要印几个数(循环变量))*0.5,32);String(每行要印几个数(循环变量),Trim$(循环变量))
Next