表达式（x-2）!+(x-3)!+······+(x-N)!,N,X分别输入到2个文本框中,请高手看看我的程序什么地方错

表达式（x-2）!+(x-3)!+······+(x-N)!,N,X分别输入到2个文本框中,请高手看看我的程序什么地方错了
z = 0 s = 1 N = Val(Text1.Text) x = Val(Text2.Text) For i = 1 To N - 1 Do i = i + 1 m = x - i s = m * s Loop While m = 1 z = z + s Next i Label4.Caption = Str(z）

hongli_zhang 1年前已收到1个回答举报

chai1111 花朵

共回答了23个问题采纳率：91.3% 举报

一段时间没看VB了,你试试这段.Private Sub Command1_Click() Dim m As Long,n As Long,f As Long x = Val(Text1.Text) n = Val(Text2.Text) If x < n Then '判断,如果x

1年前

可能相似的问题

已知y+m与x-n成正比例（其中m，n为常数）．如果x=1时，y=3；x=2时，y=5，试确定y与x之间的函数表达式，并

1年前1个回答
已知y+m与x-n成正比例（其中m，n为常数）．如果x=1时，y=3；x=2时，y=5，试确定y与x之间的函数表达式，并

1年前3个回答
已知y+m与x-n成正比例（其中m，n为常数）．如果x=1时，y=3；x=2时，y=5，试确定y与x之间的函数表达式，并

1年前1个回答
已知y+m与x-n成正比例（其中m，n为常数）．如果x=1时，y=3；x=2时，y=5，试确定y与x之间的函数表达式，并

1年前2个回答
解方程(2n+4)(x-n-1)-x=x(x-n-1)

1年前3个回答
分式方程的判断(x-n)/（x+m）+（x+m）/（x-n）=1

1年前1个回答
已知n∈N+，若对任意实数x都有xn=a0+a1（x-n）+a2（x-n）2+…+an（x-n）n+则an-1的值为（　

1年前2个回答
化简(x-1)(x-2)分之一+(x-2)(x-3)分之一+……(x-n)(x-n-1)分之一

1年前3个回答
计算:1/(x-1)+1/(x-1)(x-2)+1/(x-2)(x-3)+.+1/(x-n)(x-n-1)

1年前
若直线y=x-n与抛物线y=x的平方-x-n的交点在X轴上,则N的取值一定为

1年前1个回答
麻烦解一道数学题,非常急~=已知：x,n为正整数,x≥n求证：x4*=(x-n)4*+4n(x-n)3*+6n2*(x-

1年前6个回答
已知函数f（x）=n（x-n+2m）（x-n-2m），g（x）=（[1/2]）x-[1/4]，对∀x∈R，有f（x）＞0

1年前
关于x的一元二次方程x²-x-n=0没有实数根,则二次函数y=x²-x-n图像的顶点一定在第几象限?

1年前5个回答
关于x的一元二次方程x的平方-x-n=0没有实数根,则抛物线y=x平方-x-n的顶点坐标在第___象限

1年前2个回答
设X-N(0.1).则Y=2X+1的概率密度是多少.解因为X-N为(0.1)那吗Y-N(1.4)为什么?财谢谢富没了就1

1年前1个回答
概率统计学中 x-n(30,

1年前2个回答
x-N(1,1),求P(3

1年前1个回答
你们一月二日解答的题“函数y=3-(x-m)(x-n),a,b是方程3-(x-m)(x-n)=0的两个根,实数m,n,a

1年前1个回答
(2x-3)(x-n)=2x^2+5x+m

1年前3个回答

你能帮帮他们吗

精彩回答