Question

有谁可以帮我设计一个vb程序，简单点的就可以！但是不要太简单，要有步骤，谢谢了！不能照课本上的哦！

Answer 1

Private WithEvents Timer1 As Timer
Dim r&, r1&, t&, a1!, a2!, xb!, yb!, s!, b#
Private Sub Form_Load()
'Me.Width = 5500: Me.Height = 5500
Me.Move (Screen.Width - Me.Width), (Screen.Height - Me.Height)
Me.AutoRedraw = True
Me.Caption = "万花筒"
Set Timer1 = Controls.Add("vb.timer", "Timer1")
Timer1.Interval = 10
End Sub
Private Sub Timer1_Timer()
Randomize
r = 340 * Rnd
If r <> 0 Then
r1 = 500
s = r * Rnd
b = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
For t = 1 To 10000
a1 = t * 3.1415926 / 180
a2 = (r1 / r) * a1
xb = 500 + (-(r1 - r) * Cos(a1) - s * Cos(a2 - a1) + 420) * 4
yb = 500 + ((r1 - r) * Sin(a1) - s * Sin(a2 - a1) + 380) * 4
Me.PSet (xb, yb), b
Next t
End If
End Sub

万花筒

Answer 2

你要留给我一个Q呀，告诉我你要什么样的？我这好多。可以和你分享。

Answer 3

总得说说实现什么功能吧！！

Answer 4

你想要的程序是做什么的！也就是说你想要这个程序实现什么样的功能？