当前位置:首页 » VB程序题 » 正文

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://wb86.com/post/115.html

    << 上一篇 下一篇 >>

    湘公网安备 43011102000514号 - 湘ICP备08100508号