vb编写程序实现利用循环计算1 2 3… 100

Private Sub Command1_Click()

s = 0

For i = 1 To 100

  s = s + i

Next i

Print "好悄轿运兆s="友肆s

End Sub

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！+5！+…+11！的值

n=n+jiecheng(i)

next

----------------------------------------------下面是我代码携扰---------------------使用方法 Jc(变量)Private Function Jc(a As Integer)

s = 1

For i = 1 To a

s = s * i

Next

Jc = Jc + s

End Function

用VB编写：循环语句的应李败档用，计算1~100的偶数哪乱和，最简单的方法是采用计数循环来实现枯喊。

dim i as integer,s as integer

s=0

for i = 2 to 100 step 2

s = s + i

next i

print "Sum ="s

---