Question

vb怎么画点，使用pset方法？

Answer 1

Private Sub Command1_Click()
Dim i As Integer, n As Byte, x As Integer, y As Integer
Dim r As Integer, g As Integer, b As Integer

For i = 1 To 1000
    Randomize
    n = Int(Rnd * 60 + 10)
    x = Rnd * Form1.Width
    y = Rnd * Form1.Height
    r = Int(Rnd * 256)
    g = Int(Rnd * 256)
    b = Int(Rnd * 256)
    Form1.DrawWidth = n
    Form1.PSet (x, y), RGB(r, g, b)
Next i
End Sub