4.6趣味应用同步练习人教版信息技术选修1

展开

这是一份信息技术中图版 (2019)本册综合复习练习题，共7页。试卷主要包含了选择题，操作题等内容，欢迎下载使用。
4.6趣味应用同步练习人教版信息技术选修1学校:___________姓名：___________班级：___________考号：___________ 一、选择题1．【加试题】某对分查找算法的 VB 程序段如下：Key = val(text1.text) N=0 i = 1: j = 7flag = FalseDo While i <= j And flag = False n = n + 1m = Fix((i + j) / 2)If a(m) = Key Then flag = TrueIf Key < a(m) Then i = m + 1 Else j = m – 1 LoopIf flag = True ThenText2.Text = "在第" & Str(m) & "个，"ElseText2.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=62．某对分查找算法的VB程序段如下：i=1:j=8:s=0: key= Int(Rnd * 45)*2+5Do 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 IfLoop已知数组元素a(1)到a(8)的值依次为5，16，20，28，44，55，67，85，执行该程序段后，s的值不可能是（）A．0 B．-2 C．3 D．-13．利用对分查找实现在数组a中查找成绩值为Key的学生姓名与成绩（注：学生成绩由高到低排序，并按姓名在前、成绩在后的顺序依次存储在数组aa中，例如： “张三”，“97”， “李四”，“92”，“王五”，“87”……），编写的VB程序段如下：Const n = 100Dim a(1 To n) As StringPrivate Sub Command1_ Cl ick ()flag = FalseKey = 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 IfLoopIf 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)) > KeyA．①④⑦ B．②③⑥C．②③⑤ D．②④⑦4．VB 表达式 3 + 7 \ 3 Mod 4 / 2 - 1 的值为( )A．2 B．3 C．4 D．55．某对分查找算法的VB程序段如下：Key = Int(Rnd * 49) * 2 + 1s = 0: i = 1: j = 10Do While i <= jm = (i + j) \ 2If Key = a(m) Then Exit DoIf Key < a(m) Thenj = m - 1: s = s * 2Elsei = m + 1: s = s * 2 + 1End IfLoop数组元素a(1)到a(10)的值依次为“3，13，15，20，28，35，45，52，63，97”，执行该程序段后，s的值不可能为（）A．1 B．5 C．9 D．146．设一个三位数是n，它的个位数为c，十位数为b，百位数为a，则b的VB表达式是：A．n-a-b B．(n-a*100-c) /10C．n\10-n\100*10 D．n-Int(n/100)-Int(n/10)7．收集序号为1到n的n位学生的作业(已交作业学生的序号按升序存储在数组a中)，最后只收到n-1份，现要寻找未交作业学生的序号。实现上述功能的VB程序段如下：i = 1: j = nDo While i <= j m = (i + j) \ 2 If ① Then j = m - 1 Else i = m + 1LoopLabel1．Caption = "未交作业学生的序号是：" + Str( ② )上述程序段中划线处应填写的代码是（）A．①a(m) = m ②j B．①a(m) <> m ②iC．①a(m) = m ②j + 1 D．①a(m) <> m ②m8．关于正整数n，下列描述正确的有（）①如果Int（n/2）=n\2的值为True，可以判定n为偶数②m为2至n-1中任意正整数，如果n Mod m=0的值为True，可以判定n为素数③如果Int（Sqr（n））=Sgr（n）的值为True，可以判定n为完全平方数④如果1-n Mod 2=0的值为True，可以判定n为奇数A．①③ B．①④ C．②④ D．③④9．小王用天平称量物品的过程如下：先放置100克砝码，砝码偏重；再将砝码改为50克，砝码偏轻；又将砝码改为75克……通过这种策略，小王很快完成物品称重工作。此过程借鉴的算法是（）。A．排序 B．顺序查找 C．对分查找 D．累加10．表达式NOT（2*5<>11）的值是（）A．True B．FalseC．0 D．null11．有如下 VB 程序a(1) = 1 For i = 2 To 12 a(i) = a(i - 1) + Int(Rnd * 2) + 1 Next i Key = Val(Text1.Text) i = 1: j = 12: cnt = 1: flag = False Do While i <= j And flag = False cnt = cnt + 1 m = (i + j + 1) \ 2 If a(m) = Key Then flag = True ElseIf Key > a(m) Then i = m + 1 Else j = m - 1 End If Loop 程序运行后，下列说法正确的是( )A．在Text1输入15，程序运行后m肯定为 12 B．在Text1输入6，程序运行后 cnt可能大于4C．若查找不成功，则 j>m肯定成立 D．若查找不成功，则 i<=m 肯定成立12．方格状的地板，蜂窝，砖墙，草席等图结构上存在冗余，这种规律性的结构表现为（）A．空间冗余 B．结构冗余 C．视觉冗余 D．时间冗余13．数组元素a（1）～a（n）中存储了n个正整数，下列哪个表达式为True时，可检测数组奇数位置元素的值为偶数A．a(i) Mod 2 = i Mod 2–1B．a(i) Mod 2 = i Mod 2C．a(i) Mod 2 = 0 Or i Mod 2 = 1D．a(i) Mod 2 = 1 And i Mod 2 = 0 二、操作题小张设计了一个“加减运算练习”VB程序。界面如下图所示。单击“出题”Command1按钮显示两个运算数和运算符号，并计数。在文本框Text1中输入计算结果后单击“判断”按钮Command2，如果计算结果正确，则VB程序如下，但加下划线处代码有错，请改正。Dim n,s As Integer 'n为试题计数器,s为得分Dim a, b As Integer 'a，b 为两个运算数Dim c As String 'c为运算符："+ "表示加法，"-"表示减法Private Sub Form_Load()n = 0:s = 0End SubPrivate Sub Command1_Click() ‘出题按钮Randomizen =" n" + 1If n < 11 ThenLabel1.Caption = "No：" + Str(n)a =" Int(Rnd" * 100) 'a，b为运算数，且要求a不小于bb =" Int(Rnd" * 100)If a > b Then t =" a:" a =" b:" b = t '(1)If Rnd > 0.5 Then c = "+" Else b = "-" '(2)Label5.Caption =" Str(a)" + c + Str(b) + "="Text1.Text = ""ElseCommand1.Caption = "完成测试"End IfEnd SubPrivate Sub Command2_Click() ‘判断按钮If c = "+" ThenIf a + b =" Val(Text1.Text)" Then s =" s" + 10ElseIf a + b =" Val(Text1.Text)" Then s =" s" + __14__'(3)End IfLabel3.Caption = "得分:" + Str(s)End Sub
参考答案：1．A2．A3．C4．A5．C6．B7．B8．D9．C10．B11．B12．B13．Atext)