Question

小弟跪求:VB 星号排列代码问题 哪位高手能解答啊

如何用for循环嵌套分别打印以下几个图形
*******
*****
***
*
-------------------------
*
***
*****
*******
并分别让此两个图形横排排列和竖排排列~~
请将详细的程序写下 谢谢

Answer 1

我做出来了,这是代码,看看吧
Private Sub Form_Click()
Dim i, j, a, b As Integer
For i = 5 To 1 Step -1
For j = i To 1 Step -1
Print "*";
Next j
Print
Next i

For a = 1 To 5
For b = 1 To a
Print "*";
Next b
Print
Next a
End Sub
这是我的原创

Answer 2

具体什么意思？
还没有看明白呢
是不是分别打印两个三角？？

Private Sub Command2_Click()
Dim I As Long, J As Long
Me.AutoRedraw = True
For I = 0 To 3
J = 4 - Abs(I - 4)
Print Tab(5 - J); String(1 + J * 2, "*")
Next
End Sub

Private Sub Command1_Click()
Dim I As Long, J As Long
Me.AutoRedraw = True
For I = 5 To 8
J = 4 - Abs(I - 4)
Print Tab(5 - J); String(1 + J * 2, "*")
Next
End Sub

Answer 3

<%
for i=1 to 7 a=a & "※"
response.write(a)
response.write("<br>")
%>

Answer 4

很简单，用FOR循环外层控制行数，内层控制每行的*号个数。

Answer 5

看不懂