2个回答
展开全部
Private Sub Command1_Click()
Picture1.Scale (0, 10)-(10, 0)
Dim i!, j!
For i = 0 To 10 Step 0.02
j = i ^ 2
Picture1.Line (i, 0)-(i, j)
Next
End Sub
这样就是给y=x^2在0-10段上涂色,主要就是利用picturebox的line方法
Picture1.Scale (0, 10)-(10, 0)
Dim i!, j!
For i = 0 To 10 Step 0.02
j = i ^ 2
Picture1.Line (i, 0)-(i, j)
Next
End Sub
这样就是给y=x^2在0-10段上涂色,主要就是利用picturebox的line方法
追问
没有填充(涂色)的.方法吗?还有循环步长与Scale设置有何关系?
追答
你可以自定义一个填充的函数。。。
scale设置的是picturebox左上和右下的坐标
小步长是为了减小间距,使画线的效果更像区域填充
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询