UC知道求vb菱形代码！！急！！！
来源：百度知道 编辑：UC知道 时间：2024/07/04 09:02:39
请在空格里填空，谢谢！！
Private Sub Picture4_Click()
Picture4.Print
For i = __ To __
For j = __ To ___
Picture4.Print Tab(________); "*";
Next j
Picture4.Print
Next i
End Sub
Private Sub Picture4_Click()
Picture4.Print
For i = __ To __
For j = __ To ___
Picture4.Print Tab(________); "*";
Next j
Picture4.Print
Next i
End Sub
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) *