為了計(jì)算s=1+1×2+1×2×3+…+1×2×…×n的值，小李編寫(xiě)了VB程序，程序運(yùn)行時(shí)，在文本框Text1中輸入n的值，單擊“計(jì)算”按鈕Commandl 后，在標(biāo)簽Label1中輸出結(jié)果．
實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯(cuò)，請(qǐng)改正．
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 （　?。?br />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）