题目

尼克斯彻定理：任何一个大于等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=             t=t+2             If Then flag=True         Loop         If flag=True Then Exit For     Next i     s=Str(n)+ "^"+Str(3)+ "="     Do While sum>0                 If sum= 0 Then             s=s+Str(i)         Else             s=s+Srt(i)+ "+"         End If         i=i+2     Loop     Text2.Text=s End Sub 答案：【1】sum +t【2】sum=n^3【3】sum= sum-i

查看本题答案和解析