下列Visual Basic程序段运行后，变量x的值为（    ）
x="3:" y=50
Do while x < sqr(y)
x=x+2
Loop

A．7

B．8

C．9

D．10

有如下ⅤB程序段：
For i=1 To 10

b(a(i) Mod 10)= b(a(i) Mod 10)+1

b(a(i)\10)=b(a(i)\10)+1

Next i
num=0
Fori=0 To 9

If b(i>num Then num b(i)

Next i
数组b各元素初始值为0，数组元素a(1)到a(10)的值依次为“68，17，24，30，36，40，55，58，61，66”，执行该程序段，num的值为（   ）

A．2

B．3

C．4

D．5

下面四个程序段运行后，变量a的值最小的是（ ）

A．

B．

C．

D．

王老师采用星级制对本班学生的平时表现进行评价，每位同学的评分数据储存在数据库中。学生的得分和星级对照如下表：

成绩	1-20	21-40	41-60	61-80	81-100
星级	一星	二星	三星	四星	五星

 
要求依据上表统计出各星级学生人数占总人数的比例。小王编写了一个VB程序实现该功能：程序运行时，每位学生的得分存储到数组a中，并在列表框listl中显示，单击命令按钮后，在列表框list2中显示各星级的人数占总人数的百分比例。程序运行界面如图所示：

(1)观察代码，实现统计功能的按钮对象名为：_______。
(2)当前读取的数据表名为：_________________
(3)实现上述功能的VB代码如下，划线①、②处请填空。
Const n = 50
Dim a(1 To n) As Integer
Dim b(0 To 4) As Integer
Private Sub Form_Load( )
Dim adocn  As New ADODB. Connection
Dim adors As New AD0DB. Recordset
Dim strl，str2 As String
adocn. ConnectionString =”provider= microsoft. ace. oledb.12.0；data source=” +
App. Path + ”\school. accdb”
adocn.Open
str2 = ”select * from student”
adors.0pen str2，adocn
’以下将每个学生的得分读入组数a中，并在列表框list1中显示，代码略
End Sub
Private Sub Coml_Click()
Dim dd As String
Dim cou As Single
Dim t as integer
dd=“一星二星三星四星五星”
For i = 1 To n
t=______________________
b(t)=b(t)+1
Next i
For i = 0 To 4
cou = Int(b(i)/n * 100 + 0.5)
1ist2. AddItem，_______________+ Str(cou) + “%”
Next i
End Sub

某书店在5所学校流动售书量（单位，本）分别是88,110,48,64,35。若采用冒泡排序算法对其进行从小到大排序，则第二趟的排序结果是（    ）。

A．35   88    110  48   64

B．35   48    88   64   110

C．35   48    88   110  64

D．35   48    64   88   110