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 '结束程序
练习1：
1、坐标（-100，10）到（100，-10）
2、y=根号X
3、坐标改为黑色，图像改为绿色
怎么改？怎么次次图像次次都是一条直线
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 '结束程序
练习1：
1、坐标（-100，10）到（100，-10）
2、y=根号X
3、坐标改为黑色，图像改为绿色
怎么改？怎么次次图像次次都是一条直线
