Question

编写一个VB循环程序用line方法或line控件对象在屏幕上随机产生20条长度、颜色、宽度各异的直线段

Answer 1

在屏幕上，指的是在本程序窗体上的话就是
dim i as long
for i = 1 to 2
me.line (1000 * rnd, 1000 * rnd) - (1000 * rnd, 1000 * rnd), &Hffffff * rnd
next
若在屏幕上指的是在整个电脑的屏幕（可以跨出本窗体）的话就要调用API
先获得句柄为0（即桌面）的图形设备，然后在图形设备上画线。这个实现起来比上个要困难的多。
要考虑的因素比较多。