1.6制作菜单同步练习人教版信息技术选修1

这是一份高中信息技术中图版 (2019)必修2 信息系统与社会本册综合随堂练习题，共7页。试卷主要包含了选择题，操作题等内容，欢迎下载使用。
1.6制作菜单同步练习人教版信息技术选修1学校:___________姓名：___________班级：___________考号：___________ 一、选择题1．有如下 VB 程序段 Dim conn As New ADODB．Connection Dim rs As New ADODB．Recordset conn.ConnectionString = “Provider=Microsoft.ACE.OLEDB．12.0；Data Source=” & App.Path & “\词库.accdb” conn.Open Set rs.ActiveConnection = conn rs.Open “SELECT * FROM  words” n = 0 Do While Not rs.EOF     n = n + 1 en（n） = rs.Fields（1）ch（n） = rs.Fields（2） rs.MoveNext Loop rs.Closeconn.Close 下列说法中正确的是（  ）①连接的数据库文件名是“\词库.accdb” ②程序运行后，变量n 的值表示该数据表中记录的总数 ③数组 en（n）所存储的是数据表第 2 个字段的字段值 ④“ConnectionString”是 conn 对象的属性值⑤查询的数据表名称是“words” ⑥省略语句“rs.MoveNext”，程序也可以正常运行A．①④⑤ B．③④⑥ C．②③⑤ D．②③④2．在Visual Basic中，用变量name存储学生的姓名，则变量name的数据类型应说明为（   ）A．Integer B．String C．Single D．Date3．文本框中的内容发生变化时，触发其（      ）事件。A．CLICKB．CHANGEC．GOTFOCUSD．LOSTFOCUS4．在VB中，“zjxj.frm”文件属于（    ）。A．工程文件 B．代码文件 C．窗体文件 D．可执行文件5．下列程序执行后文本框Text1显示的内容是(　　)s = "Inter(R) Core(TM) i3-4130 CPU @ 3.40GHz" flag = False:k = 0For i = 1 To Len(s)　ch = Mid(s, i, 1)　If ch >= "A" And ch <= "Z" or ch >= "0" And ch <= "9" Then 　　If Not flag Then　　　k = k + 1　　　flag = True　　End If　Else　　flag = False　End IfNext iText1.Text = Str(k)A．6 B．9 C．10 D．186．在窗体上有多个文本框。影响 Text1的Tab顺序的属性是（    ）A．TabStopB．EnabledC．VisibleD．TabIndex7．下列说法中正确的是(    )A．PASSWORDCHAR的值可以是多个字符B．MAXLENGTH的值为0时不可在文本框中输入数据C．LOCKED的值为FALSE时不可以在该文本框中输入或编辑数据D．同一时刻,只能有一个文本框有插入点.8．在VisuA．l B．A．siC．中，下列能作为变量名的是（ ）A．5A． B．A．5 C．if D．D．im9．下列可以作为VB变量名的是（   ）A．V&B B．V+B C．7VB D．V_B10．有如下VB程序段：Function GCD(m As Long, n As Long) As Long　Dim temp As Long, r As Long　If m < n Then temp = m: m = n: n = temp　d = m - n　Do While d <> n　　If d >= n Then　　　 m = d　　Else　　　 m = n　　　 n = d　　End If　　d = m - n　Loop　GCD = nEnd FunctionPrivate Sub Command1_Click()　 Text1.Text = Str(GCD(48,36))End Sub程序运行完后，单击Command1按钮，文本框Text1中显示的是　(　　)A．12 B．18 C．36 D．4811．VB 表达式Int(Rnd*9)+54\3^2/3的值可能是（  ）A．9 B．16 C．19 D．27 二、操作题12．某数据解密算法描述如下：（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 Sub13．清空文本框TEXT1,TEXT2,LABEL1中的内容   PRIVATE  SUB  FORM CLICK（ ）      ________[3]   ________[4]   ________[5]   END   SUB
参考答案：1．C2．B3．B4．C5．B6．D7．D8．C9．D10．A11．C12．     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+313．     TEXT1.TEXT=""     TEXT2.TEXT=""     Label1.CAPTION = ""