求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) * 2 - Abs(n1) + 9); "*";

Next n2

Print

Next n1

Case 5 '畫圖

Cls

'*************************** 畫方

For n1 = 0 To 10

For n2 = 0 To 12

a(n1, n2) = (n2) * 2

Next n2

Next n1

'*************************** 方中掏出菱形

For n1 = 1 To 9

For n2 = 1 To (2 * (5 - Abs(5 - n1)))

a(n1, n2 + Abs(5 - n1) + 1) = 0

Next n2

Next n1

'*************************** 菱形中畫方

For n1 = 3 To 7

For n2 = 4 To 9

a(n1, n2) = (n2) * 2

Next n2

Next n1

'*************************** 方中掏出方

For n1 = 4 To 6

For n2 = 5 To 8

a(n1, n2) = 0

Next n2

Next n1

'*************************** 畫出圖象

For n1 = 0 To 10

For n2 = 0 To 12

If a(n1, n2) <> 0 Then

Print Tab(a(n1, n2)); "*";

End If

Next n2

Print

Next n1

Case 6 '畫曲線

Cls

For n1 = 1 To 3

For n2 = 0 To 6 Step (3.14 / 8)

Print Tab(10 * Sin(n2) + 18); "*"

Next n2

Next n1

Case 7 '畫雙曲線

Cls

For n1 = 1 To 3

For n2 = 0 To 6 Step (3.14 / 8)

Print Tab(10 * Sin(n2) + 18); "*"

Print Tab(10 * Cos(n2) + 18); "*"

Next n2

Next n1

i = 0

End Select

End Sub

上一篇:VPX、VME、CPCI、ADVANCE MC、PMC在壹臺單板計算機中代表什麽，代表什麽原理，相關的外設知識要全面詳細。

下一篇:ai是什麽意思?