vb怎么实现模拟投点

来源：百度知道 编辑：UC知道 时间：2024/06/02 13:50:42
比如 在一个矩形区域内 模拟投点
或在一组平行线中自由投针
急急急

什么是投点和投针，自由投针又是什么？
Private Sub Command1_Click()
Randomize
PSet (500 + Int(1000 * Rnd()), 500 + Int(1000 * Rnd())), vbRed
End Sub

Private Sub Form_Activate()
Line (500, 500)-Step(1000, 0), vbRed
Line -Step(0, 1000), vbRed
Line -Step(-1000, 0), vbRed
Line -Step(0, -1000), vbRed
End Sub