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/05/05 13:39:06
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 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就行了.