题目

某查找算法的VB 程序如下: Private Sub Command1_Click() Dim a(1 To 9) As Integer, key As Integer, i As Integer, j As Integer Dim mid1 As Integer, mid2 As Integer a(1)=4: a(2)=22: a(3)=27: a(4)=32: a(5)=35: a(6)=44: a(7)=56: a(8)=59: a(9)=78 key=Val(Text1.Text) i=1: j=9 flag=False Do While i<=j And Not flag Mid1=i+(j-i)\3 mid2=j-(j-i)\3 If key=a(mid1) Then flag=True ElseIf key<a(mid1) Then j=mid1-1 ElseIf key=a(mid2) Then flag=True ElseIf key>a(mid2) Then i=mid2+1 Else i=mid1+1 j=mid2-1 End If Loop If flag Then Label1.Caption=″查找成功!″Else Label1.Caption=″查找失败!″ End Sub 该程序段执行时,在文本框Text1中输入36,单击命令按钮Command1,程序运行结束后,i和j的值为(  ) A . 4,5 B . 6,5 C . 5,6 D . 6,4 答案:B
信息技术 试题推荐
最近更新