form1.frm

能够利用测得的点算出圆锥体的顶点坐标和轴线方程

VERSION 5.00
Object = "{F9043C88-F6F2-101A-A3C9-08002B2F49FB}#1.2#0"; "COMDLG32.OCX"
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   3975
   ClientLeft      =   60
   ClientTop       =   450
   ClientWidth     =   5430
   LinkTopic       =   "Form1"
   ScaleHeight     =   3975
   ScaleWidth      =   5430
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command2 
      Caption         =   "计算"
      Height          =   375
      Left            =   2040
      TabIndex        =   1
      Top             =   1560
      Width           =   1335
   End
   Begin MSComDlg.CommonDialog CommonDialog1 
      Left            =   3120
      Top             =   3120
      _ExtentX        =   847
      _ExtentY        =   847
      _Version        =   393216
   End
   Begin VB.CommandButton Command1 
      Caption         =   "读入"
      Height          =   615
      Left            =   1920
      TabIndex        =   0
      Top             =   600
      Width           =   1695
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
Dim xyh(1000, 4) As Double
Dim innum(1000)
N1 = 0
10



CommonDialog1.CancelError = True
On Error GoTo ErrHandler

CommonDialog1.FileName = ""
CommonDialog1.DialogTitle = "打开平面圆数据文件"
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.Filter = "平面圆数据文件 (*.*)|*.*"
CommonDialog1.FilterIndex = 1
CommonDialog1.ShowOpen
    
Fln = CommonDialog1.FileName

Open Fln For Input As #10

Do
    Line Input #10, Aline
        Aline = Trim(Aline)
        Aline1 = Aline
        If Trim(Aline1) = "" Then GoTo 11
        N = 0
        i = InStr(Aline, " ")
        Do While i > 0
            N = N + 1
            innum(N) = UCase(Trim(Mid$(Aline, 1, i - 1)))
            Aline = Trim(Mid$(Aline, i + 1, Len(Aline) - i))
            i = InStr(Aline, " ")
        Loop
        N = N + 1
        innum(N) = UCase(Trim(Aline))
        


        If Not IsNumeric(innum(2)) Or Not IsNumeric(innum(3)) Then
            MsgBox "数据错：" + Aline1
            GoTo ErrHandler
        End If
        N1 = N1 + 1
            xyh(N1, 1) = Val(innum(2))
            xyh(N1, 2) = Val(innum(3))
            xyh(N1, 3) = Val(innum(4))

Loop Until EOF(10)

'Print xyh(2, 1)
11
Close

ErrHandler:
Close
End Sub

Private Sub Command2_Click()

End Sub