153=1×1×1+5×5×5+3×3×3

小张设计了一个算法来输出所有的水仙花数，具体程序如下。

Private Sub Command1_Click()

    i＝1

    j＝7

    Do While _______

        i＝_______

        j＝________

    Loop

    Text1.Text＝Str(i)

    Text2.Text＝Str(j)

End Sub

则下列说法正确的是(   )

实现上述功能的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+Srt(i)+ "+"

        End If

        i=i+2

    Loop

    Text2.Text=s

End Sub