vb中如何画点

vb中如何画点

Pset (x, y), color
其中x,y是所画点的坐标值，color是点的颜色值，比如：
Me.PSet (100, 100), vbRed '在当前窗体的(100,100)位置画一个红色的点
又比如：
Picture1.PSet (Picture1.ScaleWidth \ 2, Picture1.ScaleHeight \ 2), vbBlue '在Picture1中的中心位置画一个蓝色的点

private sub command1_click() '确定按钮单击事件 dim x, y as single '定义x,y两个变量 picture1.scale (-10, 25)-(10, -25) '定义坐标系 picture1.line (-10, 0)-(10, 0), rgb(0, 0, 255) '画横坐标轴，颜色为蓝色 picture1.line (0, 25)-(0, -25), rgb(0, 0, 255) '画纵坐标轴，颜色为蓝色 '用循环语句描点画函数图像 for x = -10 to 10 step 0.0001 'x值从-10变化到10，每次增量为0.0001 y = x ^ 2 '根据表达式y=x2来计算y值 picture1.pset (x, y), rgb(255, 0, 0) '根据x,y的值用红色描点 next x '取下一个增量后的x值 end sub '结束程序 这个编码应该可以 吧