快考试了，有2到编程题不会，请高手解答

Private Sub Command1_Click()
Dim i As Double
Dim l As Double
Dim s As Double
s = 1
For i = 1 To 10 Step 1
s = s * i
l = l + s

Next i
Print l
End Sub

float s=1;
for (int i=2; i<=10; i++)
{
s+=！;
}

Private Sub Form_Load()
Dim a As Double, sum As Double
a = 1
sum = 0
For i = 1 To 10
a = a * i
sum = sum + a
Next
Print sum
End Sub

Private Sub Form_Load()

for i=1 to 10
s1=1
for j=1 to i
s1=s1*j
next j
s2=s2+s1
next i
print s2
end sub
要将窗体的autodraw属性设为ture.