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

VB程序题:编一循环程序,用Line方法或Line控件对象在屏幕上随机产生20条长度、颜色、宽度各异的直线,如图I.1所示。

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版) (龚沛曾等编)课后实验源码
打赏 支付宝打赏 微信打赏

来源:济亨网

本文链接:https://wb98.com/post/114.html

    << 上一篇 下一篇 >>

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