高考问答阴阳师如何寻找鬼王:VB：函数写阶乘的一个式子
来源：百度文库 编辑：高考问答 时间：2024/04/28 23:32:18
大概是有2个文本框text1,text2
然后按一个钮得出一个阶乘式子的答案：
Val(text1.text)!/Val（text2.text)!
谢谢！
一楼~~一定要用函数写~~这个是要求~~谢谢！
然后按一个钮得出一个阶乘式子的答案：
Val(text1.text)!/Val（text2.text)!
谢谢！
一楼~~一定要用函数写~~这个是要求~~谢谢！
x=text1.text
y = text2.text
if x <0 or y<0
print "数据输入错误"
s1=x
s2=y
for i = x-1 to 1 step -1
s1=s1*i
next i
for j = y-1 to 1 step -1
s2=s2*j
next j
s=s1/s2
peinr s
我实践一下先
==============================================
我比较喜欢搞循环,哈哈
2个文本框m=text1,n=text2
求m!/[n!*(m-n)!]，最后要print那个得数
function fun(a as integer) as integer
if a=1 then fun = 1
fun=a*fun(a-1)
end function
m=text1,n=text2
SM=fum(m)
sn=fum(n)
smn=fun(m-n)
print sm/(sn*smn)]
这样该可以了吧
实践下下