n=Len(s)          's是待判断的字符串

k=0:j=n

For i=1 to n/2

Next i

If  k=0  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"

方框中的代码由以下三部分组成：

①j=j-1

②If c1 <> c2 Then k = k+1

③c1=Mid(s,i,1) : c2=Mid(s,j,1)

代码顺序正确的选项是（  ）

Private Sub Command1_Click()

i＝1

____①____

Do While____②____

____③____

j＝j－1 ′④

Loop

Text1.Text＝Str(i)

Text2.Text＝Str(j)

End Sub

实现上述功能的VB程序如下，请在划线处填入合适的代码。

Private Sub Command1_Click（）

  Dim i As Integer, d As Integer, r As integer

  Dim rs As string, ans1 As Integer, ans2 As Integer

  For i=81 To 342

    ①{#blank#}1{#/blank#}

    rs=“”

    Do While d ＜>0

      r = d Mod 9

      rs= str(r)+rs

      ②{#blank#}2{#/blank#}

    Loop

    ans1= Val(rs)

  ‘求出相应的七进制数，存储在变量ans2中，代码略

    If ans1 Mod 10=ans2\ 100 And ans1\ 100=ans2 Mod 10 And ③{#blank#}3{#/blank#} Then

      Text1. Text=④{#blank#}4{#/blank#}

      Text2 Text= Str(ans1)

      Text3. Text= Str(ans2)

    End If

  Next i

End Sub

最佳方案:初始时所有人聚集在2号房间，花费的能量和:7*0+8*1+6*2+4*3+4*4=48。为了解决这个问题，小明编写了一个VB程序。在窗体加载时，从数据库中读取N的值和编号为1到N的房间的居住人数，人数存储在数组a中。点击窗体上的按钮Command1，程序枚举每一种方案(不同的初始房间)，计算该方案的能量和，在文本框Text1中输出最优方案的初始房间编号，在文本框Text2中输出最小能量和。

实现上述功能的VB代码如下，请在划线处填入合适代码。

Dim a(1 To 100) As Integer ’依次存储编号为1到100的房间的居住人数

Private Sub Form_Load()

‘本过程从数据库中读取N的值和每个房间居住人数，存储在数组a中

‘代码略

End Sub

Private Sub Command1_Click()

Dim i As Integer, j As Integer, w As Integer, k as Integer

Dim t As Long, ans As Long

k=0 : ans = 32767     ‘ans初始化为最大的Integer数据

For i = 1 To n

 t = 0

 For j = 0 To n - 1

    w={#blank#}1{#/blank#}

    If w = 0 Then w = n

    t={#blank#}2{#/blank#}

 Next j

 If t < ans Then

    k= i

    ans = t

 End If

Next i

Text1.Text = Str (k)    ‘起始房间编号

Text2.Text ={#blank#}3{#/blank#}

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

Dim a(1 To 1000) As Integer

Dim n As Integer

Private Sub Form_Load()

'确定n的值和数组a的各个元素值，即每根棍子的长度值，代码略

End Sub

Function max (x As Integer, y As Integer) As Integer

    If x>y Then

        max=x

    Else

        max=y

    End If

End Function

Private Sub Command1_Click()

    Dim i As Integer, J As Integer, K As Integer

    Dim ans As Integer, c As Integer, longest As Integer,

    rest As Integer

    ans=0

    '让i<j<k，保证棍子不会被重复选中

    For i=1 To n

        For j=i+1 To n

            For k=j+1 To n

                c=a(i)+a(j)+a(k)

                longest=      '①

                rest=c-longest        'rest 保存最短的两条边的和

                If Then      '②

                    ans=max(ans, c)

                End If

            Next k

        Next j

    Next i

    Print ans

End Sub