主窗口.frm

解各类线性方程的方法以及相关的编程! 希望可以采用我这个工程软件,我可是花了好多的心血!

VERSION 5.00
Begin VB.Form 主窗口 
   Caption         =   "主窗口"
   ClientHeight    =   6750
   ClientLeft      =   165
   ClientTop       =   855
   ClientWidth     =   9705
   LinkTopic       =   "Form1"
   Picture         =   "主窗口.frx":0000
   ScaleHeight     =   6750
   ScaleWidth      =   9705
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command5 
      BackColor       =   &H0080FFFF&
      Caption         =   "改进的平方根法"
      Height          =   615
      Left            =   7680
      Style           =   1  'Graphical
      TabIndex        =   5
      Top             =   2400
      Width           =   1935
   End
   Begin VB.CommandButton Command4 
      BackColor       =   &H000000FF&
      Caption         =   "计算结束"
      Height          =   735
      Left            =   7800
      Style           =   1  'Graphical
      TabIndex        =   3
      Top             =   5880
      Width           =   1695
   End
   Begin VB.Timer Timer1 
      Interval        =   20
      Left            =   8520
      Top             =   6000
   End
   Begin VB.CommandButton Command3 
      BackColor       =   &H00FF00FF&
      Caption         =   "高斯-塞德尔迭代法"
      Height          =   615
      Left            =   7680
      Style           =   1  'Graphical
      TabIndex        =   2
      Top             =   1680
      Width           =   1935
   End
   Begin VB.CommandButton Command2 
      BackColor       =   &H0080FF80&
      Caption         =   "乔列斯基分解法"
      Height          =   615
      Left            =   7680
      Style           =   1  'Graphical
      TabIndex        =   1
      Top             =   840
      Width           =   1935
   End
   Begin VB.CommandButton Command1 
      BackColor       =   &H0080C0FF&
      Caption         =   "高斯列主元消去法"
      Height          =   615
      Left            =   7680
      Style           =   1  'Graphical
      TabIndex        =   0
      Top             =   120
      Width           =   1935
   End
   Begin VB.Label Label1 
      BackStyle       =   0  'Transparent
      Caption         =   "O"
      BeginProperty Font 
         Name            =   "隶书"
         Size            =   26.25
         Charset         =   134
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000000FF&
      Height          =   495
      Left            =   4680
      TabIndex        =   4
      Top             =   3120
      Width           =   255
   End
   Begin VB.Menu filemenu 
      Caption         =   "文件"
      Begin VB.Menu baocong 
         Caption         =   "保存"
      End
      Begin VB.Menu tuichu 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu xianxing 
      Caption         =   "线性方程组求解法"
      Begin VB.Menu gaosiliezhu 
         Caption         =   "高斯列主元消去法"
      End
      Begin VB.Menu qiaolie 
         Caption         =   "乔列斯基分解法"
      End
      Begin VB.Menu lufenjie 
         Caption         =   "LU分解法"
      End
      Begin VB.Menu pingfanggenfa 
         Caption         =   "平方根法"
      End
      Begin VB.Menu GAIJIN 
         Caption         =   "改进平方根法"
      End
      Begin VB.Menu gaosisaideer 
         Caption         =   "高斯-塞德尔迭代法"
      End
   End
   Begin VB.Menu feixian 
      Caption         =   "非线性方程解法"
      Begin VB.Menu erfen 
         Caption         =   "二分法"
      End
      Begin VB.Menu niudun 
         Caption         =   "牛顿迭代法"
      End
      Begin VB.Menu xieqie 
         Caption         =   "弦截法"
      End
   End
   Begin VB.Menu chazhi 
      Caption         =   "插值法"
      Begin VB.Menu lagelanri 
         Caption         =   "拉格朗日插值"
      End
      Begin VB.Menu fenduandici 
         Caption         =   "分段低次插值"
      End
      Begin VB.Menu aiermite 
         Caption         =   "埃尔米特插值"
      End
      Begin VB.Menu sanciyangtiao 
         Caption         =   "三次样条插值"
      End
   End
End
Attribute VB_Name = "主窗口"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()
主窗口.Hide
方法1.Show
End Sub

Private Sub Command2_Click()
主窗口.Hide
方法2.Show
End Sub

Private Sub Command3_Click()
主窗口.Hide
方法3.Show
End Sub




Private Sub Command4_Click()
End
End Sub

Private Sub Command5_Click()
主窗口.Hide
方法4.Show
End Sub

Private Sub GAIJIN_Click()
主窗口.Hide
方法4.Show
End Sub

Private Sub gaosiliezhu_Click()
主窗口.Hide
方法1.Show
End Sub

Private Sub gaosisaideer_Click()
主窗口.Hide
方法3.Show
End Sub

Private Sub qiaolie_Click()
主窗口.Hide
方法2.Show
End Sub

Private Sub Timer1_Timer()
Dim i As Integer, X As Single, y As Single
Scale (-320, 240)-(320, -240)
For i = 1 To 100
X = 1000 * Rnd
If Rnd < 0.5 Then X = -X
y = 1000 * Rnd
If Rnd < 0.5 Then y = -y
colorcode = 15 * Rnd
Line (0, 0)-(X, y), QBColor(colorcode)
Next i
Cls
End Sub



Private Sub Timer2_Timer()

End Sub

Private Sub tuichu_Click()
End
End Sub