当输入a、b、c的值分别为5、2、8时，该算法的输出结果为（   ）

Private Sub Command1_C1ick ( )

Dim a(9) As Integer

a(9)=Val(Text1.text)

For i=8 to 1 step -2

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

Next i

Text2.text=str(a(i))

End Sub

  s =0

  i =0

   Do While i<=11

      i=i+3

      s=s+i

   Loop

程序执行结束时，变量s的值为（   ）

n = 6

d(1) = 23: d(2) = 31: d(3) = 19: d(4) = 33: d(5) =58: d(6) = 28

k = Abs(d(2) - d(1))

For i = 3 To n

 If Abs(d(i) - d(i - 1)) > k Then k = Abs(d(i) - d(i - 1))

Next i

Text1.Text = Str(k)

上述程序段执行后，文本框Text1显示的内容是（  ）