vb求阶乘的代码编码

如题所述

第1个回答 2016-03-15

Public Function jiecheng(ByVal n As Integer) As Integer
Dim jc As Integer = 1
For i = 1 To n
jc = jc * i
Next
Return jc
End Function

Public sub jiecheng(ByVal n As Integer)
Dim m As Integer
m=1
For i = 1 To n
m= m* i
Next
jiecheng=m
End sub本回答被提问者采纳

相似回答

vb编程题。编写求阶乘的函数fact(),并调用答：求阶乘代码：Option Explicit Dim i As Long, C As Double, n As LongPrivate Sub fact() C = 1 For i = 1 To n C = C * i Next iEnd SubPrivate Sub Command1_Click() n = Val(Text1.Text) fact Print CEnd Sub ...

VB求1到N的阶乘答：Dim n, i, j As Integer, S, Si As LongDo While .T. n = InputBox("请输入小于13的数", "n=", 0)If n >= 13 Then MsgBox ("请重新输入小于13的数据") Else Exit Do End IfEnddoS = 0For i = 1 To n Si = 1 For j = 2 To i Si = Si * j...

怎么写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编程算1*2*3*...*n答：Private Sub Command1_Click() Dim s As Double, n As Integer, i As Integer s = 1 n = InputBox("请输入数据") For i = 1 To n s = s * i Next i Print sEnd Sub

VB编程,求阶乘的过程答：以下是求输入数的阶乘代码：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 fact = fact * N N = N - 1 LoopEnd FunctionPrivate Sub Command1_Click() N ...

vb如何输入阶乘答：'给你一个自定义函数 Function cjhs(a As Long) As Long cjhs = 1 For i = 1 To a cjhs = cjhs * i Next End Function Private Sub Command1_Click()'引用方法 't等于3的阶乘 t = cjhs(3)End Sub

vb求阶乘的代码编码答：Public Function jiecheng(ByVal n As Integer) As Integer Dim jc As Integer = 1 For i = 1 To n jc = jc * i Next Return jc End Function Public sub jiecheng(ByVal n As Integer)Dim m As Integer m=1 For i = 1 To n m= m* i Next jiecheng=m End sub ...

大家正在搜

vb阶乘求和的代码求1到10的阶乘和的代码 n的阶乘vb代码 vb编程求n的阶乘编写一个求阶乘的函数vb vb编写求阶乘的函数求n的阶乘代码 vb求10的阶乘 vb编程计算n的阶乘