学进去

填空：
（1）VB连接的数据库名称是___________；选择的数据表名称为____________；读取的字段名为______________
（2）rs.EOF是指______________________
（3）rs.MoveNext是指_________________
（4）划线处应填为____________________
Private Sub Form_Load()
conn.ConnectionString="Provider=Microsoft.AC

A．OLED

B．12.0；DATA Source="&App.Path&"\GNI.accdb"

conn.Open
Set rs.ActiveConnection=conn
rs.Open "SELECT * FROM GNIPC"
n=0
Do While Not rs.EOF
               
a(n)=rs.Fields("2010")
rs.MoveNext
Loop
rs.close
conn.close
End Sub

为随机生成100个有序数据，有如下VB程序。
Private  Sub  Command1_Click()
Dim a(1  To 100)  As Integer
Dim Low  As Integer,  High As  Integer
Randomize
a(1)  =  Int(100  * Rnd)
For  i  =  ①                  To  100 temp  =  Int(100  * Rnd)
Low  =  1
High  =②            
Do  While  Low  <=  High
m  =  (Low  +  High)  \ 2
If temp  >  a(m)  Then
Low  =  m +  1
Else
High  =  m - 1
End If
Loop
For  j  =  i  - 1  To  Low  Step  -1
③             
Next j
a(Low)  =  temp
Next i
End  Sub
请回答以下问题：
（1）加框处为____查找法，是否可以修改为顺序查找法_（填：是/否）。
（2）请完成代码中所缺部分。
①_______________________
②_______________________
③_______________________

（加试题）如下程序：
Private Function f(x As Single,n As Integer) As Single
If n = O Then
f=1
Else
If n Mod 2= 1 Then
f= x * f(x,n\2)
Else
f=f(x,n\2)\x
End If
End If
End Function
Private Sub Commandl_Click( )
Labell. Caption = Str(f(4,6))
End Sub
程序运行时，单击按钮Command1，标签Labell显示的内容是(      )

A．1

B．4

C．27

D．64

逻辑运算符 And 在计算数值时是转换为二进制数后按位进行与运算，计算规则是：1 And 1 = 1，1 And 0 = 0，0 And 1 = 0，0 And 0 = 0，例如 7 转换为二进制数 00000111，12 转换为二进制为 00001100，因此 7 And 12 的结果为 4。有如下 VB 程序段：
Private Sub Command1_Click()
n = 0
For i = 1 To 31 k = i
t = 0
Do While k > 0
k = k And (k - 1)
t = t + 1
Loop
If t = 3 Then n = n + 1
Next i
Label1.Caption = Str(n)
End Sub
单击命令按钮 Command1，标签 Label1 中显示的结果为

A．6

B．8

C．10

D．12

程序代码如下：
For h = 1 To x
　If h + n <= x Then
　　m = a(h) : a(h) = b(h + n) : b(h + n) = m
　Else
　　m = a(h) : a(h) = b(h + n - x) : b(h + n - x) = m
　End If
Next h
如果x=4，n=3，数组元素a(1) 到a(4) 的值依次为“1，2，3，4”，数组元素b(1) 到b(4) 的值依次为“5，6，7，8”，经过该程序段“加工”后，数组元素a(1) 到a(4) 的值依次为（  ）

A．5，6，7，8

B．8，5，6，7

C．8，7，6，5

D．8，6，5，7

程序代码如下：
For i = 1 To x
For j = 1 To Len(a(i))
y =  Val(Mid(a(i), j, 1)) * 16 ^ (Len(a(i)) - j)
Next j
If y < 128 Then
s = s + Chr(y)
End If
Next i
如果x=8，数组元素a(1) 到a(8) 的值依次为“78，85，4D，56，93，E2，12，1A”，经过该程序段“加工”后，s 包含几个字符（  ）

A．3

B．8

C．5

D．4

某客运公司为了合理地安排汽车运输，每年每月都会对汽车站的客运量进行统计，并保存到数据库。新的一年即将来临，客运公司准备制订明年的汽车排班计划。设计程序，从数据库中读取上一年的月客运量，并找出最大、最小月份，代码如下：
Dim a(1 To 12) As Integer
Private Sub Form_Load()
　’本过程从数据库中读取上一年月客流量，并存储在数组a中，代码略
End Sub
Private Sub Command1_Click()
Dim max As Integer, min As Integer
Dim yx As Integer, yn As Integer
max = a(1)
min = a(1)
yx = 1
yn = 12 ……………………①
For i = 2 To 12
　If a(i) >= max Then
　　max = a(i)
　　yx = i
　End If
　If  a(i) <a（1） Then ………………②
　　min = a(i)
　　yn = i
　End If
Next i
Label1.Caption =“客流量最大在第” + Str(yx) +“月，共” + Str(max) +“人，客流量最小在第” + Str(yn) +“月，共：” + Str(min) +“人”
End Sub
该程序①、②处有错误，请在画线处填写正确代码。
①_____________________②_____________________

负责对数据库资源进行统一的管理和控制，实现所有用户或程序发出的有关数据库方面操作命令的是（ ）

A．数据库管理系统

B．数据库

C．数据库应用系统

D．数据库系统

以下关于排序算法的叙述中，正确的是（ ）

A．冒泡排序法中，数据的交换次数与比较次数一定相同

B．冒泡排序法中，数据的交换次数肯定少于比较次数

C．选择排序中，值相同的两个数据在排序前后的相对位置一定不变

D．选择排序中，值相同的两个数据在排序前后的相对位置可能不变

采用冒泡排序对一组数据进行排序，第一遍排序后的结果为2，19，4，55，6，7，11，13，32，那么该数组的原始顺序不可能是（）

A．19，4，55，6，7，11，13，32，2

B．2，19，4，55，13，11，32，6，7

C．19，4，55，2，6，7，11，13，32

D．19，4，55，6，7，11，2，13，32