永发信息网

vb中如何画点

答案:2  悬赏:80  手机版
解决时间 2021-03-10 14:32
  • 提问者网友:杀手的诗
  • 2021-03-09 22:44
vb中如何画点
最佳答案
  • 五星知识达人网友:神的生死簿
  • 2021-03-09 23:38
Pset (x, y), color
其中x,y是所画点的坐标值,color是点的颜色值,比如:
Me.PSet (100, 100), vbRed '在当前窗体的(100,100)位置画一个红色的点
又比如:
Picture1.PSet (Picture1.ScaleWidth \ 2, Picture1.ScaleHeight \ 2), vbBlue '在Picture1中的中心位置画一个蓝色的点
全部回答
  • 1楼网友:胯下狙击手
  • 2021-03-09 23:50
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 '结束程序 这个编码应该可以 吧
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯