Question

在窗体上画出群星闪烁的画面要求每隔0.5秒发生一次事件在窗体上随机画500个（x,y)清除屏幕

在窗体上画出群星闪烁的画面，要求每隔0.5秒发生一次事件，在一次事件中，在窗体上随机画500个（x,y）坐标，然后用白色“点亮”这些点，最后清除屏幕

Answer 1

增加timer控件（interval设置为500），Hscroll控件早卖(visible为false)!

代码：

Private Sub Form_click()
Timer1.Interval = 900 ' 设置时间间隔。
HScroll1.Min = 100 ' 设置最小值。
HScroll1.Max = 900 ' 设置最大值。

End Sub

Private Sub HScroll1_Change()
' 根据滚动条的数值设置时间间隔。要注意下间隔，棚睁纤否则间隔时间短的话，会因速度快而看不到预期效果。
Timer1.Interval = 1000 - HScroll1.Value
End Sub

Private Sub Timer1_Timer()
Dim CX, CY, Msg, XPos, YPos ' Declare variables.
Form1.BackColor = vbBlack
ScaleMode = 3 ' 设置 ScaleMode 为像素。
DrawWidth = 5 ' 设置 DrawWidth.
ForeColor = &HFF80FF ' 设置前景为红色。
FontSize = 40 ' 设置点的大小。
FontBold = True
CX = ScaleWidth / 2 ' 得到水平中点。
CY = ScaleHeight / 2 ' 得到垂直中点。
Cls ' 清窗体。
Msg = "Merry Christmas!"
CurrentX = CX - TextWidth(Msg) / 2 ' 水平位置。
CurrentY = CY - TextHeight(Msg) ' 垂直位置。
Print Msg ' 打印消息。

For i = 1 To 500
XPos = Rnd * ScaleWidth ' 得到水平位置。
YPos = Rnd * ScaleHeight ' 得到链仿垂直位置。
PSet (XPos, YPos), vbWhite ' 画白色点。
Next i
End Sub

Answer 2

加一个迹虚timer，设为500
X，Y设成随机数
PSet (X, Y)
这姿郑燃样就画了一丛姿个点，
再加一个记次的数i .，这样就可以了

Answer 3

不知道你是想说明什么？做程序还是用软件话东西？

Answer 4

你在说什么东西