编程：1-5这几个数字不重复，一共有多少个组合

如题，有没有公式或者程序注释
O(∩_∩)O谢谢

Private Sub Form_Load()

Debug.Print A(5, 5)

End Sub

Private Function A(lngUbound As Long, lngLbound As Long) As Long
'使用方法,在别的过程中使用
'Debug.Print A(5, 5)
'或者某变量=A(上标，下标)

'判断上标下标是否合法
'上标要小于等于下标
If lngLbound < lngUbound Then Exit Function
'限制到正数范围内[俺目前高中想不到负数的排列]
If lngLbound <= 0 Or lngUbound < 0 Then Exit Function
'用于储存过程数值
Dim lngIndex As Long
'定义排列计算范围,初始化累加器数值
lngUbound = lngLbound - lngUbound + 1: A = 1
'开始计算
For lngIndex = lngLbound To lngUbound Step -1
'求和
A = lngUbound * lngIndex * A
'继续下一次计算
Next
'结束过程
End Function

A51+A52+A53+A54+A55=325

这是数学的排列组合

private sub form_load() debug.print a(5, 5) end sub private function a(lngubound as long, lnglbound as long) as long '使用方法,在别的过程中使用 'debug.print a(5, 5) '或者某变量=a(上标，下标) '判断上标下标是否合法 '上标要小于等于下标 if lnglbound '限制到正数范围内[俺目前高中想不到负数的排列] if lnglbound '用于储存过程数值 dim lngindex as long '定义排列计算范围,初始化累加器数值 lngubound = lnglbound - lngubound + 1: a = 1 '开始计算 for lngindex = lnglbound to lngubound step -1 '求和 a = lngubound * lngindex * a '继续下一次计算 next '结束过程 end function