UC知道跪求vb菱形循环代码
来源：百度知道 编辑：UC知道 时间：2024/09/21 06:35:21
要求效果：
*
* *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* *
*
要求语言：VB
*
* *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* *
*
（标准图形）
*
* *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* *
*
要求语言：VB
*
* *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* * *
* *
*
（标准图形）
Dim i, n1, n2, a(100, 100) As Integer
Private Sub Form_Load()
i = -1: n = 0
End Sub
Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
i = i + 1
Select Case i
Case 0 '画菱形
Cls
For n1 = -9 To 9
For n2 = 1 To (9 - Abs(n1) + 1)
Print Tab((n2) * 2 + Abs(n1) + 9); "*";
Next n2
Print
Next n1
Case 1 '画方
Cls
For n1 = 1 To 10
For n2 = 1 To 10
Print Tab(n2 * 2); "*";
Next n2
Print
Next n1
Case 2 '画三角
Cls
For n1 = 1 To 10
For n2 = 1 To (10 - n1)
Print Tab(n2 * 2); "*";
Next n2
Print
Next n1
Case 3 '画三角
Cls
For n1 = 1 To 10
For n2 = n1 To 1 Step -1
Print Tab((10 - n2) * 2 + 2); "*";
Next n2
Print
Next n1
Case 4 '画漏斗
Cls
For n1 = -9 To 9
For n2 = 1 To (Abs(n1) + 1)
Print Tab((n2) *