為了計算s=1+1×2+1×2×3+…+1×2×…×n的值，小李編寫了VB程序，程序運行時，在文本框Text1中輸入n的值，單擊“計算”按鈕Commandl 后，在標(biāo)簽Label1中輸出結(jié)果．
實現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正．
Function txi（k As Long） As Long
Dim i As Long,t AsLong
t=1
i=0
Do While
i=i+1
t=t*i
LooP
txi=t
End Function
Private Sub Command1_-Click （　　）
Dim n As Long,i As Long,s As Long
n=Val（Textl.Text）
s=0
Fori=1TOn
s=s+
Next i
Labell.Caption=Str（s）