自由曲线.frm

完整的数值模拟软件

VERSION 5.00
Begin VB.Form Form4 
   BackColor       =   &H00FFFFFF&
   BorderStyle     =   4  'Fixed ToolWindow
   Caption         =   "自由曲线的绘制"
   ClientHeight    =   6870
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   9720
   LinkTopic       =   "Form4"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   6870
   ScaleWidth      =   9720
   ShowInTaskbar   =   0   'False
   StartUpPosition =   3  '窗口缺省
   WindowState     =   2  'Maximized
End
Attribute VB_Name = "Form4"
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
  Me.Line (x(i) * 400, 10000 - y(i) * 400)-(x(i + 1) * 400, 10000 - y(i + 1) * 400), vbBlue
Next i
  m = 10
For l = 1 To n - 2
  If (l + 1) / 3 = Int((l + 1) / 3) Then
      i1 = l
      i2 = l + 1
      i3 = l + 1
      For k = 1 To m + 1
          u = (k - 1) / m
          x1(k) = u * u * (x(i1) - 2 * x(i2) + x(i3)) / 2 + u * (-x(i1) + x(i2)) + (x(i1) + x(i2)) / 2
          y1(k) = u * u * (y(i1) - 2 * y(i2) + y(i3)) / 2 + u * (-y(i1) + y(i2)) + (y(i1) + y(i2)) / 2
      Next k
          For k = 1 To m
              Me.Line (x1(k) * 400, 10000 - y1(k) * 400)-(x1(k + 1) * 400, 10000 - y1(k + 1) * 400), vbRed
          Next k
              i1 = l + 1
              i2 = l + 1
              i3 = l + 2
              For k = 1 To m + 1
                  u = (k - 1) / m
                  x1(k) = u * u * (x(i1) - 2 * x(i2) + x(i3)) / 2 + u * (-x(i1) + x(i2)) + (x(i1) + x(i2)) / 2
                  y1(k) = u * u * (y(i1) - 2 * y(i2) + y(i3)) / 2 + u * (-y(i1) + y(i2)) + (y(i1) + y(i2)) / 2
              Next k
                  For k = 1 To m
                     Me.Line (x1(k) * 400, 10000 - y1(k) * 400)-(x1(k + 1) * 400, 10000 - y1(k + 1) * 400), vbRed
                  Next k
           l = l + 1
   End If
      i1 = l
      i2 = l + 1
      i3 = l + 2
    For k = 1 To m + 1
        u = (k - 1) / m
        x1(k) = u * u * (x(i1) - 2 * x(i2) + x(i3)) / 2 + u * (-x(i1) + x(i2)) + (x(i1) + x(i2)) / 2
        y1(k) = u * u * (y(i1) - 2 * y(i2) + y(i3)) / 2 + u * (-y(i1) + y(i2)) + (y(i1) + y(i2)) / 2
    Next k
   For k = 1 To m
       Me.Line (x1(k) * 400, 10000 - y1(k) * 400)-(x1(k + 1) * 400, 10000 - y1(k + 1) * 400), vbRed
   Next k
Next l
End Sub
Private Sub Form_DblClick()
Unload Me
Form1.Show
End Sub