77问答网
所有问题
当前搜索:
vb编程计算n的阶乘
在
计算
机
VB
中, 求
n的阶乘
的具体程序。
答:
你可以把它写成一个函数,便于调用,如下: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 IfEnd Sub调用方法如下:n...
vb
求
n的阶乘
用while
答:
n
= InputBox("")i = n s = 1 While (i > 0)s = s * i i = i - 1 Wend Print s
vb
语言用while求
阶乘
答:
Private Sub Form_Click() '点击窗体运行Dim x As Double,
n
As Integern = Val(InputBox("请输入一个整数,注意别太大"))x = 1While n > 0 x = x * n n = n - 1WendMsgBox "
阶乘
为" & xEnd Sub要注意的是,由于数字精度的限制,当
计算
结果大于1百万亿(也就是1后面...
vb
求
n的阶乘
n<=10.n=n*(n-1)*(n-2)*...*2*1
答:
Private Sub Command1_Click()Dim i, j, k For i = 1 To 10 k = 1 For j = 1 To i k = k * j Next Print i & "!=" & k Next End Sub
用
VB
编写求
n
!的通用程序,
计算
1!+3!+5!+…+11!
答:
function jiecheng(byval n as integer) as double '进行
阶乘
运算的函数,n为整型,返回double双精度 jiecheng=1 for i=1 to n jiecheng=jiecheng*i next end function
计算
1!+3!+5!+…+11!只要循环调用阶乘函数就可以了 n=0 for i=1 to 11 step 2 '循环结束后,
n的
值就是1!+3!
VB
程序设计题:
编写程序
,
计算N
!的值(N为键盘输入的一个整数)
答:
Private Sub Command1_Click()Dim XX As Double, YY As IntegerXX = 1YY = Val(InputBox("请输入
N的
值", "输入", 0))If YY > 170 ThenMsgBox "你输入的值太大,最大只能
计算
170
的阶乘
值!"YY = 170End IfFor I = 1 To YYXX = XX * INext IText1.Text = YY & " 的阶乘 = ...
输入一个整数,求出该数
的阶乘
! 要求用
VB
写全
答:
Private Sub Form_Click()Dim
n
!, i!, a!n = InputBox("请输入任何正整数")If Val(n) = Int(n) And n > 0 Then i = 1 a = 1 Do While i <= n a = a * i i = i + 1 Loop Print "n!=" & Format(a, "###")Else Print "输入不正确!输入字符必须是大于等于0的...
VB计算n
个整数
的阶乘
和
答:
Private Sub Command1_Click()s = 0 t = 1
n
= Val(InputBox("
N
="))For i = 1 To n t = t * i s = s + t Next i MsgBox ("1!+2!+..." & n & "!=" & s)End Sub
急急急!!!
VB
自定义一个
计算阶乘的
函数过程fac(
n
),调用该函数过程计算...
答:
看了上面几位的代码 :应该都写错了 楼主的问题是:s等于 1到N之间每个整数的阶乘相加,而不是
N的阶乘
我没理解错吧?稍等 完毕:在模块中输入代码:Public Function fac(n As Integer) As Long '在模块中用public(公用的)定义函数过程 Dim i As Integer, j As Integer, s As Long For i...
visual basic 中
阶乘
怎么表示
答:
在
VB
中没有直接的运算符或是函数能算一个正整数
的阶乘
。在这里需要你自己定义一个函数来
算阶乘
:Function TimeStep(Numer As Integer) As Long TimeStep = 1 For i = 1 To Number TimeStep = TimeStep * i Next End Function 把上述代码复制到这个窗体中所有代码的最上面,即通用(声明)的位置...
<涓婁竴椤
1
2
3
4
5
6
7
8
9
10
涓嬩竴椤
灏鹃〉
其他人还搜