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

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

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

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

上一个：VB和单片机通讯
下一个：问下各位怎么写vb代码是这一个程序动起来，就是时间会变动