何老师的济亨网
五笔打字通主页
当前位置：首页 » 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://www.wb98.com/post/114.html
-
VB程序题：编一循环程序，用Line方法或Line控件对象在屏幕上随机产生20条长度、颜色、宽度各异的直线，如图I.1所示。
最近发表
-
- Setup Factory 安装返回代码
- Inno安装程序退出代码，卸载程序退出代码
- Privacy Policy(隐私政策)
- tkinter，在多模块下编程：多窗口切换，跳转
- tkinter，让窗口右上角关闭按钮‘X’失效，禁用标题栏上的关闭按钮
- tkinter，在同一模块下的多窗体操作，不用Toplevel组件，用函数
- tkinter，在同一模块下的多窗体操作，用Toplevel组件
- vscode 出现 No such file or directory 的解决办法（python tkinter)
- tkinter的listbox组件排序方法，源码
- tkinter新手常常遇到的 'NoneType' object has no attribute ***** ，解决办法很简单。
赞助商链接
-
湘公网安备 43011102000514号