有没有VB趣味实例？发个给我？

Private Sub Form_Load()
Show
Move 0, -300, 90000, 60000
Scale (-9.9, 6.9)-(9.9, -6.9)
Line (-9, 0)-(9, 0)
Line (0, 60)-(0, -60)
For a = -9 To 9 Step 1
CurrentX = a
CurrentY = 0
Print a
DrawWidth = 2
PSet (a, 0), vbGreen
DrawWidth = 1
CurrentX = 0
CurrentY = a
DrawWidth = 2
PSet (0, a), vbGreen
DrawWidth = 1
If a > -6.1 And a < 6.1 Then Print a
Next
R = 3
For t = 0 To 3.14159 * 2 Step 0.01
y = R * Sin(t)
DrawWidth = 3
PSet (t, y), vbGreen
Me.Refresh
Next
End Sub
以上程序直接复制到窗体上即可。

我有个“放大器”实例要不？
我自己还做了个捉弄人的实例要不？
可是给你后要采纳我的意见，反正我也给过你一个了~~