16.為了計(jì)算s=1+1×2+1×2×3+…+1×2×…×n的值,小李編寫了VB程序,程序運(yùn)行時(shí),在文本框Text1中輸入n的值,單擊“計(jì)算”按鈕Commandl 后,在標(biāo)簽Label1中輸出結(jié)果. 實(shí)現(xiàn)上述功能的VB代碼如下,但加框處代碼有錯(cuò),請改正. 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)
個(gè). (2)實(shí)現(xiàn)上述功能的VB程序如下.請?jiān)跈M線處填入合適代碼. Dim a(1 To 10000)As Long'存儲(chǔ)簡單幾何圖形的原始數(shù)據(jù) Private Sub Form_Load( ?。?br />'本過程用于讀取簡單幾何圖形的原始數(shù)據(jù),相關(guān)數(shù)據(jù)存儲(chǔ)在數(shù)組a中 ‘代碼略 End Sub Private Sub Command1_Clici( ?。?br />Dim n As Long i As Long,s As Long,k As Long n=
s=0 For i=1 To n If a(k)=1 Then s=s+4*a(k+1) k=k+2 Elself a(k)=2 Then s=s+