VB 直线连接 点For x = 0 To 360 Step 10x = xy = x - ap1.line(x,y)-(x+10,?)?如何写?应该是For x = 0 To 360 Step 10x = xy = x - aP1.PSet (x, y), vbRedp1.line(x,y)-(x+10,?)
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/04 17:54:42
![VB 直线连接 点For x = 0 To 360 Step 10x = xy = x - ap1.line(x,y)-(x+10,?)?如何写?应该是For x = 0 To 360 Step 10x = xy = x - aP1.PSet (x, y), vbRedp1.line(x,y)-(x+10,?)](/uploads/image/z/7558231-31-1.jpg?t=VB+%E7%9B%B4%E7%BA%BF%E8%BF%9E%E6%8E%A5+%E7%82%B9For+x+%3D+0+To+360+Step+10x+%3D+xy+%3D+x+-+ap1.line%28x%2Cy%29-%28x%2B10%2C%3F%29%3F%E5%A6%82%E4%BD%95%E5%86%99%3F%E5%BA%94%E8%AF%A5%E6%98%AFFor+x+%3D+0+To+360+Step+10x+%3D+xy+%3D+x+-+aP1.PSet+%28x%2C+y%29%2C+vbRedp1.line%28x%2Cy%29-%28x%2B10%2C%3F%29)
VB 直线连接 点For x = 0 To 360 Step 10x = xy = x - ap1.line(x,y)-(x+10,?)?如何写?应该是For x = 0 To 360 Step 10x = xy = x - aP1.PSet (x, y), vbRedp1.line(x,y)-(x+10,?)
VB 直线连接 点
For x = 0 To 360 Step 10
x = x
y = x - a
p1.line(x,y)-(x+10,?)
?如何写?
应该是
For x = 0 To 360 Step 10
x = x
y = x - a
P1.PSet (x, y), vbRed
p1.line(x,y)-(x+10,?)
VB 直线连接 点For x = 0 To 360 Step 10x = xy = x - ap1.line(x,y)-(x+10,?)?如何写?应该是For x = 0 To 360 Step 10x = xy = x - aP1.PSet (x, y), vbRedp1.line(x,y)-(x+10,?)
要画直线吗?这样的话,就花了一条y = x - 10直线
For x = 0 To 360 Step 10
y = x - 10
P1.PSet (x, y), vbRed
Next x
但是如果窗体的ScaleMode属性为Twips,则步长选15较好,15twips为一个像素,如果是Pixel,则步长就1就行了.