2.1顺序结构程序同步练习人教版信息技术选修1

这是一份教科版 (2019)选修4 人工智能初步本册综合精练，共7页。试卷主要包含了选择题，操作题等内容，欢迎下载使用。
2.1顺序结构程序同步练习人教版信息技术选修1学校:___________姓名：___________班级：___________考号：___________ 一、选择题1．下列能作为赋值语句的是（        ）A．15=jB．a+b=65C．t=TrueD．i=100-j And j=22．关于以下流程图的描述中，正确的是（ ）。A．执行后变量s的值一定小于20B．循环体共计被执行了20次C．该循环结构的类型为直到型循环D．该算法的功能是：求2+5+8+11的和3．在算法执行流程中，对于循环模式下列说法正确的是（  ）A．对某个情况进行判断，当结果为真时执行步骤一，否则执行步骤二；B．对某个情况进行判断，当结果为真时执行步骤一，然后再次判断这个情况，依次类推，直到条件为假时结束；C．仅用循环模式就可以用来判断某个输入的数是不是整数；D．循环模式中，可以嵌套选择模式，而选择模式不能嵌套循环模式；4．关于上题的程序的控制结构的说法不正确的是（   ）A．顺序结构包含了选择和循环结构B．选择结构是由块条件语句构成C．选择结构包含了循环结构D．循环结构包含了选择结构5．有如下visual basic程序：private Sub command1_Click()s=0If s<=99 thenFor j=1 to 10s=s+jNext jElseprint “程序出错！”Endifprint “最后的s的值是:”；sEnd Sub请问以上程序的控制结构包含了（   ）A．顺序结构、树型结构B．顺序、选择结构C．顺序、选择和循环结构D．顺序、循环结构6．如下VB程序段a = 1b = 0m = ax = m + bb = b + 1y = x + b         它的基本结构属于（   ）A．顺序结构 B．选择结构 C．循环结构 D．树型结构7．有算法流程图如下图所示：执行该算法，当x的值为5时（   ）A．y的值为11 B．y的值为13 C．y的值为12 D．程序出错8．在一次电视选秀活动中，有三个评委为每位选手打分。如果三个评委都亮绿灯，则进入下一轮；如果两个评委亮绿灯，则进入待定席；如果红灯数超过两盏则淘汰。最适合用到的程序结构是（   ）A．循环 B．赋值 C．选择 D．顺序9．当型循环和直到型循环的区别是（   ）。A．当型循环的循环体至少执行一次，直到型循环的循环体可能一次也不执行B．当型循环的循环体可能一次也不执行，直到型循环的循环体至少执行一次C．当型循环和直到型循环的循环体都至少执行一次D．当型循环和直到型循环的循环体都有可能一次也不执行10．有流程图结构如下，其算法结构属于（   ）A．顺序结构 B．选择结构 C．分支结构 D．循环结构11．在VB中，“zjxj.frm”文件属于（    ）。A．工程文件 B．代码文件 C．窗体文件 D．可执行文件12．该算法的功能是_______。A．求1+4+7+10+13的值B．求4+7+10+13的值C．求1+4+7+10的值D．求4+7+10的值13．已知n的值，求1至n的所有的偶数之和s，下列算法的功能是计算s值：① 输入变量n的值，将变量s赋初值0，将变量i赋初值1② 如果i的值大于n则转⑤否则转③③ 如果i是偶数，则将s的值加上i的值，结果存放在s中④ 将i的值增加1并转② ⑤ 输出s的值上述算法描述中包含的控制结构有（   ）A．选择结构 B．循环结构C．选择结构、循环结构 D．顺序结构、选择结构、循环结构14．有一属于顺序结构的流程图，它不需要以下流程图中的哪个符号（   ）A． B． C． D． 二、操作题15．某数据解密算法描述如下：（1）在输入的数字字符串中依次提取有效的密文，有效的密文的特点：①是一组连续的，都小于5的三位数字串；②每个位置上的数字不能被重复提取；（2）对有效密文进行解密的过程：将密文作为一个五进制数转换为对应的十进制数值，根据ASCII字符的十进制编码表，得出对应的明文字符（提示：空格符所对应的ASCII码值为十进制数32，小写字母“z”所对应的ASCII码值为十进制数122）.例如，密文242转换成十进制数为72，对应的明文字符为大写字母“H”。程序运行界面如下图所示，在文本框Text1中输入密文，单击“解密”按钮，在文本框Text2中输出解密后的明文密码。（1）若输入的密文为“841497230235”，则对应的明文是__________。（2）实现上述功能的VB代码如下，划线处的语句有错，应改为__________________。（3）请在划线处填入合适的代码.'以下代码是将有效密文数字转换为十进制数的函数Function conv(p As String) As IntegerDim k As Integer, q As String, i As Integerk = 0: g = ""For i = 1 To 3q = Mid(p, i, 1) ________________Next iconv = kEnd FunctionPrivate Sub Command1_Click()Dim st As String, p As String, res As StringDim c1 As String, c2 As String, c3 As StringDim i As Integer, d As Integer, n As Integerst = Text1.Text: n = Len(st)i = 1: res = ""Do While i <= n – 2    '提取有效密文,并进行转换c1 = Mid(st, i, 1): c2 = Mid(st, i + 1, 1): c3 = Mid(st, i + 2, 1)If c1<"5" Or c2 <"5" Or c3 <"5" Then______________d=conv(p)If d >= 32 And d <= 122 Then res = res + Chr(d)______________Elsei = i + 1End IfLoopText2.Text = resEnd Sub
参考答案：1．C2．D3．B4．D5．C6．A7．A8．C9．B10．D11．C12．C13．D14．B15．     mA     c1<"5" And c2<"5" And c3<"5" 或其它等价答案     ① k=k*5+Val(q) 或 k=k+Val(q)*5^(3-i) 或其它等价答案     ②p=Mid(st,i,3)     ③i=i+3