Question

VB中如何利用用"*"打印图形形状?

*
***
*****
***
*
是菱形啊！
空格不知道怎么没有了
Dim i As Integer
Dim j As Integer
for i=-3 to__1____
Print Tab(Abs(i) + 5)
for j=1 to 2*(3-__2___ )-1
Print____3____
Next j
Print_____4____
Next i
End Sub
帮我提下啊

Answer 1

我已经忘记VB里的一些关键字了,下面就用杂合的代码吧,这个代码无法直接运行,你自己把它转化成你的VB代码吧,^_^
for(int i=1;i<=3;i++)
{
if(i<=3)
{
'调用函数
print(i);
}
else
{
'调用函数
print(3-i);
}

}

'这个函数用于打印单行的*
public void print(int iNum)
{
for(int i=0;i<iNum)
{
输出("*");
}
输出(换行符);
}

Answer 2

参考一下吧!

另外写的菱形

Private Sub Form_Click()
Dim str As String
Dim i, j As Integer
For i = 1 To 3 '控制前三行
For j = 3 - i To 1 Step -1 '每行输出多少个空格
str = str + " "
Next j
For j = 1 To 2 * i - 1 '每行输出多少个*
str = str + "*"
Next j
str = str + vbCrLf
Next i
Print str;
str = ""
For i = 2 To 1 Step -1 '控制后两行
For j = 3 - i To 1 Step -1 '每行输出多少个空格
str = str + " "
Next j
For j = 2 * i - 1 To 1 Step -1 '每行输出多少个*
str = str + "*"
Next j
str = str + vbCrLf
Next i
Print str
End Sub

Answer 3

是填空啊呵呵。
第一个地方填1
第二个地方填abs（i+1）
第三个地方填“*”；
第四个地方不填

Answer 4

不用我说了吧