谁帮我设计一个vb小程序

Question

学了一个学期的vb程序，基本的都学着了。实际操作还是有点难的。
帮忙设计一个简单的vb程序，要求简单的控件用上。带点动画效果。
我在线等。谢谢了1

Answer 1

这个只用了个定时器，但有动画效果，就是不断重复画圆。
Dim mycolor As Long
Private Sub Form_Load()
Scale (-1.2, 1.2)-(1.2, -1.2)
mycolor = vbBlack
End Sub

Private Sub Timer1_Timer()
Static alpha
delta = 6.28 / 360
Circle (0, 0), 1, mycolor, alpha, alpha + delta
alpha = alpha + delta
If alpha + delta >= 6.28 Then '指定的角度不能大于360度
alpha = 0
mycolor = IIf(mycolor = vbBlack, vbWhite, vbBlack)
End If
End Sub

这个也有动画效果（使字体颜色不断发生变化），用到标签，按钮控件。
Private Sub Form_Load()
Timer1.Enabled = False
Timer1.Interval = 200
End Sub

Private Sub Command1_Click()
Timer1.Enabled = True
End Sub

Private Sub Timer1_Timer()
Label1.ForeColor = QBColor(Int(Rnd() * 16))
End Sub
不知道是否符合你的要求。。。

Answer 2

你可以到一些源码网站上去找，应该有这样的程序

Answer 3

请不要老是麻烦别人给你写代码，请自己写。
如果你想学好编程，就不能这么懒。