Question

VB高手来一下!!!~~~小弟VB新人.问个题目!!!

谁能告诉我这个……
*
* *
* * *
* *
*
用VB怎么写？明天考试了……
我承认...不是我的...是网友的...
http://www.pcgg.com.cn/bbs/viewthread.php?tid=95448&pid=2715569&page=1&sid=uqTKKN#pid2715569
电脑游戏攻略论坛...仙境传说RO就是我...楼主问题目...

Private sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 3
Print Tab(40 - i0);
For j = 1 To i
print "*";

Next j
Next i
End Sub

这个，请帮我问问改哪个能变成我要的那个……谢谢了

Answer 1

Private Sub Command1_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 3
Print String(i, "*")
Next i
For j = 2 To 1 Step -1
Print String(j, "*")
Next j
End Sub

Answer 2

这个不知道啊
输出五行符号不就行了么
print "*"
print "**"
print "***"
print "**"
print "*"

Answer 3

用嵌套循环写，直接告诉你答案对你没好处，晚上看看书还来得及