【加試題】尼克斯徹定理：任何一個大于等于1的整數(shù)的立方等于一串連續(xù)奇數(shù)之和，如：1³=1，2³=3+5，3³=7+9+11．編寫一個VB程序驗證尼克斯徹定理，程序運行時，在文本框Text1中輸入
一個大于等于1的整數(shù)，單擊“驗證”按鈕Commandl,在文本框Text2中顯示驗證結(jié)果，運行界面如圖所示。
實現(xiàn)上述功能的VB代碼如下，其中加框處代碼有錯，請改正。
Dim n As Integer,i As Integer,t As Integer,sum As Long,s As string
n=Val（Text1．Text）
For i=1 Ton^3 Step 2'變量i表示連續(xù)奇數(shù)的首個整數(shù) 
    sum=0：t=i：flag=False
    Do While sum＜=n^3 And flag=False
sum=sum+t
                        （1）
　　If sum=n^3 Then flag=True
   Loop
   If  flag=True Then Exit For
Next i
s=Str（n）+“^“+Str（3）+“=“
Do While sum＞0
                                                （2）
    If sum=0 Then
       s=s+Str（i）
    Else
        s=s+Str（i）+''+“
    End If
        i=i+2
Loop
Text2．Text=s
End Sub。