?? d4r6.txt
字號:
Private Sub Command1_ClicK()
'PROGRAM D4R6
'Driver for routine GAMMP
Open "D:\VB常用數值算法集\DATA\FNCVAL.DAT" For Input As #1
Do
Line Input #1, Text$
Loop While Text$ <> "Incomplete Gamma Function"
Line Input #1, NVAL$
NVAL = Val(NVAL$)
Print Text$
Print " A X Actual GAMMP(A,X)"
For I = 1 To NVAL
Line Input #1, DUM$
A = Val(Mid(DUM$, 1, 6))
X = Val(Mid(DUM$, 7, 16))
Value = Val(Mid(DUM$, 23))
Print Tab(4); Format$(A, "#0.00");
Print Tab(12); Format$(X, "#0.####00");
Print Tab(26); Format$(Value, "0.000000");
Print Tab(38); Format$(GAMMP(A, X), "0.000000")
Next I
Close #1
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -