4.6趣味应用同步练习　2022—2023学年人教版高中信息技术选修1

4.6趣味应用同步练习人教版信息技术选修1 学校:___________姓名：___________班级：___________考号：___________ 一、选择题 1．【加试题】某对分查找算法的 VB 程序段如下： Key = val(text1.text)   N=0 i = 1: j = 7 flag = False Do While i <= j And flag = False n = n + 1 m = Fix((i + j) / 2) If a(m) = Key Then flag = True If Key < a(m) Then i = m + 1 Else j = m – 1    Loop If flag = True Then Text2.Text = "在第" & Str(m) & "个，" Else Text2.Text = "未找到，" End If 数组元素 a(1)到 a(7)的值依次为“89，72，68，45，23，19，17”。文本框 Text1 中输入 17，执 行该程序段后，下列变量的值不．正．确．的是（    ） A．n=2 B．m=7 C．i=7 D．j=6 2．某对分查找算法的VB程序段如下： i=1:j=8:s=0: key= Int(Rnd * 45)*2+5 Do While i<= j     m=(i+j)\2     If key = a(m) Then         Exit Do     EseIf key < a(m) Then         j=m-1:s=s-1     EIse     i=m+1:s=s+ 1     End If Loop 已知数组元素a(1)到a(8)的值依次为5，16，20，28，44，55，67，85，执行该程序段后，s的值不可能是（    ） A．0 B．-2 C．3 D．-1 3．利用对分查找实现在数组a中查找成绩值为Key的学生姓名与成绩（注：学生成绩由高到低排序，并按姓名在前、成绩在后的顺序依次存储在数组aa中，例如： “张三”，“97”， “李四”，“92”，“王五”，“87”……），编写的VB程序段如下： Const  n = 100 Dim a(1 To n) As String Private Sub Command1_ Cl ick () flag = False Key = Val (Text1. Text) Do While i <= j And Not flag      If  Val(a(2 * m)) = Key Then     List1. AddItem a(2* m-1)+""+ a(2* m): flag =True   Else       Then j= m-1 Else i=m+1   End If Loop If Not flag Then List1. AddItem"没有找到!" End Sub 上述程序段(1)、(2)、(3)三个方框处的语句依次为(   ) ①j=n  ②j=n/2    ③m=(i+j)\2     ④m=((i+j)\2)*2 ⑤Val(a(2 * m)) < Key     ⑥Val(a(m)) < Key    ⑦Val(a(2 * m)) > Key A．①④⑦ B．②③⑥ C．②③⑤ D．②④⑦ 4．VB 表达式 3 + 7 \ 3 Mod 4 / 2 - 1  的值为(   ) A．2 B．3 C．4 D．5 5．某对分查找算法的VB程序段如下： Key = Int(Rnd * 49) * 2 + 1 s = 0: i = 1: j = 10 Do While i <= j m = (i + j) \ 2 If Key = a(m) Then Exit Do If Key < a(m) Then j = m - 1: s = s * 2 Else i = m + 1: s = s * 2 + 1 End If Loop 数组元素a(1)到a(10)的值依次为“3，13，15，20，28，35，45，52，63，97”，执行该程序段后，s的值不可能为（    ） A．1 B．5 C．9 D．14 6．设一个三位数是n，它的个位数为c，十位数为b，百位数为a，则b的VB表达式是： A．n-a-b B．(n-a*100-c) /10 C．n\10-n\100*10 D．n-Int(n/100)-Int(n/10) 7．收集序号为1到n的n位学生的作业(已交作业学生的序号按升序存储在数组a中)，最后只收到n-1份，现要寻找未交作业学生的序号。实现上述功能的VB程序段如下： i = 1: j = n Do While i <= j    m