vb程序输出从一到十的阶乘
来自: 更新日期:早些时候
一的阶乘一直加到十的阶乘的vb程序用do while语句怎么编~
n! = 1
For i = 1 To 10
n! = n! * i
Print i & "的阶乘是:" & n!
Next i
End Sub
Private Sub Command1_Click()
n! = 1
For i = 1 To 10
n! = n! * i
MsgBox i & "的阶乘是:" & n!
Next i
End Sub
vb程序输出从一到十的阶乘视频
相关评论:15214487634:vb怎么编10的阶乘?怎么print不出来?我定义为&了...
朱汪叔Dim s As Long s = 1 For i = 1 To 10 Step 1 s = s * i Next i Print s
15214487634:用vb做一个小程序,能够计算1-任意数的阶乘
朱汪叔Dim n As Integer Dim i As Integer Dim s As Long n= Val(Text1.Text)s = 1 For i = 1 To n s = s * i Next Print s Text1中输入你说的“任意数”,注意:当S声明为Long时,N不能大于12,否则会溢出。或者你可以将S声明成更大范围的类型,比如Double,但浮点数值就不准确了。
15214487634: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...
15214487634:用VB或VB.NET输出100以内的质数!还有用Do while 输出1——10的阶乘
朱汪叔'质数Private Sub Command1_Click()Dim i, j As Integer Dim flag As Boolean For i = 1 To 100 For j = 2 To i - 1 If i Mod j = 0 Then: flag = False: Exit For‘只要余数为零,则此时的i不是质数,flag为是否是质数。Next If flag = True Then Print i Else flag = True...
15214487634:“求1到10的阶乘之和”用VB怎么编程序
朱汪叔Private Sub Command1_Click() Dim Sum As Double, i As Integer For i = 1 To 10 Sum = Sum + Factorial(i) Next i Print "Summation ="; SumEnd Sub Public Function Factorial(ByVal n As Integer) As Double Factorial = 1 For i = 1 To n Factorial = Factorial...
15214487634:“求1到10的阶乘之和”用VB怎么编程序
朱汪叔'先写一个求阶乘的函数 Private Function factorial(ByVal n As Integer) As Long Dim i As Integer, l As Long l = 1 For i = 1 To n l = l * i Next factorial = l End Function '添加一个按钮控件 Private Sub Command1_Click()Dim result As Long, i As Integer result = 0 ...
15214487634:vb阶乘计算从1到10的和
朱汪叔Private Sub Command1_Click() For i = 1 To 10 s = s + fac(i) Next i Print "Sum="; sEnd SubFunction fac(n) f = 1 For i = 2 To n f = f * i Next i fac = fEnd Function
15214487634:用VB求1到100阶乘的代码
朱汪叔我在习惯上做一个块,供事件方法调用。它灵活在,你可以传递参数,可以是其它数的阶乘!!Private Sub Command1_Click()MsgBox "100!= " & Total(100) ’从此入口,调用下面的函数,并返回值 End Sub Function Total (num as Double)Dim i As Iinteger num = 1 For i = 1 To 100 num ...
15214487634:vb编程1到10的阶乘用do until.loop的程序
朱汪叔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
15214487634:谁会VB求一个数的阶乘和打印1到100之间能被7整除的数啊
朱汪叔我的机子里没有装vb,我简单地写一下 一个数的阶乘,例如10:dim i as integer'循环控制变量 dim mul as integer'用来存乘积 mul=1 for i=1 to 10 mul=mul*i next i print mul 打印1到100之间能被7整除的数:dim i as integer for i=1 to 100 'mod意思为取模,取出余数,如果余数为...
Dim x As Integer
Dim s As Long
Dim zj As Long
Private Sub Command1_Click()
x = 1
zj = 1
Do While x <= 10
zj = zj * x
s = s + zj
x = x + 1
Print x
Loop
Print s
End Sub
经过验证 运行没有问题 结果完全正确
用vb求1到n的阶乘和的程序:
自己编写函数代码:Private Function jieC(Byval n As Integer) As Long Dim i As Integer Dim Fac As Long Fac = 1 For i = 1 To n Fac = Fac * i Next i jieC = FacEnd Function
在需要求阶乘的地方,调用该函数:例如:Dim y As Longy = jieC(10) '求阶乘(10)将用10调用上面的自定义函数,返回10的阶乘
n! = 1
For i = 1 To 10
n! = n! * i
Print i & "的阶乘是:" & n!
Next i
End Sub
Private Sub Command1_Click()
n! = 1
For i = 1 To 10
n! = n! * i
MsgBox i & "的阶乘是:" & n!
Next i
End Sub
vb程序输出从一到十的阶乘视频
相关评论:
朱汪叔Dim s As Long s = 1 For i = 1 To 10 Step 1 s = s * i Next i Print s
朱汪叔Dim n As Integer Dim i As Integer Dim s As Long n= Val(Text1.Text)s = 1 For i = 1 To n s = s * i Next Print s Text1中输入你说的“任意数”,注意:当S声明为Long时,N不能大于12,否则会溢出。或者你可以将S声明成更大范围的类型,比如Double,但浮点数值就不准确了。
朱汪叔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...
朱汪叔'质数Private Sub Command1_Click()Dim i, j As Integer Dim flag As Boolean For i = 1 To 100 For j = 2 To i - 1 If i Mod j = 0 Then: flag = False: Exit For‘只要余数为零,则此时的i不是质数,flag为是否是质数。Next If flag = True Then Print i Else flag = True...
朱汪叔Private Sub Command1_Click() Dim Sum As Double, i As Integer For i = 1 To 10 Sum = Sum + Factorial(i) Next i Print "Summation ="; SumEnd Sub Public Function Factorial(ByVal n As Integer) As Double Factorial = 1 For i = 1 To n Factorial = Factorial...
朱汪叔'先写一个求阶乘的函数 Private Function factorial(ByVal n As Integer) As Long Dim i As Integer, l As Long l = 1 For i = 1 To n l = l * i Next factorial = l End Function '添加一个按钮控件 Private Sub Command1_Click()Dim result As Long, i As Integer result = 0 ...
朱汪叔Private Sub Command1_Click() For i = 1 To 10 s = s + fac(i) Next i Print "Sum="; sEnd SubFunction fac(n) f = 1 For i = 2 To n f = f * i Next i fac = fEnd Function
朱汪叔我在习惯上做一个块,供事件方法调用。它灵活在,你可以传递参数,可以是其它数的阶乘!!Private Sub Command1_Click()MsgBox "100!= " & Total(100) ’从此入口,调用下面的函数,并返回值 End Sub Function Total (num as Double)Dim i As Iinteger num = 1 For i = 1 To 100 num ...
朱汪叔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
朱汪叔我的机子里没有装vb,我简单地写一下 一个数的阶乘,例如10:dim i as integer'循环控制变量 dim mul as integer'用来存乘积 mul=1 for i=1 to 10 mul=mul*i next i print mul 打印1到100之间能被7整除的数:dim i as integer for i=1 to 100 'mod意思为取模,取出余数,如果余数为...