某算法的VB程序段如下：

Private Sub Command1_Click()

    Dim key As Integer， i As Integer， j As Integer， ans As Integer

    Dim n As Integer

    n = 10

    Dim x(1 To 10) As Integer

    x(1) = 5 : x(2) = 52 : x(3) = 2 : x(4) = 72 : x(5) = 86

    x(6) = 3256 : x(7) = 123 : x(8) = 25 : x(9) = 30 : x(10) = 87

    key = Val(Text1.Text)

    i = 1 : j = n : ans = 0

    Do While i < j

        m = (i + j + 1) \ 2

        If key <= x(m) Then

            j = m - 1 : ans = ans + 1

        Else

            i = m + 1 : ans = ans + 2

        End If

    Loop

End Sub

在Text1中输入3256，单击Command1，程序运行完毕后，以下变量的值不正确的是（       ）

A、i=6

B、j=5

C、ans=5

D、x(m)=5