vbscript 语言写

来源:百度知道 编辑:UC知道 时间:2024/06/06 07:37:32
哪位哥哥帮我写个 用VB
(n-1)!+(m+1)!/(n+m)!

n = inputbox("输入第一个数","n")
m = inputbox("输入第二个数","m")
n = cint(n)
m = cint(m)
s1 = 1
for i = 1 to n - 1
s1 = s1 * i
next
s2 = 1
for j = 1 to m + 1
s2 = s2 * m
next
s3 = 1
for k = 1 to m + n
s3 = s3 * k
next
msgbox "(n-1)!+(m+1)!/(n+m)! = " & (s1 + s2) / s3