Question

编写一个VB程序在窗体上以鼠标点击处为起点,绘制1000条终点不同的射线

Answer 1

Private Sub Form_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single)
Dim x1 As Integer, y1 As Integer
For i = 1 To 1000
x1 = Int(2 * Rnd * Me.Width) - Int(Rnd * Me.Width)
y1 = Int(2 * Rnd * Me.Height) - Int(Rnd * Me.Height)
If x1 < 0 Or x1 > Me.Width Or y1 < 0 Or y1 > Me.Height Then
Line (X, Y)-(x1, y1)
Else
i = i - 1
End If
Next i
End Sub