77问答网
所有问题
在vb中,分别用过程和函数编写求阶乘的子程序的程序代码怎么写?
如题所述
举报该问题
推荐答案 2013-06-29
函数的
Function Jc(x As Integer)
s = 1
For i = 1 To x
s = s * i
Next i
Jc = s
End Function
Private Sub Command1_Click()
Text2.Text = Jc(Val(Text1.Text))
End Sub
过程的
Sub Jc()
s = 1
For i = 1 To Val(Text1.Text)
s = s * i
Next i
Text2.Text = s
End Sub
Private Sub Command1_Click()
Call Jc
End Sub
温馨提示:答案为网友推荐,仅供参考
当前网址:
http://77.wendadaohang.com/zd/I38GW8WIN.html
其他回答
第1个回答 2013-06-29
Private Function fact(ByVal x As Integer) As Long
Dim i As Integer
Dim r As Longr = 1
For i = 1 To x
r = r * i
Next
fact = r
End Function
相似回答
用
VB编写程序,
求S=A!+B!+C!
,阶乘的
计算
分别用
Sub
过程和
Function过程两种...
答:
(1)用Sub实现的过程如下:Dim a,b,c,s a=1 b=2 c=3 s=0Sub jc(x)Dim v v=1 While x>0 v=v*x x=x-1 Wend s=s+v End Sub jc a jc b jc c MsgBox s (2)用Function的过程如下 Function Function jc(a)If a>0 Then jc=a*jc(a-1)Else jc=1 End If End Functio...
...其中
阶乘的
计算
分别使用子过程和函数
过程来实现,a,b,c的值从文本...
答:
Private Function JC(i As Integer) As Long If i > 1 Then JC = i * JC(i - 1)Else JC = 1 End If End Function Private Sub Command1_Click()Print JC(Val(Text1.Text)) + JC(Val(Text2.Text)) + JC(Val(Text3.Text))End Sub i的范围自己控制一下 ...
如何用
VB语言
编程求数学
阶乘?
答:
1、首先定义一个
函数,
这个
函数里的
内容求n的
阶乘,
返回值是n的阶乘,如下图所示。2、函数定义完成之后,就要开始写main函数里的内容,还是定义变量。3、变量定义后就要赋值,把sum的值写为0.因为后面的求和就需要sum的初始值为0,如下图所示。4、下一步就是利用for循环了,for循环i初始值位1,结束...
VB
编程
,求阶乘的过程
答:
VB求阶乘需要Function 过程来实现
。Function 语句,声明 Function 过程的名称,参数以及构成其主体的代码。以下是求输入数的阶乘代码:Option Explicit Dim Sum As Double Dim N As Integer Dim i As IntegerPrivate Function fact(N As Integer) As Double fact = 1 Do While N > 0...
怎么写vb的阶乘代码
答:
1、For语句实现 Private Sub Command1_Click()Dim s As Long, n As Integer, i As Integer n = Val(Text1.Text)s = 1 For i = 1 To n s = s * i Next i Label4.Caption = Str(s)End Sub 2、Do While语句实现 Private Sub Command1_Click()Dim s As Long, n As Integer, ...
在VB中求阶乘的代码
答:
在VB中求阶乘的
部分
代码
:Private Function fact(m As Integer) As Long Dim i As Integer fact = 1 For i = 1 To m fact = fact * i Next i End Function Private Sub Command1_Click()Dim n As Integer, sum As Long Dim i As Integer n = Val(Text1.Text)For i = 1 To ...
VB求阶乘的代码
。
答:
Private Sub Form_Click()Dim n As Integer, t#, i n = InputBox("输入正整数", "阶乘")t = 1 i = 1 Do While i <= n t = t * i i = i + 1 Loop Print n & "!=" & t End Sub
大家正在搜
vb子过程和函数过程
vb中过程和函数区别
vb函数过程可以带参数
vb子程序或函数未定义
vb怎么自定义函数
vb函数过程一定有返回值
vb函数过程没有返回值
vb中function函数调用
vb常用函数
相关问题
vb代码实现阶乘的功能?写成函数
VB设计,编写程序,根据用户输入的半径,分别调用子函数或子过...
在计算机VB中, 求n的阶乘的具体程序。
用vb求1到n的阶乘和的程序编写
VB编写:用一个函数过程实现一个阶乘?
怎么写vb的阶乘代码
VB编程,求阶乘的过程
用vb 求阶乘,用函数过程实现,我的代码哪错了