s=Text1.Text

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

k=0:j=n

For i=1 to n/2

c1=Mid(s,i,1)

 c2=Mid(s,j,1)

If c1 <> c2 Then k = k+1: Exit For

j={#blank#}1{#/blank#}

Next i

If  {#blank#}2{#/blank#}  Then Label1.Caption="对称"  Else  Label1.Caption="不对称"

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

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

参选地区用数字1，2，3……N表示，每个地区所属的省份依次存入数组a(1)到a(N)，若1号地区的省份编号是3，即a(1)=3。分析可知，所求区间的长度至少为K(省份的数量)，最大为N(地区的数量)。我们可以通过二分K到N之间的数求得最小区间长度。例如有10个参选地区，分别来自于5个不同的省份，从左到右排列，地区编号依次为2，1，2，4，3，3，5，5，3，5，则最小的一段包含所有5个地区的区间是从第2个到第7个地区，区间长度为6。

Private Sub Command1_Click()

    Dim i As Integer, n As Integer

    Dim s As Integer, t As Integer, k As Integer

    s = 0

    For i = 1 To 1000

        n = i

        t = 0

        k = 0

        Do While n > 0

            If n Mod 2 = 1 Then t = t + 1 Else k = k + 1

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

        Loop

        If {#blank#}2{#/blank#}Then s = s + 1

    Next i

    Text1.Text = Str(s)

End Sub

str1 = “ABCDEFGHIJKLMNOPQRSTUVWXYZ”

s = “”

For i = 1 To 4

    t = Int(Rnd*10) + 1

    If t Mod 2 = i Mod 2 Then

        t = t + 1

    Else

        t = t + 2

    End If

    s = s + Mid(str1，t，1)

Next i

List1.AddItem s

执行该程序段后，列表框List1中可能显示的内容是(   )