最基础的算法问题，你竟然不会。你应该得好好学习。
For i = 1 To 7 step 2
print string(i, "*")
Next
for i = 1 to 4
for j = 1 to 2*i - 1
print "*";
next j
print
next i
Private Sub Command1_Click()
Dim i
For i = 1 To 4
Print Tab(7 - i); String(i * 2 - 1, "*")
Next
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024