求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和functi
来源:学生作业帮 编辑:拍题作业网作业帮 分类:综合作业 时间:2024/05/01 23:45:53
求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和functi
求计算机vb中的题:编写程序,求S=A!+B!+C!,阶乘的计算分别用sub过程和function过程两种方法来实现.
求计算机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
以上,请采纳吧.
再问: 非常感谢
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过程和Founcti
编写程序,求S=A!+B!+C!,阶乘的计算分别用Sub和Function过程两种方法来实现!
编写程序,求S=a!+b!+c!.要求:(1)程序运行时,输入a、b、c 的值 (2)阶乘的计算用子过程(Sub
求VB程序,利用Sub过程,计算两个整数的最大公约数和最小公倍数.
a,b已知,c=a+b,ci=a+(i-1)b求用VB编写个程序输出c1,c2,c3.的值
求用vb编写下面的程序
用C语言分别编写求两个正整a,b的最大公约数和最小公倍数的程序
编写一个求3个数中最大值和最小值的VB程序,然后用这个过程分别求5个数和7个数的最大最小值.
编一函数过程fact用于计算阶乘,再编写程序调用该函数过程,求1~10的阶乘之和
求阶乘运算程序内容:从计算机键盘任意输入一个1位十进制数据,要求使用汇编语言编写程序实现计算该数据的阶乘,要求屏幕有提示
c语言编写计算a+b=?的程序