求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和functi求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和function过程两种方法来实现.

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 15:36:14

求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和functi求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和function过程两种方法来实现.
求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和functi
求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和function过程两种方法来实现.

求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和functi求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和function过程两种方法来实现.

首先“落叶|无情”的代码很好,但是我想题目中所说“用Sub过程和Function过程两种方法来实现”的意思,应该是用这两个独立实现求阶乘和,而不是在Sub中还要调用Function.当然,在Sub过程中,最终结果还要用Msgbox之类的语句来显示出来,但这么做应该也是符合题意的.

所以,我的回答是在他之前的成果上,按题意做了些修改.

而且 0也是有阶乘的,所以得考虑变量为0的情形.


Function 过程

Function JC ( n as Integer) as Long
    If n < 0 Then Exit Function
    If n = 0 Then
        JC = 1
        Exit Function
    End If
    For i = 1 to n
        JC = JC * i
    Next
End Function

S = JC(A) + JC(B) + JC(C)

Sub 过程

public S as Long
public x as Long
x = 0
Sub JC(ByVal n as Integer)
    If n < 0 Then Exit Sub
    If n = 0 Then x = x + 1
    jc = 1
    For i = 1 to n
        jc = jc * i
    Next
    x = x + jc
End Sub

Sub Sum()
    S = JC(A) + JC(B) + JC(C)
End Sub


以上,请采纳吧.

求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和functi求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和function过程两种方法来实现. 求s=1-1/2+1/3-1/4+..+1/99-1/100的值 用vb程序编写 编写VB程序,求满足三位数中的各个数位之和大于13的数的个数. 求vb编写程序大神求当s=1*2*3*4...*n小于或者等于5000时最大的n值及此时的s值. 编写程序计算s=1+3+5+...+n求s=100得值,请画出流程图,并写出相应的VB语句代码 用vb编写程序:求s=aa…aa-…-aaa-aa-a(此处aa…aa表示n个a,a和n的值在1至9之间) a,b已知,c=a+b,ci=a+(i-1)b求用VB编写个程序输出c1,c2,c3.的值 VB.net程序编写设a=2,b=3,c=4,d=5,S=ABCDEFGHI]K,求下列表达式的值:(1) 5+(a+b)2 (2)cos(b)(sin(a)+1) (3) 8e3ln2(4) Left(S,4) (5) Mid(S,3,4) (6) Instr(S,EFG) (7)Lcase(Right(S,5)) (8)Len(Mid((S,3) 编写程序求s=1+3+5.+99这个程序怎么写 在c++程序中如何比较三个数的大小编写程序,已知s=max(a,b,c)/max(a+b,b+c,a+c),max(a,b,c)表示求a,b,c三个数中的最大值函数,程序要求输入a,b和c 的值,求s的值并输出. 已知三角形两边A.B及夹角a,求面积S.程序编写怎么写? 编写一个vb程序,输入两个正整数,求他们的最大公约数和最小公倍数,谢谢! VB程序 求三个数中的最大数 vb编程题,1、* 编写程序,计算并输出下面数列中前n项的和.(设n=20)1*2*3,2*3*4,3*4*5,……,n(n+1)(n+2),……2、* 编写程序,求500以内最大的10个能被13或17整除的自然数之和.3、* 编写程序,计算并输出下面 用vb程序编写求s=1+1/2+1/3+...1/n的值,直到1/n的值小于0.0001为止,用do while...loop语句 编写VB程序,求Sn=a+aa+aaa+…(n个a)的值,其中n是表示a的个数,a是【1,9】之间的随机正整数 C语言编写程序,求所有三位数中的素数. 求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absinα求VB小程序!设计一个VB小程序,给定三角形任意两边的长度,和夹角的度数,求三角形的面积.S=absin