?? inlagrn3mainmodule.bas
字號:
Attribute VB_Name = "MainModule"
Sub Main()
Dim t As Double, z As Double, x(5) As Double, y(5) As Double
Dim s As String
' 給定結點
x(1) = 1.615
x(2) = 1.634
x(3) = 1.702
x(4) = 1.828
x(5) = 1.921
y(1) = 2.4145
y(2) = 2.46459
y(3) = 2.65271
y(4) = 3.03035
y(5) = 3.34066
' 插值位置
t = 1.682
' 插值
z = INLagrn3(5, x, y, t)
s = s & "f(" & t & ") = " & z & Chr(13)
' 插值位置
t = 1.813
' 插值
z = INLagrn3(5, x, y, t)
s = s & "f(" & t & ") = " & z & Chr(13)
MsgBox s
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -