vb语言程序如何编写

答案修改:

Private Sub Command1_Click()
For i = 7 To 1 Step -2
Print Space((7 - i) / 2) & String(i, "*") & Space((7 - i) / 2)
Next
End Sub

如果我没猜错的话,你要的应该是一个倒等腰三角形,只是百度打不出来你想要的效果!代码如下!:
for i=7 to 1 step -2
print space((7-i)/2); '注意后面有个分号;
print string(i,"*")
next

for i =4 to 1 step -1
for j=1 to i
print "*";
next j
next i