vb中pset函数的使用例子。
答案:1 悬赏:40
解决时间 2021-01-13 23:17
- 提问者网友：火车头
- 2021-01-13 14:54
vb中pset函数的使用例子。
最佳答案
- 二级知识专家网友：轻熟杀无赦
- 2021-01-13 15:48
画点方法Pset
格式：[容器.]Pset [step](x,y)[,color]
实例：
Private SubCommand1_Click()
Dim i As Integer, nAs Byte, x As Integer, y As Integer
Dim r As Integer, gAs 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
格式：[容器.]Pset [step](x,y)[,color]
实例：
Private SubCommand1_Click()
Dim i As Integer, nAs Byte, x As Integer, y As Integer
Dim r As Integer, gAs 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
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！
点此我要举报以上问答信息！
大家都在看
推荐信息