Question

如何用VB编写程序 在窗体上画出N条直线

如题

Answer 1

Private Sub Form_click()
Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim i, n
n = InputBox("请输入直线条数", "输入框")
For i = 1 To n
Randomize
x1 = Int((1000 * Rnd) + 0)
y1 = Int((2000 * Rnd) + 0)
x2 = Int((10000 * Rnd) + x1)
y2 = Int((10000 * Rnd) + y1)
Form1.Line (x1, y1)-(x2, y2)
Next
End Sub