Public Function Count_Num(ByVal Big_a As Long, ByVal Big_b As Long, ByVal Big_c As Long, ByVal Small_a As Long, ByVal Small_b As Long, ByVal Small_c As Long) As Integer
Dim Big_lenth As Long '大矩形的长
Dim Big_width As Long '大矩形的宽
Dim Big_high As Long '大矩形的高
Dim Small_lenth As Long '小矩形的长
Dim Small_width As Long '小矩形的宽
Dim Small_high As Long '小矩形的高
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim test As Integer
Dim numtemp As Integer
Dim num As Integer
test = 0
Do While test < 6
If test = 0 Then
Small_lenth = Small_a
Small_width = Small_b
Small_high = Small_c
ElseIf test = 1 Then
Small_lenth = Small_b
Small_width = Small_c
Small_high = Small_a
ElseIf test = 2 Then
Small_lenth = Small_a
Small_width = Small_c
Small_high = Small_b
ElseIf test = 3 Then
Small_lenth = Small_b
Small_width = Small_a
Small_high = Small_c
ElseIf test = 4 Then
Small_lenth = Small_c
Small_width = Small_a
Small_high = Small_b
ElseIf test = 5 Then
Small_lenth = Small_c
Small_width = Small_b
Small_high = Small_a
End If
If Big_high / Small_high >= 1 And Big_lenth / Small_lenth >= 1 And Big_width / Small_width >= 1 Then
i = Fix(Big_lenth / Small_lenth)
j = Fix(Big_high / Small_high)
k = Fix(Big_width / Small_width)
numtemp = i * j * k
Else
num = 0
End If