代码如下：
Private Sub Command1_Click()
n = Val(Text1.Text)
s = 0 '存结果
For i = 1 To n
t = 1 '临时存积的变量
For j = 1 To i '计算阶乘
t = t * j
Next j
s = s + t
Next i
Print "结果为：" & s
End Sub
怎么在VB中求和
1.用VB求出阶乘数相加的值，分为两个步骤来求，一个是计算阶乘数，然后相加阶乘数。1!+2!+3!+……+n!举个例子。2、首先要理解阶乘知识，4!它是数字1到4的乘法;N!它是1到n的乘积;等等。如下图所示。3.现在我们来编写代码。第一步是定义变量，如下图所示。4、这是一个累加器，所以会使...
谁会用VB的 Do...Loop语句编写S=1!+2!+3!+4!+...+n!
添加一个Command然后 Private Sub Command1_Click()Let n = InputBox("请输入n")Let a = (n + 1) * n \/ 2 MsgBox "S的值为" & a End Sub 希望采纳一下。参考资料：原创
关于用VB算1!+2!+3!+4!+5...+10!的一些疑问
sum2 = sum2 + sum1 你内循环时每次都加，当然不对了，例如i=3时，你j=1加一次，j=2加一次，j=3也加一次，所以加多了 Next
S=1!+2!+3!+4!+…+n!的程序怎么写
sum=0 s=1 n=1 input "x=",x do sum=sum+s s=s*(s+1)n=n+1 loop until n>x print "sum=",sum end sum是需要求的那个和 s是构成sum的项每循环一次加一项 n就是一个类似计数器的东西让这个循环循环需要的次数 比如这个程序就是循环x次 x是你要加到几的阶乘 一开始输入进去就让...
VB编写程序计算1+2!+3!+4!+……+10!的程序
Function jc(n As Integer) As Long Dim i jc = 1 For i = 1 To n jc = jc * i Next End Function Private Sub Command1_Click()Dim SumAdd As Long, i For i = 1 To 10 SumAdd = SumAdd + jc(i)Next Print SumAdd End Sub ...
vb里面运用计数循环结构计算出1+2+3+...+N 求过程
Dim num, sum As Integer num = a1.Text For i As Integer = 1 To num sum += i Next response.write("1+...+" & num &"=" &sum)a1和a2是页面中的文本框 根据文本框输入的值，计算和，再显示在页面上
用VB编程写出1+2+3+4..一直加到大于10000 最后的数字的什么 怎么写_百 ...
dim s as integer dim i as integer s = 0 \/\/和初始化 i = 0 \/\/加数初始化 do while s <10000 i = i + 1 \/\/每次循环自增1 s = s + i \/\/求和 loop print i \/\/输出加到大于10000最后的数字
vb 求阶乘之和 1!+2!+3!+4!+...+20! 代码是否正确
你的程序代码有错，把n<=20改成n<=3,运行一下就知道错了，1!+2!+3!=1+2+6=9,而用你的程序代码运行的结果是15。更正的方法是：把“Item = 1”移到“Do While n <= 20 ”之后。即：Private Sub Form_Click()Dim n#,b b = 0 n = 1 Do While n <= 20 Item = 1 For i ...
用VB怎么把输入的数值相加起来,代码哦
此题使用For-Next循环语句。具体编写如下图所示。3、不仅仅需要一个For-Next循环语句，还需要在里面嵌套一个For-Next循环语句。4、最后将剩下的代码补齐，编写完整的代码如下图所示。5、然后运行程序，输入一个值检验一下。如果n为8，则1！+2!+3!+4!...+8!=46233，就完成了。
VB编程 利用循环实现计算1+2+3+4+…+100的值。 怎么做
Public Class Form1 Dim i As Integer Dim result As Integer = 0 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click For i = 1 To 100 result = result + i Next TextBox1.Text = result.ToString End Sub End Class 事件...
