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中的中心位置画一个蓝色的点
其中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 '结束程序
这个编码应该可以 吧
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯