随机函数及其应用

满天星

返回

一、结果展示：

> （单击上图可以看结果）

二、问题分析：

（1）一开始就需要把窗体放到最大，如何做？通过设置窗体的WindowState属性。WindowState属性有三个值：0-Normal （常规大小） 1-Minimized （最小化） 2-Maximized（最大化）

（2）画点：使用窗体上的画点语句：Pset(x,y),C 其中（x,y)为点的坐标，C为点的颜色。如果随机画点可以用下面的命令：

x = Form1.Width * Rnd
y = Form1.Height * Rnd
C = RGB(256 * Rnd, 256 * Rnd, 256 * Rnd)
PSet (x, y), C

（3）画多个点，可以使用一个时钟控件对象，在它的Timer事件里一次画一个点。

（4）点的大小可以通过调整窗体的DrawWidth属性值设置。

三、界面设计与属性设置

> > - 只需摆放一个时钟对象即可。

> > - 窗体 需要设置的属性有：

> > - WindowState＝2（运行后窗口最大化）

> > - DrawWidth＝60(在窗体上画点的 大小戓画线的宽度)

> > - 时钟 需要设置的属性有：Interval（时钟事件的间隔）

四、编写代码

需要分别在Form_load和时钟的 Time 事件编写代码。

> > > 其中PSet (x, y), C为画点语句，在坐标（x,y)处画一个颜色为C的点。