用vb随意画n条直线

来源:百度知道 编辑:UC知道 时间:2024/03/29 22:37:41
要两种:
一是从同一点;二是杂乱的。
谢了!
(别笑我,学艺不精,考试所需)

从同一点做线:
Private Sub Form_click()
Dim x1 As Single, y1 As Single
Dim x2 As Single, y2 As Single
Dim i, n
x1 = InputBox("请输入起点x坐标", "输入框")
y1 = InputBox("请输入起点y坐标", "输入框")
n = InputBox("请输入直线条数", "输入框")
For i = 1 To n
Randomize
x2 = Int((10000 * Rnd) + x1)
y2 = Int((10000 * Rnd) + y1)
Form1.Line (x1, y1)-(x2, y2)
Next
End Sub
杂乱直线:
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