UC知道VB的问题，高手进
来源：百度知道 编辑：UC知道 时间：2024/05/26 09:35:28
有这样一个问题！
设计一个程序，打印下面的图案
*
***
*****
***
*
伪代码题目给了一部分，让自己补充完整
Private Sub Form_Click()
Dim i As Integer
Dim i As Integer
For i= -3 to___⑴____
Print Tab(Abs(i)+5)
For j = 1 To 2*(3-___⑵___)-1
Print ___⑶____
Next j
Print ___⑷____
Next i
End Sub
请问上面的怎么写啊！
设计一个程序，打印下面的图案
*
***
*****
***
*
伪代码题目给了一部分，让自己补充完整
Private Sub Form_Click()
Dim i As Integer
Dim i As Integer
For i= -3 to___⑴____
Print Tab(Abs(i)+5)
For j = 1 To 2*(3-___⑵___)-1
Print ___⑶____
Next j
Print ___⑷____
Next i
End Sub
请问上面的怎么写啊！
把图案写清楚，我觉得*前有空格吧，，怎么不写上，还有就是题看 看抄 错没有,我写的你可以参考，楼上“loveihmdf”写的不对
Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
For i = 1 To 5 Step 2
Print String(i, "*")
Next i
For j = 3 To 1 Step -2
Print String(j, "*")
Next j
End Sub
?"*"
?"***"
?"*****"
?"***"
?"*"
1
1
这样就行了
如果按你所写的那个图型，真的看不懂你的程序是怎么回事了。
我没有按你那样的编，你看一下可不可以运行出你所给的那个图型
Private Sub Form_Click()
Dim i As Integer
Dim i As Integer
For i=-4 to 4 step 2
Print Tab(Abs(i)+5)
For j=1 to 5-abs(i)
Print "*"
next i
print
next j
End Sub