Question

VB程序设计题 试用pset方法在窗体上画1000个随机点，点的大小在单位1~4间变化，点的颜色也随机变化。

试用pset方法在窗体上画1000个随机点，点的大小在单位1~4间变化，点的颜色也随机变化。（编写代码）

Answer 1

在窗体上添加一个按钮，粘贴下列代码

Private Sub Command1_Click()
Dim I As Integer
Dim CX, CY, Msg, XPos, YPos

Me.AutoRedraw = True ' 设置持久图形输出
ScaleMode = 3 ' 设置 ScaleMode 为像素
DrawWidth = 5 ' 设置 DrawWidth.
ForeColor = QBColor(4) ' 设置前景为红色
FontSize = 24 ' 设置点的大小
CX = ScaleWidth / 2 ' 得到水平中点
CY = ScaleHeight / 2 ' 得到垂直中点
Cls ' 清窗体

Msg = "用pset方法在窗体上画1000个随机点"
CurrentX = CX - TextWidth(Msg) / 2 ' 水平位置
CurrentY = CY - TextHeight(Msg) ' 垂直位置
Print Msg ' 打印消息

For I = 1 To 1000
Me.DrawWidth = Int(4 * Rnd + 1) ' 设置图形方法输出的线宽
XPos = Rnd * ScaleWidth ' 得到水平位置
YPos = Rnd * ScaleHeight ' 得到垂直位置
PSet (XPos, YPos), QBColor(Rnd * 15) ' 画彩色点
DoEvents ' 释放控制权,进行其它处理
Next I
MsgBox " 1000 个随机点已经画完 ! ", vbInformation, "提示"

End Sub