VB 用定时器控制在窗体上随机显示五角星，要求五角星的大小随机，颜色随机

Question

如题所述

Answer 1

Private Sub Timer1_Timer()
Const Pi = 3.14159265358979
Me.Cls
Dim dr As Integer
Randomize
dr = Rnd * 2000 + 100
Dim x, y As Integer
x = 2000
y = 2000
Dim x1, x2, x3, x4, x5 As Integer
Dim y1, y2, y3, y4, y5 As Integer
'中心坐标是（x，y）
'求五个点的坐标
x1 = x: y1 = y - dr
x2 = x + dr * Cos(Pi / 10)
y2 = y - dr * Sin(Pi / 10)
x3 = x + dr * Cos(54 / 180 * Pi)
y3 = y + dr * Sin(54 / 180 * Pi)
x4 = x - dr * Cos(54 / 180 * Pi)
y4 = y3
x5 = x - dr * Cos(18 / 180 * Pi)
y5 = y2
Dim r, g, b As Integer
Randomize
r = Rnd * 255
Randomize
g = Rnd * 255
Randomize
b = Rnd * 255
Dim cl As Long
cl = RGB(r, g, b)
'画五角星
Line (x1, y1)-(x3, y3), cl
Line -(x5, y5), cl
Line -(x2, y2), cl
Line -(x4, y4), cl
Line -(x1, y1), cl
End Sub