?? b樣條曲線.frm
字號:
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
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -