能不能再帮我看一道题

能不能再帮我看一道题
sum Fun (a() as integer,x as integer)
for i = 1 to 4
x = x * a(i)
Private sub command _click()
n=1
for i = 1 to 4
arr(i)=i+i
next
Fun arr,n
text1.text=str(n)
End sub
求文本框显示的内容