1个回答
展开全部
多重循环
dim jiechengNumber
dim sum
dim i
dim j
dim n
jiechengNumber=1
sum=0
n=inputbox("请输入n:")
for i=1 to n
for j=1 to i
jiechengNumber=jiechengNumber*j
next
sum=sum+jiechengNumber
jiechengNumber=1
next
msgbox sum
单循环
dim sum
dim i
dim n
n=inputbox("请输入n:")
sum=1+n
for i=1 to n-1
sum=sum*(n-i)+1
next
sum=sum-1
msgbox sum
这个是VBS.我不会VB
应该差不多.你改一下就OK
单循环就是分解一下因式你就发现规律了
dim jiechengNumber
dim sum
dim i
dim j
dim n
jiechengNumber=1
sum=0
n=inputbox("请输入n:")
for i=1 to n
for j=1 to i
jiechengNumber=jiechengNumber*j
next
sum=sum+jiechengNumber
jiechengNumber=1
next
msgbox sum
单循环
dim sum
dim i
dim n
n=inputbox("请输入n:")
sum=1+n
for i=1 to n-1
sum=sum*(n-i)+1
next
sum=sum-1
msgbox sum
这个是VBS.我不会VB
应该差不多.你改一下就OK
单循环就是分解一下因式你就发现规律了
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询