Question

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

在线等，急求

Answer 1

Private Sub Form_click()

  cls

  Randomize

  Me.WindowState = 2

  For i = 1 To 20

    Me.DrawWidth = Int(20 * Rnd) + 1

    Line (Int(Rnd * Form1.Width), Int(Rnd * Form1.Height))-(Int(Rnd * Form1.Width), Int(Rnd * Form1.Height)), RGB(Int(256 * Rnd), Int(256 * Rnd), Int(256 * Rnd))

  Next i

End Sub