【加試題】尼克斯徹定理：任何一個(gè)大于等于1的整數(shù)的立方等于一串連續(xù)奇數(shù)之和，如：1³=1，2³=3+5，3³=7+9+11．編寫一個(gè)VB程序驗(yàn)證尼克斯徹定理，程序運(yùn)行時(shí)，在文本框Text1中輸入
一個(gè)大于等于1的整數(shù)，單擊“驗(yàn)證”按鈕Commandl,在文本框Text2中顯示驗(yàn)證結(jié)果，運(yùn)行界面如圖所示。
實(shí)現(xiàn)上述功能的VB代碼如下，其中加框處代碼有錯(cuò)，請(qǐng)改正。
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ù)的首個(gè)整數(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。