1.6制作菜单同步练习　2022—2023学年人教版高中信息技术选修1

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.Close conn.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．Date 3．文本框中的内容发生变化时，触发其（      ）事件。 A．CLICK B．CHANGE C．GOTFOCUS D．LOSTFOCUS 4．在VB中，“zjxj.frm”文件属于（    ）。 A．工程文件 B．代码文件 C．窗体文件 D．可执行文件 5．下列程序执行后文本框Text1显示的内容是(　　) s = "Inter(R) Core(TM) i3-4130 CPU @ 3.40GHz" flag = False:k = 0 For 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 If Next i Text1.Text = Str(k) A．6 B．9 C．10 D．18 6．在窗体上有多个文本框。影响 Text1的Tab顺序的属性是（    ） A．TabStop B．Enabled C．Visible D．TabIndex 7．下列说法中正确的是(    ) A．PASSWORDCHAR的值可以是多个字符 B．MAXLENGTH的值为0时不可在文本框中输入数据 C．LOCKED的值为FALSE时不可以在该文本框中输入或编辑数据 D．同一时刻,只能有一个文本框有插入点. 8．在VisuA．l B．A．siC．中，下列能作为变量名的是（ ） A．5A． B．A．5 C．if D．D．im 9．下列可以作为VB变量名的是（   ） A．V&B B．V+B C．7VB D．V_B 10．有如下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 = n End Function Private Sub Command1_Click() 　 Text1.Text = Str(GCD(48,36)) End Sub 程序运行完后，单击Command1按钮，文本框Text1中显示的是　(　　) A．12 B．18 C．36 D．48 11．VB 表达式Int(Rnd*9)+54\3^2/3的值可能是（  ） A．9 B．16 C．19 D．27 二、操作题 12．某数据解密算法描述如下： （1）在输入的数字字符串中依次提取有效的密文，有效的密