?? d11r1.txt
字號:
Private Sub Command1_Click()
'PROGRAM D11R1
'Driver for routine MNBRAK
For I = 1 To 10
AX = I * 0.5
BX = (I + 1#) * 0.5
Call MNBRAK(AX, BX, CX, FA, FB, FC)
Print Tab(5); " A B C"
Print Tab(5); "X";
Print Tab(15); Format$(AX, "0.####00");
Print Tab(29); Format$(BX, "0.####00");
Print Tab(43); Format$(CX, "0.####00")
Print Tab(5); "F";
Print Tab(15); Format$(FA, "0.####00");
Print Tab(29); Format$(FB, "0.####00");
Print Tab(43); Format$(FC, "0.####00")
Next I
End Sub
Function FUNC(X)
FUNC = BESSJ0(X)
End Function
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -