?? x2分布m1.bas
字號:
Attribute VB_Name = "modCall"
Option Explicit
'調用計算卡方分布函數的子程序
Sub Main()
Dim I As Integer, F As Double, d As Double
Dim F1 As Single, d1 As Single
For I = 1 To 9
CX2 I, 5, F, d '調用計算卡方分布函數的子程序
F1 = F: d1 = d
Debug.Print "自由度 = "; I, "卡方值 = 5"; _
" 下側概率 ="; F1, "概率密度 ="; d1
Next I
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -