Dim P As Integer, q As Integer, S As Integer, t As Integer

    p=Val(Text1．Text)

    t=0

    For q=P+1 To 2*p

      s=(p*q)Mod(q-p)

      If s=0 Then

         t=t+1

      End If

    Next q

    Label1. Caption=Str(t)

该程序段运行时，在文本框Text1中输入8，则在标签Label1中显示的内容是（  ）

实现上述功能的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