VB程序题：用Pset方法在窗体上画200个随机彩色点，点的大小在单位3-6之间变化，如图I.2所示。龚沛曾

VB程序题：用Pset方法在窗体上画200个随机彩色点，点的大小在单位3-6之间变化，如图I.2所示。

图I.2：

解题，代码如下：

Private Sub Form_Click()
    Cls
    Randomize
 For i = 1 To 200
    x = ScaleWidth * Rnd
    y = ScaleHeight * Rnd
    DrawWidth = Rnd * 6 + 3
    PSet (x, y), QBColor(Rnd * 15)
    Next i
End Sub

Visual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码

打赏 支付宝打赏 微信打赏

来源：济亨网

本文链接：http://www.wb98.com/post/115.html