VB程序设计题:(事件)双击窗体。(响应)求x=1+1*2+1*2*3+...+1*2*3*...*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