VB如何计算两点之间路径的条数?picture1里面有两个点(1,1)和(10,10),从(1,1)开始,规定只能向正右或向正下,或者向右下运动一个点,求一共有多少种路径可以运动到(10,10)

Question

VB如何计算两点之间路径的条数?
picture1里面有两个点(1,1)和(10,10),从(1,1)开始,规定只能向正右或向正下,或者向右下运动一个点,求一共有多少种路径可以运动到(10,10)

Answer 1

'答案应该是 48620条
'递归出来的 x1y1 为左边坐标且必须小于右边坐标的X2Y2值
Private Sub Command1_Click()
MsgBox lujingn(1, 1, 10, 10)
End Sub
Function lujingn(x1, y1, x2, y2) As Long
If x1 < x2 And y1 < y2 Then
lujingn = lujingn(x1 + 1, y1, x2, y2) + lujingn(x1, y1 + 1, x2, y2)
ElseIf x1 < x2 Then
lujingn = 1
ElseIf y1 < y2 Then
lujingn = 1
Else
lujingn = 1
End If
End Function