?? form2.frm
字號:
VERSION 5.00
Object = "{B6C10482-FB89-11D4-93C9-006008A7EED4}#1.0#0"; "TeeChart5.ocx"
Begin VB.Form Form2
BorderStyle = 1 'Fixed Single
Caption = "圖示"
ClientHeight = 4170
ClientLeft = 45
ClientTop = 435
ClientWidth = 5625
LinkTopic = "Form2"
MaxButton = 0 'False
MinButton = 0 'False
ScaleHeight = 4170
ScaleWidth = 5625
StartUpPosition = 2 '屏幕中心
Begin TeeChart.TeeCommander TeeCommander1
Height = 495
Left = 120
OleObjectBlob = "Form2.frx":0000
TabIndex = 1
Top = 0
Width = 5415
End
Begin TeeChart.TChart TChart1
Height = 3495
Left = 120
TabIndex = 0
Top = 600
Width = 5415
Base64 = $"Form2.frx":004C
End
End
Attribute VB_Name = "Form2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Form_Load()
Dim n As Single
Dim k As Single
Dim st As String
TeeCommander1.Chart = TChart1
TChart1.Series(0).Clear
TChart1.Series(1).Clear
m = UBound(x())
n = UBound(h())
For i = 0 To m
TChart1.Series(0).AddXY x(i), y(i), "", vbRed
Next i
If biaozi = 1 Then
For k = x(0) To x(m) Step (x(m) - x(0)) * 0.0001
TChart1.Series(1).AddXY k, duoxs(h(), n, k), "", vbBlue
Next k
st = ""
For i = 0 To n
If i = 0 Then
st = st & "Y=" & h(0) & " + "
ElseIf i > 0 And i < n Then
st = st & "(" & h(i) & ")X^" & i & "+"
ElseIf i = n Then
st = st & "(" & h(n) & ")X^" & i
End If
Next i
st = st & Chr(13) + Chr(10)
'st = st & "r=" & r
TChart1.Header.Text.Add (st)
ElseIf biaozi = 2 Then
Debug.Print h(0), h(1)
Debug.Print x(0), x(m)
For k = x(0) To x(m) Step (x(m) - x(0)) * 0.0001
TChart1.Series(1).AddXY k, cm(h(0), h(1), k), "", vbBlue
Next k
st = ""
st = st & "y=" & h(0) & "x^" & "(" & h(1) & ")"
'st = st & "r=" & r
TChart1.Header.Text.Add (st)
ElseIf biaozi = 3 Then
For k = x(0) To x(m) Step (x(m) - x(0)) * 0.0001
TChart1.Series(1).AddXY k, duis(h(0), h(1), k), "", vbBlue
Next k
st = ""
st = st & "y=" & h(1) & "Log(X)+" & "(" & h(0) & ")"
'st = st & "r=" & r
TChart1.Header.Text.Add (st)
ElseIf biaozi = 4 Then
For k = x(0) To x(m) Step (x(m) - x(0)) * 0.0001
TChart1.Series(1).AddXY k, zhis(h(0), h(1), k), "", vbBlue
Next k
st = ""
st = st & "y=" & h(0) & "Exp(" & h(1) & "X)"
'st = st & "r=" & r
TChart1.Header.Text.Add (st)
End If
'TChart1.Series(0).Clear
'TChart1.Series(1).Clear
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -