编写VB程序，用Pset方法在窗体上画1000个随机点，点的大小在单位1-4之间变化，点的颜色也是随机变化。

For i = 1 to 1000

Pset(RndmeWidth,RndmeHeight),RGB(Rnd255,Rnd255,Rnd255)

MeDrawWidth=Rnd4+1

Doevents

Doevents

Next

Line 方法

在对象上画直线和矩形。

语法

objectLine [Step] (x1, 1) [Step] (x2, y2), [color], [B][F]

Line 方法的语法有以下对象限定符和部分：

部分描述object可选的。 对象表达式，其值为“应用于”列表中的对象。如果object 省略，具有焦点的窗体作为object。Step可选的。关键字，指定起点坐标，它们相对于由 CurrentX 和 CurrentY 属性提供的当前图形位置。(x1, y1)可选的。Single （单精度浮点数），直线或矩形的起点坐标。ScaleMode 属性决定了使用的度量单位。如果省略，线起始于由 CurrentX 和 CurrentY 指示的位置。Step可选的。关键字，指定相对于线的起点的终点坐标。 (x2, y2)必需的。Single （单精度浮点数），直线或矩形的终点坐标。color可选的。Long （长整型数），画线时用的 RGB 颜色。如果它被省略，则使用 ForeColor 属性值。可用 RGB 函数或 QBColor 函数指定颜色。B可选的。如果包括，则利用对角坐标画出矩形。F可选的。如果使用了 B 选项，则 F 选项规定矩形以矩形边框的颜色填充。不能不用 B 而用 F。如果不用 F 光用 B，则矩形用当前的 FillColor 和 FillStyle 填充。FillStyle 的缺省值为 transparent。

说明

画联结的线时，前一条线的终点就是后一条线的起点。

线的宽度取决于 DrawWidth 属性值。在背景上画线和矩形的方法取决于 DrawMode 和 DrawStyle 属性值。

执行 Line 方法时， CurrentX 和 CurrentY 属性被参数设置为终点。

这个方法不能用于WithEnd With 语句块。

Form1DrawStyle = 2

Line (x1, y1)-(x2, y2)

即可

画点划线的话可以使Form1DrawStyle = 3，这个属性的值可以从1取到6，你可以取不同值看效果

以上就是关于编写VB程序，用Pset方法在窗体上画1000个随机点，点的大小在单位1-4之间变化，点的颜色也是随机变化。全部的内容，包括:编写VB程序，用Pset方法在窗体上画1000个随机点，点的大小在单位1-4之间变化，点的颜色也是随机变化。、vb怎么画多边形，输入坐标，画出这些点围起来的图形，怎么做啊！能把程序给我、VB画虚线上面的点等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！