?? 頻數m2.bas
字號:
Attribute VB_Name = "modMethod"
'頻數和累積頻數的計算方法
Option Explicit
'P(1 To 行數,1 To 列數):原始數據
'R(1 To 3,1 To 分段數):
' R(1,...)保存段值;R(2,...)保存頻數;R(3,...)保存累積頻數
Public Sub Fre_Add(P, R)
Dim I As Integer, J As Integer, L As Integer
Dim M As Integer, N As Integer, Z As Integer
'根據數組求下標的上界
'M是數據的行數
'N是數據的列數
'Z是數據的分段數
M = UBound(P, 1): N = UBound(P, 2): Z = UBound(R, 2)
'計算頻數
For I = 1 To M
For J = 1 To N
For L = 1 To Z
If P(I, J) <= R(1, L) Then
'落入區間范圍
R(2, L) = R(2, L) + 1
GoTo 100
End If
Next L
100: Next J
Next I
'計算累積頻數
For L = 1 To Z
R(3, L) = R(2, L)
Next L
For L = 2 To Z
R(3, L) = R(3, L) + R(3, L - 1)
Next L
End Sub
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -