求助～电脑编程高手～VB的

来源：百度知道 编辑：UC知道 时间：2024/05/26 19:15:01
我需要一段300行的代码，最好是VB的，随便什么是干什么的，不过最好简单易懂的，白痴代码也行，交给白痴老师用的～
谢谢拉～

代码我有的是,300行肯定超长了,随便给你发几个吧.

绘制正方形
Private Sub Timer1_Timer()
Line1.Visible = True
Line1.X1 = 360
Line1.Y1 = 360
Line1.Y2 = 360
If Line1.X2 > 2280 Then
Line2.Visible = True
Line2.X1 = 2280
Line2.X2 = 2280
Line2.Y1 = 360
If Line2.Y2 > 2280 Then
Line3.Visible = True
Line3.X1 = 2280
Line3.Y1 = 2280
Line3.Y2 = 2280
If Line3.X2 < 360 Then
Line4.Visible = True
Line4.X1 = 360
Line4.X1 = 360
Line4.Y2 = 2280
If Line4.Y1 <= 360 Then
Timer1.Enabled = False
Else
Line4.Y1 = Line4.Y1 - 20
End If
Else
Line3.X2 = Line3.X2 - 20
End If
Else
Line2.Y2 = Line2.Y2 + 20
End If
Else
Line1.X2 = Line1.X2 + 20
End If
End Sub

艺术 图案绘制
Private Sub Command1_Click()
Dim x, y As Integer
Dim i, j As Integer
Dim th As Single
Dim X0, Y0,