尼克斯彻定理:任何一个大于等于1的整数的立方等于一串连续奇数之和，如:13=1，23=3+5， 33=7+9+11。编写一个VB程序验证尼克斯彻定理，程序运行时，在文本框Text1中输入一个大于等于1的整数，单击“验证”按钮Command1，在文本框Text2中显示验证结果，运行界面如图所示。
实现上述功能的VB代码如下，请完善代码：
Private Sub Command1_Click()
Dim n As Integer, i As Integer, t As Integer,sum As Long,s As String
n=Val(Text1.Text)
For i = 1 To n^3 Step 2 ‘变量i表示连续奇数的首个整数
sum=0:t = i:flag = False
Do While sum <= n^3 And flag = False
sum ={#blank#}1{#/blank#}
t = t +2
If{#blank#}2{#/blank#}Then flag = True
Loop
If flag = True Then Exit For
Next i
s = Str(n) + “^”+ Str(3) + “=”
Do While sum >0
{#blank#}3{#/blank#}
If sum = 0 Then
s = s + Str(i)
Else
s = s + Str(i) +“+”
End If
i = i + 2
Loop
Text2.Text = s
End Sub
图1
图2
图3
