vb 定义一个过程实现打印n层金字塔，由用户决定打印的层数和字符

显示全部楼层 · 2011-10-19 21:15:52

for i=1 to val(text1.text):x="":for s=(val(text1.text) div 2)-i:x=x+" ":next:n="":for z=1 to i:n=n+"*":next:print x & n:next
:为回车,text1.text为行数...

千问 · 2011-10-19 21:15:52

我打印出来的不整齐：Private Sub Command1_Click()For i = 1 To Val(Text1.Text):
s = (Val(Text1.Text) / 2) - i / 2
' MsgBox s
n = "":
For z = 1 To i: ...

千问 · 2011-10-19 21:15:52

生活如此多娇，只溶在口，不融资啊哈搜啊。。。...