楼上两位(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
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
试试看吧
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