本程序采四边形网格法编制了曲面等值线程序

				VERSION 5.00
				Begin VB.Form frmChange 
				   Appearance      =   0  'Flat
				   BackColor       =   &H80000005&
				   Caption         =   "重新给定参数"
				   ClientHeight    =   3015
				   ClientLeft      =   60
				   ClientTop       =   450
				   ClientWidth     =   2910
				   LinkTopic       =   "Form1"
				   ScaleHeight     =   3015
				   ScaleWidth      =   2910
				   StartUpPosition =   3  '窗口缺省
				   Begin VB.CommandButton cmdOK 
				      Caption         =   "确定"
				      Height          =   375
				      Left            =   960
				      TabIndex        =   10
				      Top             =   2520
				      Width           =   975
				   End
				   Begin VB.TextBox txtPC 
				      Alignment       =   2  'Center
				      Height          =   270
				      Left            =   1680
				      TabIndex        =   9
				      Text            =   "Text5"
				      Top             =   2040
				      Width           =   975
				   End
				   Begin VB.TextBox txtPB 
				      Alignment       =   2  'Center
				      Height          =   270
				      Left            =   1680
				      TabIndex        =   8
				      Text            =   "Text4"
				      Top             =   1680
				      Width           =   975
				   End
				   Begin VB.TextBox txtPA 
				      Alignment       =   2  'Center
				      Height          =   270
				      Left            =   1680
				      TabIndex        =   7
				      Text            =   "Text3"
				      Top             =   1320
				      Width           =   975
				   End
				   Begin VB.TextBox txtY 
				      Alignment       =   2  'Center
				      Height          =   270
				      Left            =   1680
				      TabIndex        =   6
				      Text            =   "Text2"
				      Top             =   600
				      Width           =   975
				   End
				   Begin VB.TextBox txtX 
				      Alignment       =   2  'Center
				      Height          =   270
				      Left            =   1680
				      TabIndex        =   5
				      Text            =   "Text1"
				      Top             =   240
				      Width           =   975
				   End
				   Begin VB.Label lblPC 
				      Alignment       =   1  'Right Justify
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "等值线的间隔"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   120
				      TabIndex        =   4
				      Top             =   2040
				      Width           =   1455
				   End
				   Begin VB.Label lblPB 
				      Alignment       =   1  'Right Justify
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "等值线的终止值"
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   120
				      TabIndex        =   3
				      Top             =   1680
				      Width           =   1455
				   End
				   Begin VB.Label lblPA 
				      Alignment       =   1  'Right Justify
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "等值线的起始值"
				      ForeColor       =   &H80000008&
				      Height          =   375
				      Left            =   120
				      TabIndex        =   2
				      Top             =   1320
				      Width           =   1455
				   End
				   Begin VB.Label lblY 
				      Alignment       =   1  'Right Justify
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "Y方向数据点间距"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   120
				      TabIndex        =   1
				      Top             =   600
				      Width           =   1455
				   End
				   Begin VB.Label lblDX 
				      Alignment       =   1  'Right Justify
				      Appearance      =   0  'Flat
				      BackColor       =   &H80000005&
				      Caption         =   "X方向数据点间距"
				      ForeColor       =   &H80000008&
				      Height          =   255
				      Left            =   120
				      TabIndex        =   0
				      Top             =   240
				      Width           =   1455
				   End
				End
				Attribute VB_Name = "frmChange"
				Attribute VB_GlobalNameSpace = False
				Attribute VB_Creatable = False
				Attribute VB_PredeclaredId = True
				Attribute VB_Exposed = False
				'改变参数
				Option Explicit
				
				'确定
				Private Sub cmdOK_Click()
				'重新取得参数值
				    DX = Val(txtX): DY = Val(txtY)      '数据点间距
				'起始等值线、终止等值线、等值线间隔
				    PA = Val(txtPA): PB = Val(txtPB): PC = Val(txtPC)
				    Unload Me
				End Sub