form1.frm

本程序提供了输入表达式计算、积分、微分、拟合、插值等多种数值计算

    Text1.Text = Text1.Text & "^"
    Case 19
    Text1.Text = Text1.Text & "pi"
    Case 20
    Text1.Text = Text1.Text & "cos()"
    Case 21
    Text1.Text = Text1.Text & "sin()"
    Case 22
    Text1.Text = Text1.Text & "tan()"
    Case 23
    Text1.Text = Text1.Text & "ctan()"
    Case 24
    Text1.Text = Text1.Text & "asin()"
    Case 25
    Text1.Text = Text1.Text & "acos()"
    Case 26
    Text1.Text = Text1.Text & "atn()"
    Case 27
    Text1.Text = Text1.Text & "actn()"
    Case 28
    Text1.Text = Text1.Text & "abs()"
    Case 29
    Text1.Text = Text1.Text & "ln()"
    Case 30
    Text1.Text = Text1.Text & "exp()"
    Case 31
    Text1.Text = Text1.Text & "log()"
    
   End Select

End Sub

Private Sub Command4_Click()

Text4.Text = ""
CommonDialog1.ShowOpen
k = 0
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
  Input #1, aa
  k = k + 1

Loop
Close #1
k = k - 1
m = 0
Open CommonDialog1.FileName For Input As #2
Do While Not EOF(2)
 Line Input #2, aa
  m = m + 1
  
Loop
m = m - 1
Close #2
n = k / m
 MSFlexGrid1.Rows = m + 1
 MSFlexGrid1.Cols = n + 1
Open CommonDialog1.FileName For Input As #3
For i = 1 To m
For j = 1 To n

Input #3, aaa
MSFlexGrid1.TextMatrix(i, j) = aaa
Next j
'Text4.Text = Text4.Text + Chr(13) + Chr(10)
Next i
'Print #1, Text4.Text
Close #3
End Sub

Private Sub Command5_Click()
m = MSFlexGrid1.Rows - 1
n = MSFlexGrid1.Cols - 1
Text4.Text = ""
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Output As #1
For i = 1 To m
For j = 1 To n
Text4.Text = Text4.Text + MSFlexGrid1.TextMatrix(i, j) + " "
Next j
Text4.Text = Text4.Text + Chr(13) + Chr(10)
Next i
Print #1, Text4.Text
Close #1
End Sub


Private Sub Command6_Click()
Dim a() As Single, x() As Single, n As Single, b() As Single, c() As Single, d() As Single, x1() As Single, y1() As Single, r() As Single
On Error GoTo handle
n = MSFlexGrid1.Rows - 1
ReDim a(n, n + 1), x(n)
If Option1.Value = True Then




For i = 1 To n

For j = 1 To n + 1
a(i, j) = MSFlexGrid1.TextMatrix(i, j)
Next j
Next i

Call gaos(a(), x(), n)
MSFlexGrid1.Rows = n + 1
MSFlexGrid1.Cols = 2

For i = 1 To n
MSFlexGrid1.TextMatrix(i, 0) = "x(" & i & ")"
MSFlexGrid1.TextMatrix(i, 1) = x(i)
Next i
ElseIf Option2.Value = True Then

For i = 1 To n

For j = 1 To n + 1
a(i, j) = MSFlexGrid1.TextMatrix(i, j)
Next j
Next i

Call sjfj(a(), x(), n)
MSFlexGrid1.Rows = n + 1
MSFlexGrid1.Cols = 2

For i = 1 To n
MSFlexGrid1.TextMatrix(i, 0) = "x(" & i & ")"
MSFlexGrid1.TextMatrix(i, 1) = x(i)
Next i
ElseIf Option3.Value = True Then
ReDim a(n), b(n), c(n), d(n), r(n), x1(n), y1(n)

For i = 2 To n
 a(i) = MSFlexGrid1.TextMatrix(i, 1)

Next i
For i = 1 To n
 b(i) = MSFlexGrid1.TextMatrix(i, 2)

Next i
For i = 1 To n - 1
 c(i) = MSFlexGrid1.TextMatrix(i, 3)

Next i
For i = 1 To n
d(i) = MSFlexGrid1.TextMatrix(i, 4)

Next i

Call zhuigan(a(), b(), c(), d(), x1(), r(), y1(), n, 1)
MSFlexGrid1.Rows = n + 1
MSFlexGrid1.Cols = 2

For i = 1 To n
MSFlexGrid1.TextMatrix(i, 0) = "x(" & i & ")"
MSFlexGrid1.TextMatrix(i, 1) = x(i)
Next i
ElseIf Option4.Value = True Then
ReDim a(n, n + n)


For i = 1 To n

For j = 1 To n
 a(i, j) = MSFlexGrid1.TextMatrix(i, j)
Next j
Next i

For i = 1 To n


 a(i, n + i) = 1

Next i
Call nj(a(), n)

For i = 1 To n
For j = n + 1 To n + n
MSFlexGrid1.TextMatrix(i, j) = a(i, j) / a(i, i)
Next j

Next i
End If
handle:
If Err.Number <> 0 Then
MsgBox Err.Description
End If
End Sub


Private Sub Command7_Click()
MSFlexGrid1.Rows = 2
MSFlexGrid1.Cols = 2
MSFlexGrid1.TextMatrix(1, 1) = ""

End Sub

Private Sub Command8_Click()
Text12.Text = ""
CommonDialog1.ShowOpen
k = 0
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Input As #1
Do While Not EOF(1)
  Input #1, aa
  k = k + 1

Loop
Close #1
k = k - 1
m = 0
Open CommonDialog1.FileName For Input As #2
Do While Not EOF(2)
 Line Input #2, aa
  m = m + 1
  
Loop
m = m - 1
Close #2
n = k / m
 MSFlexGrid2.Rows = m + 1
 MSFlexGrid2.Cols = n + 1
Open CommonDialog1.FileName For Input As #3
For i = 1 To m
For j = 1 To n

Input #3, aaa
MSFlexGrid2.TextMatrix(i, j) = aaa
Next j
'Text4.Text = Text4.Text + Chr(13) + Chr(10)
Next i
'Print #1, Text4.Text
Close #3
End Sub

Private Sub Command9_Click()
m = MSFlexGrid2.Rows - 1
n = MSFlexGrid2.Cols - 1
Text12.Text = ""
CommonDialog1.ShowSave
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Output As #1
For i = 1 To m
For j = 1 To n
Text12.Text = Text12.Text + MSFlexGrid2.TextMatrix(i, j) + " "
Next j
Text12.Text = Text12.Text + Chr(13) + Chr(10)
Next i
Print #1, Text12.Text
Close #1
End Sub

Private Sub Form_Activate()
 Text1.SetFocus
 Text11.SetFocus
End Sub
Private Sub Form_Load()
    Text3.Move -10000, -10000, 1, 1
    MSFlexGrid1.CellBackColor = vbBlue
    MSFlexGrid1.CellForeColor = vbWhite
    MSFlexGrid1.Row = 1
    MSFlexGrid1.Col = 1
   Text11.Move -10000, -10000, 1, 1
    MSFlexGrid2.CellBackColor = vbBlue
    MSFlexGrid2.CellForeColor = vbWhite
    MSFlexGrid2.Row = 1
    MSFlexGrid2.Col = 1
    MSFlexGrid2.TextMatrix(1, 0) = "X(i)"
    MSFlexGrid2.TextMatrix(2, 0) = "Y(i)"
    Text28.Move -10000, -10000, 1, 1
    MSFlexGrid4.CellBackColor = vbBlue
    MSFlexGrid4.CellForeColor = vbWhite
    MSFlexGrid4.Row = 1
    MSFlexGrid4.Col = 1
    MSFlexGrid4.TextMatrix(1, 0) = "X(i)"
    MSFlexGrid4.TextMatrix(2, 0) = "Y(i)"
    Text30.Move -10000, -10000, 1, 1
    MSFlexGrid3.CellBackColor = vbBlue
    MSFlexGrid3.CellForeColor = vbWhite
    MSFlexGrid3.Row = 1
    MSFlexGrid3.Col = 1
    MSFlexGrid3.TextMatrix(1, 0) = "X(i)"
    MSFlexGrid3.TextMatrix(2, 0) = "Y(i)"
End Sub


Private Sub MSFlexGrid1_EnterCell()
    MSFlexGrid1.CellBackColor = vbBlue
    MSFlexGrid1.CellForeColor = vbWhite
    Text3.Text = MSFlexGrid1.Text
    Text3.SelStart = 0
    Text3.SelLength = Len(Text3.Text)
End Sub

Private Sub MSFlexGrid1_LeaveCell()
    MSFlexGrid1.CellBackColor = vbWhite
    MSFlexGrid1.CellForeColor = vbBlue
End Sub

Private Sub MSFlexGrid1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Text3.SetFocus
End Sub

Private Sub Text3_Change()
    MSFlexGrid1.Text = Text3.Text
End Sub

Private Sub Text3_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyLeft
          MSFlexGrid1.Text = Text3.Text
          MSFlexGrid1.SetFocus
          
          If MSFlexGrid1.Col <= 1 Then
          MSFlexGrid1.Col = 1
          Else
          MSFlexGrid1.Col = MSFlexGrid1.Col - 1
          End If
          Text3.SetFocus
          Case vbKeyRight
          MSFlexGrid1.Text = Text3.Text
          MSFlexGrid1.SetFocus
          
         If MSFlexGrid1.Col >= MSFlexGrid1.Cols - 1 Then MSFlexGrid1.Cols = MSFlexGrid1.Cols + 1
          MSFlexGrid1.Col = MSFlexGrid1.Col + 1
          Text3.SetFocus
          Case vbKeyUp
          MSFlexGrid1.Text = Text3.Text
          MSFlexGrid1.SetFocus
          
          If MSFlexGrid1.Row <= 1 Then
          MSFlexGrid1.Row = 1
          Else
          MSFlexGrid1.Row = MSFlexGrid1.Row - 1
          End If
          Text3.SetFocus
          Case vbKeyDown
          MSFlexGrid1.Text = Text3.Text
          MSFlexGrid1.SetFocus
         
          If MSFlexGrid1.Row >= MSFlexGrid1.Rows - 1 Then MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
           MSFlexGrid1.Row = MSFlexGrid1.Row + 1
          Text3.SetFocus
           Case vbKeyReturn
           MSFlexGrid1.Text = Text3.Text
          MSFlexGrid1.SetFocus
         
          If MSFlexGrid1.Row >= MSFlexGrid1.Rows - 1 Then MSFlexGrid1.Rows = MSFlexGrid1.Rows + 1
           MSFlexGrid1.Row = MSFlexGrid1.Row + 1
          Text3.SetFocus
            'KeyCode = 0
    End Select
End Sub
Private Sub MSFlexGrid2_EnterCell()
    MSFlexGrid2.CellBackColor = vbBlue
    MSFlexGrid2.CellForeColor = vbWhite
    Text11.Text = MSFlexGrid2.Text
    Text11.SelStart = 0
    Text11.SelLength = Len(Text11.Text)
End Sub

Private Sub MSFlexGrid2_LeaveCell()
    MSFlexGrid2.CellBackColor = vbWhite
    MSFlexGrid2.CellForeColor = vbBlue
End Sub

Private Sub MSFlexGrid2_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
    Text11.SetFocus
End Sub
Private Sub Text11_Change()
    MSFlexGrid2.Text = Text11.Text
End Sub

Private Sub Text11_KeyDown(KeyCode As Integer, Shift As Integer)
    Select Case KeyCode
        Case vbKeyLeft
          MSFlexGrid2.Text = Text11.Text
          MSFlexGrid2.SetFocus
          
          If MSFlexGrid2.Col <= 1 Then
          MSFlexGrid2.Col = 1
          Else
          MSFlexGrid2.Col = MSFlexGrid2.Col - 1
          End If
          Text11.SetFocus
          Case vbKeyRight
          MSFlexGrid2.Text = Text11.Text
          MSFlexGrid2.SetFocus
          
         If MSFlexGrid2.Col >= MSFlexGrid2.Cols - 1 Then MSFlexGrid2.Cols = MSFlexGrid2.Cols + 1
          MSFlexGrid2.Col = MSFlexGrid2.Col + 1
          Text11.SetFocus
          Case vbKeyUp
          MSFlexGrid2.Text = Text11.Text
          MSFlexGrid2.SetFocus
          
          If MSFlexGrid2.Row <= 1 Then
          MSFlexGrid2.Row = 1
          Else
          MSFlexGrid2.Row = MSFlexGrid2.Row - 1
          End If
          Text11.SetFocus
          Case vbKeyDown
          MSFlexGrid2.Text = Text11.Text
          MSFlexGrid2.SetFocus
         
          If MSFlexGrid2.Row >= MSFlexGrid2.Rows - 1 Then
          MSFlexGrid2.Rows = MSFlexGrid2.Rows
           MSFlexGrid2.Row = MSFlexGrid2.Row
           Else
           MSFlexGrid2.Row = MSFlexGrid2.Row + 1
           End If
          Text11.SetFocus
           Case vbKeyReturn
           MSFlexGrid2.Text = Text11.Text
          MSFlexGrid2.SetFocus
         
          If MSFlexGrid2.Row >= MSFlexGrid2.Rows - 1 Then MSFlexGrid2.Rows = MSFlexGrid2.Rows + 1
           MSFlexGrid2.Row = MSFlexGrid2.Row + 1
          Text11.SetFocus
            'KeyCode = 0
    End Select
End Sub
Private Sub MSFlexGrid4_EnterCell()
    MSFlexGrid4.CellBackColor = vbBlue
    MSFlexGrid4.CellForeColor = vbWhite
    Text28.Text = MSFlexGrid4.Text
    Text28.SelStart = 0
    Text28.SelLength = Len(Text28.Text)
End Sub

Private