b样条曲线.frm

用vb编写的B样条曲线！！直接运行即可

VERSION 5.00
Begin VB.Form Form3 
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "B样条曲线的绘制"
   ClientHeight    =   3195
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   4680
   LinkTopic       =   "Form3"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   3195
   ScaleWidth      =   4680
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
End
Attribute VB_Name = "Form3"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim x(20) As Single
Dim y(20) As Single
Dim x1(60) As Single
Dim y1(60) As Single
Dim b(20) As Single
Private Sub Form_Click()
x(1) = 6: y(1) = 6
x(2) = 7: y(2) = 10
x(3) = 12: y(3) = 14
x(4) = 18: y(4) = 15
x(5) = 20: y(5) = 10
n = 5
Cls
For i = 1 To n - 1
  Line (x(i) * 400, 10000 - y(i) * 400)-(x(i + 1) * 400, 10000 - y(i + 1) * 400), vbBlue
  Next i
m = 10
For i = 1 To n - 2
   For k = 1 To m + 1
      u = (k - 1) / m
      x1(k) = u * u * (x(i) - 2 * x(i + 1) + x(i + 2)) / 2 + u * (-x(i) + x(i + 1)) + (x(i) + x(i + 1)) / 2
      y1(k) = u * u * (y(i) - 2 * y(i + 1) + y(i + 2)) / 2 + u * (-y(i) + y(i + 1)) + (y(i) + y(i + 1)) / 2
   Next k
   For k = 1 To m
      Line (x1(k) * 400, 10000 - y1(k) * 400)-(x1(k + 1) * 400, 10000 - y1(k + 1) * 400), vbRed
   Next k
Next
End Sub

Private Sub Form_DblClick()
Unload Me
Form1.Show

End Sub