神马品牌网注塑水口 英文:中国无人能解答的一段程序
来源：百度文库 编辑：神马品牌网 时间：2024/05/07 14:58:44
Private Sub Form_Click()
Dim i As Integer, k As Integer
Scale (-453, 876)-(263, -870)
Line (856, 0)-(-678, 0)
Line (0, 887)-(0, -999)
For i = 0 To 3600 Step 360
k = -Sin(i * 3.14159 / 180) * 543
Next i
Line (i, k)-(i + 1, k + 1)
End Sub
怎么也运行不好，怎么回事啊
Dim i As Integer, k As Integer
Scale (-453, 876)-(263, -870)
Line (856, 0)-(-678, 0)
Line (0, 887)-(0, -999)
For i = 0 To 3600 Step 360
k = -Sin(i * 3.14159 / 180) * 543
Next i
Line (i, k)-(i + 1, k + 1)
End Sub
怎么也运行不好，怎么回事啊
是呀，俺劝你别做中国人了
你是要实现什么功能?实现两条线的交叉,程序运行没有问题.可以正常运行,我已经试国了.
你也是中国人,请自重.
Private Sub Form_Click()
Dim i As Integer, k As Integer
Scale (-453, 876)-(263, -870)
Line (856, 0)-(-678, 0)
Line (0, 887)-(0, -999)
For i = 0 To 3600 Step 360
k = -Sin(i * 3.14159 / 180) * 543
Line (i, k)-(i + 1, k + 1)
Next i
End Sub
位置是不是有问题呢。 Line (i, k)-(i + 1, k + 1)
LZ只是要打出一个带XY轴的Sin曲线/X轴为边界的面出来,很简单的一个程序,不要以为自己做不出来中国就没人了,少了你一个地球照样转
楼上的 说的好！