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

成绩	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

以下只能用解析算法求解的是（    ）。

A．已知边长a、b、c，求三角形面积。

B．求用10元、20元和50元三种纸币组合支付360元的不同方案。

C．求2000以内的素数。

D．求所有的水仙花数的总和。

已知Asc(“A”)的值为65，下列Visual Basic表达式的值等于数值131的是（ ）

A．ASC(“A+B”)

B．CHR(65)+CHR(66)

C．"13"+"1"

D．Abs(69-200)

给定区间a1，a2和b1，b2，若a2≥b1，则认为这两个区间是有重叠的，可进行合并｡如区间1，3和2，6可合并为1，6；区间1，6，2，5可合并为1，6；区间1，4和4，5可合并为1，5｡
编写一个“合并重叠区间”的VB程序，功能如下：在文本框Text1中按各区间起始值升序依次输入各区间的起始值和终止值（数据都用逗号分隔并以逗号结尾），单击“确定”按钮后，在Text2中显示合并后的各个区间｡例如，在文本框Text1中输入“1，2，3，5，4，6，9，12，10，11，”，表示区间1，2，3，5，4，6，9，12，10，11，合并后的区间分别为1，2，3，6，9，12｡程序运行界面如图所示，实现上述功能的VB代码如下：

Const n=100
Private Sub Cmd1_Click()
Dim i As Integer, k As Integer, L As Integer, R
As Integer
Dim s As String, c As String, t As String, result
As String
Dim a(1 To n) As Integer
s=①  :t="":k=0
For i=1 To Len(s)
c=Mid(s,i,1)
If c<>, Then
②
Else
k=k+1
a(k)=Val(t)
t=""
End If
Next i
L=a(1):R=a(2)
i=3
Do While i<=k
If a(i)>R Then
result = result+"("+Str(L)+,+Str(R)+"),"
L=a(i):R=a(i+1)
   
R=a(i+1)
End If
 ③
Loop
result=result+"("+Str(L)+,+Str(R)+"),"
Text2. Text=result
End Sub
（1）码中①②③划线处代码补充完整｡
①__________
②__________
③__________
（2）程序代码中的加框处代码有误，请改正｡
_____________________
（3）运行该程序，输入数据如图所示，程序执行完毕时，变量k 为________________｡

   （加试题）计算整数t的近似算数平方根算法如下：

先取,然后根据公式计算,再由计算，……直到,则为解。

小李编写了一个VB程序实现上述功能：运行程序时，在text1中输入一个正整数，单击命令按钮command1，文本框text2显示该数的算数平方根。

程序代码如下，请阅读完成以下两小题。
Function fun(x As Integer, x0 As Double) As Double
Dim x1 As Double
x1 = (x0 + x / x0) / 2
If Abs(x1 - x0) < 0.00001 Then
fun = x1
Else
fun = （1）    
End If
End Function
Private Sub Command1_Click()
Dim t As Integer
Dim k As Double
t = Val(Text1.Text)
k = fun(t, 1)
k = （2）        '保留两位小数的四舍五入
Text2.Text = Str(k)
End Sub
(1)题中函数fun主要采用的算法思想是___________
(2)程序中（1）划线处应填写的代码是_____________
程序中（2）划线处应填写的代码是___________