选修一过关测试

保密★启用前 选修一过关测试 信息技术 （全卷满分100分，考试用时90分钟） 一、选择题 1．采用冒泡排序算法对某数据序列进行排序，经过第一轮排序后的结果是“2，8，3，9，5，6，7”，那么原数据序列不可能的是（ ） A．8，3，9，5，2，7，6 B．8，3，9，2，6，5，7 C．8，2，9，3，5，7，6 D．8，3，2，9，6，5，7 2．有如下对分查找程序段： Private Sub Command1_Click() Dim a(l To 8)As Integer a(1)=3:a(2)=6:a(3)=9:a(4)=6:a(5)=11:a(6)=20:a(7)=15:a(8)=24 i=1:j=8 Key Val(Text1. Text):n=0 Do While i<=j m=(i+j)\2 If m Mod 2<> Key Mod 2 Then m=m+1 If a(m)= Key Then Exit Do n=n+1 If a(m)>Key Then j=m-2 Else i=m+2 End If Loop Text2.Text=Str(n) End Sub 程序运行后，下列说法不正确的是（ ） A．若输入Key值为15，则Text2中显示1 B．若输入Key值为12，运行程序结束后，i－j=1 C．若输入Key值为7，运行程序结束后，m=1 D．Text2中显示的值可能为0 3．有如下 VB 程序段： i=1 : j=10 key=Val（Text1.Text） Do While ia（m） Then i=m+1 Else j=m End If Loop 数组元素 a（1）到 a（10）依次为 2,3,7,9,9,10,13,13,13,19，如果key是数组a中的一个数，那么程序执行后正确的是（ ） A．i=j+1 B．a（i+1）=key C．i=j D．i>j 4．某对分查找算法的VB程序如下： i = 1: j = 20 m = (i + j + 1) \2 Do While i < j And Key <> a(m) If a(m) > Key Then i = m+ 1 Else j = m -1 m = (i + j + 1) \2'① Loop 数组元素a(1)到a(20)各不相同且按降序排列，若查找键key与a(4)相等，执行该程序段，①处语句的执行次数有（ ） A．5 B．4 C．3 D．2 5．利用冒泡排序给数组[15,78,88,23,69,71,20,53]升序排序，第三遍冒泡加工之后的数据结果是（ ） A．[15,20,23,78,88,69,71,53] B．[15,20,23,53,78,88,69,71] C．[15,78,23,69,71,20,53,88] D．[15,23,69,71,20,53,78,88] 6．数组a(1)-a(n) (n>1)中的数据为非递增序列，为了在数组中查找出最后一个大于等于key的元素下标，小杨采用对分法的思想，编写了如下代码： key= Val(Text1. Text) L=1:R=n Do While L < R m=(L+R)\2 If ① Then L=m+1 Else ② End If Loop Label1 Caption=”最后一个不小于”&Su(key)&"的元素下标是："&Str( ③ )划线处的内容是（ ） A．①keyi If a(j)>a(j-1) Then a(j)=a(j)+a(j-1):a(j-1)=a(j)-a(i-1):a(j)=a(j)-a(j-1) End If j=j-1 Loop Next i For i=3 To 6 s=s+a(i) Next i Labe ... ...