Question

使用VB编程：五星

五星
1.窗体上放置一个标签和一个计时器控件。
2.标签的caption属性设置为“★”。
3.计时器的时间间隔设置为100。
4.标签字体最大为80，最小为5，变化一次增加2或减少2，实现颜色随机。

Answer 1

Private Sub Timer1_Timer()
Dim fs As Integer

tmp = Rnd(1) - 0.5 '随机正或负

If tmp > 0 Then
fs = 2
Else
fs = -2
End If

Label1.Font.Size = Label1.Font.Size + fs

If Label1.Font.Size > 80 Then Label1.Font.Size = 80
If Label1.Font.Size < 5 Then Label1.Font.Size = 5

Label1.ForeColor = RGB(Int(255 * Rnd(1)), Int(255 * Rnd(1)), Int(255 * Rnd(1)))

End Sub

Answer 2

晚了

追问

五星
1.窗体上放置一个标签和一个计时器控件。
2.标签的caption属性设置为“★”。
3.计时器的时间间隔设置为100。
4.标签字体最大为80，最小为5，变化一次增加2或减少2，实现颜色随机。

追答

不是回答过了吗？

追问

那个可以吗，不太对啊

追答

你新开一个问题，我告诉你