我已得到400个坐标点，如何画一坐标，把点绘制到坐标图中，并连接成曲线。请问：用代码能不能实现？各位帮帮忙啊

line

up

yes!

Option Explicit
Const STEP_PAI As Double = 0.0031415926535
Dim xisu As Double
Private Sub drawPoint(Optional ByVal lngColor As Long = vbBlue)
Cls
Dim i As Long
Dim r As Double
Dim angle As Double
Dim x As Double
Dim y As Double

For i = 0 To 40000
angle = STEP_PAI * i
r = 200 * Sin(angle * xisu)
x = r * Cos(angle)
y = r * Sin(angle)
PSet (x, y), lngColor
Next
End Sub
Private Sub Form_Click()
Dim i As Integer, j As Integer
i = 2 + Int(20 * Rnd)
j = 2 + Int(20 * Rnd)
xisu = i / j
Me.Caption = "n=" & i & "/" & j
drawPoint vbGreen
End Sub
Private Sub Form_Load()
Me.DrawWidth = 2
Me.BackColor = vbBlack
End Sub
Private Sub Form_Resize()
Me.Scale (-250, 250)-(250, -250)
End Sub

冰冷酒一点两点三点

什么东西?

对联,关于"点"的对联.

看起来有点像学校的三角网编写，老师的弟子写的毕业设计，结果是优秀毕业设计！程序被我偷来了（老师不给）。哈哈！