2.3选择结构同步练习沪科版信息技术选修1

这是一份高中信息技术教科版 (2019)选修4 人工智能初步本册综合当堂达标检测题，共9页。试卷主要包含了选择题，填空题，操作题等内容，欢迎下载使用。
2.3选择结构同步练习沪科版信息技术选修1学校:___________姓名：___________班级：___________考号：___________ 一、选择题1．在编程求解“找出两数中较大者”问题时，使用下面的流程图描述算法。其中虚线部分使用了（    ）。                    A．顺序结构 B．选择结构 C．自然结构 D．循环结构2．（      ）是程序的基本控制结构。A．顺序结构 B．组合结构 C．循环结构 D．选择结构3．某市出租车起步价10元，超出3公里的部分按每公里1.8元收费，如果要编写一个计费程序，则应采用的基本洁构是(    )A．无法确定 B．分支结构 C．顺序结构 D．循环结构4．小明用VB编写一个程序，只要输入日期，程序能自动判断星期几。在下列结构语句中，最适合解决此问题的语句是（    ）。A．For——Next B．Do——While C．Select——Case D．顺序结构5．小王学了VB后，小试牛刀，编写了一个程序求解元二次方程，那么他应使用的程序基本结构是（    ）A．循环结构 B．选择结构 C．顺序结构 D．自然结构6．某算法的流程图如下所示： 当输入a，b的值分别为7，9，该算法的输出结果为A．16 B．9 C．7 D．27．某算法的流程图如下所示： 当输入a，b的值分别为5，7，该算法的输出结果为A．2 B．5 C．7 D．128．某算法流程图如图所示，执行该算法，输入n的值为13，下列说法正确的是（    ）。A．变量p为循环变量B．该流程执行后，变量t的值是11C．该算法功能：判断n是否是素数D．该流程完整执行1次，“1>=2?”共执行了n-2次9．下列关于IP协议的说法正确的是（    ）。A．IPv4规定IP地址由2段16位二进制数字构成B．IPv4规定IP地址由4段8位二进制数字构成C．IPv4规定IP地址由16段2位二进制数字构成D．IPv4规定IP地址由8段4位二进制数字构成10．【加试题】有如下VB程序段：i=1：j=8key=Text1.Text：f=FalseDo While i<=j And Not fm=Int((i+j)/2)If a(m)=key Thenf=True：Listl.AddItem Str(m)+"isgoodluck！"ElseIf a(m)〉key Thenj=m-1：List1.AddItem Str(m)EIsei=m+1：List1.AddItemStr(m)End IfLoopIf Not f Then List1.AddItem"sorry！"a(1)到a(8)依次为"as"、"book"、"can”、"pig"、"see"、"you”、"we"、"zero"。当在文本框Textl中输入以下哪个内容时，列表框list1中显示的结果和别的三项不一样A．pear B．quick C．run D．sad 二、填空题11．运行以下VB代码。若依次输入Mike、Mary，输出的结果是_______。12．现有如下Visual Basic程序段：Private Sub Command1_Click（）Dim a , b , c  as Integera = 27: b = 9: c = -6If a > b And b > 0 ThenIf c < 0 Then a = a - c Else a = a - bElsea = b + cEnd IfPrint aEnd Sub该程序段运行之后，变量a的值为__________。13．国际标准书号ISBN分成四组的10位数字组成，前面9位数字分组号、出版社和书序号三组，最后一位为校验码。校验的规则为从左边开始取出每位数字(前9位)，取出的数字依次乘以10、9、8……2，把各次的乘积相加，用11减去这个和除11的余数即为校验码。在文本框Text1中输入条形码，单击“校验”按钮Cmd1，在文本框Text2输出结论。程序运行的界面如图所示：实现上述功能的VB程序如下，但加框处代码有错，请改正。Private Sub Command1_Click()　Dim s As String，i As Integer，s1 As String，sum As Integer，t As Integer　Dim jy As Integer　s＝Text1.Text　t＝0：sum＝0　For i＝1 To Len(s)s1＝Mid(s，i，1)If s1>＝”0” And s1<＝”9” Then　′①　If t<10 Thensum＝sum＋Val(s1)*(11－t)　ElseIf t＝10 Then　　　　′②　 End IfEnd If　Next i　sum＝11－sum Mod 11　If   Then′③Text2.Text＝”该校验码中数字不是10位数！”　Else　If　jy＝“X”　and sum＝10 ThenText2.Text＝”校验通过”　ElseIf　val(jy)＝sum thenText2.Text＝”校验通过”　ElseText2.Text＝”校验不通过”　End IfEnd IfEnd Sub划线处代码为①___________________________________________________②_______________________________________________________________③_______________________________________________________________14．（1）某省实施《中华人民共和国道路交通安全法》办法中规定，机动车驾驶人驾驶机动车超过规定时速但未超过百分之五十的，处于二百元罚款。超过百分之五十（未造成交通事故）的，处五百元罚款，每多超过五公里，加处二百元罚款，不足五公里的忽略不计，但最高罚款不得超过二千元。用于计算罚款额的Visual Basic程序如下：Private Sub Command1_Click()Dim v0 As Integer, v As Integer, x As Integerv0 = Val(Text1.Text) 'v0 存储规定速度v = Val(Text2.Text) 'v存储实际速度If v > v0 And v <= 1．5 * v0 Thenx = 200ElseIf v > 1．5 * v0 Thenx = 500+ Int((v - 1．5 * v0) / 5) * 200Elsex = 0End IfIf x > 2000 Then x = 2000Label1.Caption = Str(x)End Sub运行该程序时，在Text1文本框中输入50，在Text2文本框中输入60，点击Command1时，在Label1的Caption上显示的罚款金为 。（2）如下一段Visual Basic程序：Private Sub Command1_Click()Dim i As Integer,sum As IntegerDim x As Integer,n as Integern=Val(Text1.text)sum = 0For i = 1 To nx = Int(Sqr(i))If x * x = i Then sum =sum + xNext iLabel1.Caption = Str(sum)End Sub在Text1框中输入10时，点击Command1时，Label1上显示的是 。15．阅读以下程序段，根据要求回答以下问题。执行上述程序段后，变量a的值是_______________，变量b的值是_______________。 三、操作题16．编写“序列生成”程序，实现如下功能：在文本框Text1中输入一正奇数n，单击“生成序列”按钮Command1，在文本框Text2中显示该序列，且每个元素用逗号“，”分隔。若输入一非正奇数，那么提示“输入非正奇数，请重新输入”；若输入9，那么生成的序列为“1， 2 ， 3 ， 4 ， 5 ， 4 ， 3， 2 ，1”。程序运行界面如图所示。 （1）设计界面时，为清空文本框Text2的内容，可设置__________属性实现。（2）实现“序列生成”功能的VB程序如下，请在划线处填入合适的代码。Private Sub Command1_Click()Dim n As Integer, i As Integer, mid As Integern = _______________If ____________Then      Text2.Text = "输入非正奇数，请重新输入"Else  mid =  (n + 1) \ 2 Text2.Text = ""      For i = 1 To n        If i = n Then          Text2.Text = Text2.Text  +  "1"        Else          Text2.Text = Text2.Text  +  ____________+  ","        End If      Next i____________End Sub
参考答案：1．B2．ACD3．B4．C5．B6．A7．D8．C9．B10．A11．Mary12．3313．     ①t=1改为t=t+1     ②sum=s1改为jy=s1     ③t=10改为t<>1014．（1）200（2分）（2）6（2分）15．     10     1516．     Text     Val(Text1.text)     n mod 2 <=0     str(mid-abs(mid-i))     End If