Question

坐等求助！怎样用VB输出一个“*”字符构成的菱形？

* *** ***** ******* ***** *** *
帮帮忙啊，明天一早就要啊！！！！！

Answer 1

Private Sub Command1_Click()

S = 4 '菱形上半部分的行数（菱形大小），可修改
For I = 1 To S
Print Space(S - I) & String(I * 2 - 1, "*")
Next
For I = S - 1 To 1 Step -1
Print Space(S - I) & String(I * 2 - 1, "*")
Next

End Sub

Answer 2

For i = 1 To 5'上半部分行数
For j = 6 - i To 1 Step -1
Print " ";
Next j
For j = 1 To 2 * i - 1
Print "*";
Next j
Print
Next i
For i = 1 To 4'下半部分行数
For j = 1 To i + 1
Print " ";
Next j
For j = 1 To 9 - 2 * i
Print "*";
Next j
Print
Next i

Answer 3

Private Sub Command1_Click()
Cls
a = 5: b = -1
For i = 1 To 4
a = a - 1: b = b + 2
Print Space(a);
For j = 1 To 7
If j > b Then Exit For
Print "*";
Next j
Print vbCrLf
Next i
For i = 3 To 1 Step -1
a = a + 1: b = b - 2
Print Space(a);
For j = 1 To 7
If j > b Then Exit For
Print "*";
Next j
Print vbCrLf
Next i
End Sub