x= "abcdcba": ans = 0

For i= 1 To Len(x) \2.

If Mid(x， i， 1) = Mid(x， Len(x)-i+ 1， 1) Then ans = ans+ 1

Next i

Text1.Text = Str(ans)

Private Sub Command1_Click()

  Dim a(5) as Integer

  Dim n as Integer, i as Integer

  n=Val(Text1.Text)

  i=0

  a(1)=1: a(2)=1

  For i=3 To n

     a(i)=a(i-1)+a(i-2)

  Next i

  Label1.Caption=a(i)

End Sub

若在Text1中输入5，则点击按钮后的运行结果为（    ）

Fori=1 To 3

   For j=6 To i+1 Step-1

    If a(j) > a(j-1) Then

      k=a(j): a(j)=a(j-1): a(j-1)=k

End If

Next j

   s=s+“"”+str(a(i))

Next i

Text1. Text=str(s)

数组元素从a（1）到a（6）的数据依次为“3、7、25、8、9”，经过该程序“加工”后，文本框Text1中显示的是（    ）

Function f（x As Integer） As Single

  f=Abs（x）

End Function

该函数返回值的数据类型是（    ）

Dim a(0 To 9) As Integer, t as Long

t=Val(Text1.Text)

Do While t<>0

 a(t Mod 10) = 1

 t = t \ 10

Loop

For i = 0 To 9

 x = x + a(i)

Next i

Text1中输入10242048，则程序执行后x的值为（  ）

Dimx As String， y As String， ans As Integer

x="12": y="100"

if x> Then ans=Val（x） Else ans=val（y）

Text1.Text Str（ans）

For i=1 To 4

  k=i

  For j=5 To i+1 Step-1

    If a(j)<a(k) Then k=j

  Next j

  If k<> i Then

     tmp=a(k) : a(k)=a(i) : a(i)=tmp

    f(i)=True

 End If

Next i

当数组元素a（1）到a（5）的值依次为“8，2，1，21，3”数组f的初值均为 False，执行该程序段，f数组中元素值为True的个数有（    ）

For i=1 To 3

 For j=8 To i+1 Step-1

  If a(j) < a(i) Then

   t=a(j): a(j)=a(i): a(i)=t

  End If

 Next j

Next i

数组元素a(1)到a(8)的值依次为“35， 18， 14， 20， 30， 15， 28， 26”，运行该程序段后，a(5)到a(8)的值依次是（  ）

t="": i=0: j=9: key=62: f=False

Do While i <=j And Not f

   m=Fix((i+j)/2)

   t=t+Str(m)

   If a(m)= key Then

     f=True

     ElseIf a(m)>key Then

       i=m+1

       t=t+"→"

   Else

     j=m-1

     t=t+"←"

   End If

Loop

数组元素a（0）到a（9）的值依次为“99，94，90，87，78，70，63，56，45，36”执行该程序段的值是（    ）

实现上述功能的VB程序如下，但加框处代码有错误，请改正。

Const n=10

Dim d（1 To n）As Integer

Private Sub Form Load()

′随机产生n整数并存储在数组d中，并把数组d按升序排序

′在列表框中显示排序后的数据，代码略

End Sub

Private Sub Command1_Click()

    Dim key As Integer， p As Integer

   key =Val(Text1.Text)

       ‘①

If p<>0 Then

   Label2. Caption="该数据在第"+Str(p)+"个位置"

Else

   Label2. Caption="没有找到! "

  End If

End Sub

Function search(key As Integer) As Integer

  i=1: j=n

  Do While i<= j

  m=(i+j)\2

  If d(m)=key Then

    search =m

    Exit Function

  ElseIf key<d(m)Then

    j=m-1

  Else

    i=m+1

  End If

Loop

    ‘②

End Function

编写VB程序，功能如下：程序运行时，在文本框Text1中输入序列，单击“计算”按钮Command11，在文本框Text2中输出逆序数，并在 Label3中输出判断结果（偶排列或者奇排列）。程序运行界面如图所示。

程序运行时，在文本框Text1和文本框Text2分别输入两个二进制数，单击按钮 Command11后在文本框Text3上输出两个二进制相加后的结果。

程序运行如图所示。