计算机会考VB程序题(1)

2、在窗体上单击鼠标，画出200个颜色随机的星星（画笔的宽度为4），画图前先清除窗体中的图形。

Private Sub Form_Click()

CLS

FOR H=1 TO 200 STEP 1

R=FIX(RND*(255-0+1))+0

G=FIX(RND*(255-0+1))+0

B=FIX(RND*(255-0+1))+0

X = Fix(Rnd * (Form1.Width - 0 + 1)) Y= Fix(Rnd * (Form1.HEIGHT - 0 + 1))

PSET (X,Y), RGB(R, G, B) NEXT H

End Sub

Private Sub Form_Load() RANDOMIZE

End Sub

3、制作一个画同心圆的程序，每隔0.5秒钟在窗体中央画60个颜色随

机的同心圆（两圆间距为50），当有鼠标按下时结束程序。

请建立名为“画60个同心圆”的文件夹，并将有关文件保存至该文件夹中。

Private Sub Timer1_Timer()

CLS

FOR H=1 TO 60 STEP 1 R=FIX(RND*256)

G=FIX(RND*(255-0+1))+0

B=FIX(RND*(255-0+1))+0

X= FORM1.Width/2

Y=FORM1.HEIGHT/2

CIRCLE (X,Y),50*H, RGB(R, G, B) NEXT H

End Sub

Private Sub Form_Click()

Timer1.Enabled = False

End Sub

1、单击“画同心圆”按钮时在窗体中心画出10个颜色不同的同心圆,两圆间距为100（要求用FOR循环实现）。

请建立名为“画同心圆”的文件夹，并将有关文件保存至该文件夹中。

12．在窗体中每隔0.1秒钟随机画出一颗星星。要求：窗体的背景色为黑色，星星的颜色为黄色，画笔的宽

度为4，在窗体上单击鼠标即可退出程序。

2、编程实现：程序运行后，窗体背景色每隔0.1秒自动改变一次，颜色随机；单击“结束”按钮，结束程序。

（8分）