好吧问答库 > VB程序设计题：（事件）双击窗体。（响应)求x=1+1*2+1*2*3+...+1*2*3*...*10,并将结果存到变量S中

VB程序设计题：（事件）双击窗体。（响应)求x=1+12+123+...+123...*10,并将结果存到变量S中

2025年03月19日 02:32

有3个网友回答

网友（1）：

楼上两位（kumu0531和892113807）是胡扯。。。还interger呢！（integer)。
Private Sub Form1_DBclick()
Dim a, s As Long'计算数值很大，要用长整型
For i = 1 To 10
a = 1
For j = 1 To i
a = a * j
Next
s = s + a
Next
Print s
End Sub

网友（2）：

dim x(0 to 10 ),x,s,as interger
Private Sub Form_DBclick()
x(0)=1
for i=1 to 10
for j=1 to i
x(j)=x(j-1)*i
next j
x=x+x(j)
next i
s=x
试试看吧

网友（3）：

dim x(0 to 10 ),x,s,as interger
Private Sub Form_DBclick()
dim iinteger
x(0)=1
for i=1 to 10
for j=1 to i
x(j)=x(j-1)*i
next j
x=x+x(j)
next i
s=x