求解给定数置换的Qbasic码

Question

写一个QBASIC来解决一个给定数字的排列问题。我在Qbasic编译器中尝试过这种方法

Input n
Input r
P = n! / (n - r)!
Print p

Answer 1

正如AKX所建议的，我编写了一个阶乘函数。

Input n

Input r

P = fact(n) / fact(n - r)

Print P

Function fact (n As Integer): 'factorial function
    o = 1
    Do While n > 1:
        o = o * n
        n = n - 1
    Loop
    fact = o
End Function