77问答网
所有问题
当前搜索:
vb编程求n的阶乘
vb
中求1到
n阶乘
的和
答:
我没有自己写,也是百度搜索的,看下有没有帮助:在窗体上放一个命令按纽,
计算
结果将在窗体上输出,代码如下(直接拷贝)Private Sub Command1_Click()Dim a As Integer, b As Integer, c As Integer a = 2 b = 4 c = 6
nn
a, b, c End Sub Sub nn(a As Integer, b As Integer,...
编写
一个
vb
函数过程,
计算
1~10
的阶乘
之和 ,并将运行结果输出在窗体上...
答:
参考代码:Private Sub Command1_Click() Dim i As Integer For i = 1 To 10 Sum = Sum + jc(i) Next MsgBox SumEnd SubFunction jc(a As Integer) jc = 1 For i = 1 To a jc = jc * i NextEnd Function ...
关于
VB求阶乘
的问题
答:
18
的阶乘
没超过 又精度浮点的范围,刚刚测试了一下。还有 你
计算
出来的值是 科学计术法的值 给出简单的代码,自己改写你的代码:Dim i As Integer Dim b As Single b = 1 For i = 1 To 18 b = b * i Next i Print Format(b, "###")还有个提示。 s = Str(s) 这一句可以省略的...
求阶乘
和,
VB编程
答:
Dim s As Double Dim j As Long Dim i As Integer '采用过程 s = 0 For i = 1 To 10 Call Myj1(i, j)s = s + j Next i Print s Print '采用函数 s = 0 For i = 1 To 10 s = s + Myj2(i)Next i Print s End Sub '自定义过程 Private Sub Myj1(ByVal
n
As ...
VB编程
:求1!+2!+3!+...+
N
!(N为任意正整数)
答:
'让数组中每个元素长度与
阶乘
数长度之和不能超过9,以防止溢出。If nl < 1 Then nl = 1 '最小长度是1位,若真到了这么大的数,恐怕没人会去试了^-^
n
= 10 ^ nl '缓存用于分隔大数的被除数,数组中每个元素的长度是 nl,该数就是10的 nl 次方 result(1) = 1 x = 1 Do W...
vb
中do循环求10
的阶乘程序
代码
答:
Private Sub Form_Load()Dim i As Integer Dim
N
As Long i = 10 N = 1 Do While i > 1 N = N * i i = i - 1 Loop Text1 = N End Sub
vb
函数调用求一个数
的阶乘
答:
Function Factorial(ByVal i As Integer)As Long Dim s As Long s = 1 If i>0 Then Do While i>0 s = s i i = i - 1 Loop Factorial = s Else Factorial = 0 End If End Sub 当然也可以用递归,注意数据溢出。调用可以用 ret = Factorial(3),此时 ret = 6 ...
VB
中for 循环
求阶乘
时的代码求详细解说拜托各位了 3Q
答:
Private Sub Form_Click() '单击窗体 j = 10 '
计算
10
的阶乘
x = 1 '从1开始乘[10!=1×] For i = 2 To j ' x = x * i '第1次循环i= 2 【10!=1×2×】 '第2次循环i= 3 【10!=1×2×3×】 '第3次循环i= 4 【10!=1×2×3×4×】 '…… '第9次循环i=10 ...
用fact函数
求阶乘
求和的
vb
语言用过程法 1!+2!+3!+ +
n
! 调用fact函数求...
答:
Private Sub Command1_Click()Dim a As Integer, I As Integer, Sum As Long a = Val(Text1.Text)For I = 1 To a Sum = Sum + fact(I)Next Text2.Text = Sum End Sub Private Function fact(X As Integer)Dim K As Integer, S As Long S = 1 For K = 1 To X S = S *...
VB求
1到5
的阶乘
的和用双循环怎么做。我写的这个是把所有结果相乘了...
答:
for i = 1 to 5 s=1 for j = 1 to i s=s * j next sum=sum+s next msgbox sum
棣栭〉
<涓婁竴椤
5
6
7
8
10
11
12
9
13
14
涓嬩竴椤
灏鹃〉
其他人还搜