1.6制作菜单同步练习人教版信息技术选修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）在输入的数字字符串中依次提取有效的密文，有效的密文的特点：

①是一组连续的，都小于5的三位数字串；②每个位置上的数字不能被重复提取；

（2）对有效密文进行解密的过程：

将密文作为一个五进制数转换为对应的十进制数值，根据ASCII字符的十进制编码表，得出对应的明文字符（提示：空格符所对应的ASCII码值为十进制数32，小写字母“z”所对应的ASCII码值为十进制数122）.

例如，密文242转换成十进制数为72，对应的明文字符为大写字母“H”。

程序运行界面如下图所示，在文本框Text1中输入密文，单击“解密”按钮，在文本框Text2中输出解密后的明文密码。

（1）若输入的密文为“841497230235”，则对应的明文是__________。

（2）实现上述功能的VB代码如下，划线处的语句有错，应改为__________________。

（3）请在划线处填入合适的代码.

'以下代码是将有效密文数字转换为十进制数的函数

Function conv(p As String) As Integer

Dim k As Integer, q As String, i As Integer

k = 0: g = ""

For i = 1 To 3

q = Mid(p, i, 1)

 ________________

Next i

conv = k

End Function

Private Sub Command1_Click()

Dim st As String, p As String, res As String

Dim c1 As String, c2 As String, c3 As String

Dim i As Integer, d As Integer, n As Integer

st = 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)

______________

Else

i = i + 1

End If

Loop

Text2.Text = res

End Sub

13．清空文本框TEXT1,TEXT2,LABEL1中的内容

   PRIVATE  SUB  FORM CLICK（ ）

   ________[3]

   ________[4]

   ________[5]

   END   SUB

参考答案：

1．C

2．B

3．B

4．C

5．B

6．D

7．D

8．C

9．D

10．A

11．C

12．     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

13．     TEXT1.TEXT=""     TEXT2.TEXT=""     Label1.CAPTION = ""