vb for 循环

来源：百度知道 编辑：UC知道 时间：2024/06/03 20:56:52
输入n的值，求1*2*3*4……n的值
求1+（1+2）+（1+2+3）+……（1+2+3+……n）的值，n值自己输入

2个程序。。求答案

变量和常量申请省略
s=1
for i=1 to n
s=s*i
next i
s为所求
---------------------
s=0
ss=0
for i=1 to n
s=s+i
ss=ss+s
next i
ss为所求

Private Sub Command1_Click()
Dim i As Integer, n As Integer, 积 As Double, 和 As Double, 和1 As Double
Do
n = CInt(InputBox("请输入的N（>2）："))
Loop Until n > 2
和 = 0
和1 = 0
积 = 1
For i = 1 To n
积 = 积 * i
和1 = 和1 + i
和 = 和 + 和1
Next i
Print "1到"; n; "的乘积为："; 积
Print "1到"; n; "的复合和为："; 和
End Sub