Question

VB如何计算两点之间路径的条数?

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