何老师的济亨网
五笔打字通主页
当前位置：首页 » VB程序题 » 正文
-
VB程序题：编一循环程序，用Line方法或Line控件对象在屏幕上随机产生20条长度、颜色、宽度各异的直线，如图I.1所示。
图I.1
解题，以下为用Line方法的代码：
Private Sub Form_Load()
Randomize
For i = 1 To 30
X1 = ScaleWidth * Rnd
Y1 = ScaleHeight * Rnd
X2 = ScaleWidth * Rnd
Y2 = ScaleHeight * Rnd
DrawWidth = Rnd * 3 + 1
Line (X1, Y1)-(X2, Y2), QBColor(Rnd * 15)
Next i
End SubVisual Basic程序设计教程(第3版) (龚沛曾等编)课后实验源码打赏
支付宝打赏
微信打赏
来源：济亨网
本文链接：http://wb86.com/post/114.html
-
湘公网安备 43011102000514号