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

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

（加试题）四宫数独规则：在4×4的格子中，根据已知数字，推理出所有剩余空格的数字，并满足每一行、每一列、每一个宫（粗线框区域）内均含1到4的数字并且不重复，每道数独有且仅有唯一答案。
例如，根据规则推理图1数独，在第一宫中4个格子已经3个格子分别是数字1到3，缺的数字为4，因此第一行第一格空缺的数字填4，以此类推，直至将所有格子都推理出来。

图1	图2

 
（1）根据上述规则推理，数独（图2）第一行A处应是数字______。

（2）小明编写了四宫数独推算的VB程序，单击“推算”按钮 Command1后，在列表框List1中输出数独推算过程和结果，如第17题-3题图所示。实现推算的VB程序如下，请在划线处填入合适的代码。
Dim d(1 To 16) As Integer    '数组d逐行存储四宫数独

Private Sub Command1_Click()

Dim i As Integer，flag As Boolean

For i = 1 To 16

d(i) =0    ‘值0表示该位置还未填数字

Next i

‘初始化数独中已知位置的数字

d(2) =4:d(11) =3:d(14) =2:d(16) =4

List1.Clear

'在列表框Li1中输出四宫数独，代码略

flag = False

Do While Not flag

①__________
For i = 1 To 16
‘函数check(i)实现对第i位置进行推算
If d(i) = 0 Then
d(i) = check(i)
If d(i) >0 Then
flag = False
'Forniat(i,"00")函数实现将变量i的值按2个字符宽度输出
List1.Addltem"第"& Format(i,”00” & "位置填” & d(i)
End If
End If
Next i
Loop
'在列表框Lil中输出四宫数独，代码略
End Sub
根据每一行、第一列、每一个宫的已有数字进行推算
Function check(x As Integer) As Integer

Dim t(0 To 4) As Integer，m As Integer

Dim row As Integer，col As Integer，n As Integer，k As Integer

For m=0 To 4

t(m) =0

Next m

'对当前所在行列进行推算

row = (x-l)\4+l

col = ( x - l) Mod 4 + l

For m= 1 To 4

t(d（ row - l) *4+m） = l
t(②_______)=1

Next m

'进行宫内推算

If row < =2 And col <= 2 Then t(d(7 -x) ) = l
If row< = 2 And col > 2 Then t(d(ll - x） = l
If row > 2 And col < = 2 Then t(d(23-x） = l
If row > 2 And col > 2 Then t(d(27-x） = l
k =0

For m= l To 4

If t (m) = 0 Then n = m Else k = k + l

Next m

If ③_______ Then check = n Else check = 0

End Function

有如下Ⅴ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

对一段字符（仅包含大小写字母和数字）加密，加密规则为：①字母和数字都往后循环顺移3位，如“a”变为“d”，“y”变为“b”；“0”变为“3”，“7”变为“0”②加密后字母在前，数字在后③字母按逆序排列，数字按顺序排列，如输入明文“ab7Z8x3”，这密文为“aCed4016”。
小王利用VB程序实现这一加密功能，程序界面和代码如下所示：
（1）根据程序代码分析，“加密”按钮的名称是_____________________________。
（2）根据加密规则，明文“9G78fbY5”，则密文为__________________________。
（3）请在画线处填入合适的代码：

Private Sub Com_ jm_ Click()
Dim x As String, ch As String, cl As String
Dim sl As String, s2 As String, s As String
Dim i As Integer, n As Integer, y As Integer
x= Text1. Text
n=Len(x)
For i=1 To n
ch= Mid(x, i, 1)
If ch >= "0" And ch <= "9" Then
①_____________
s2=s2 & y
Elself ch >="a" And ch<="z" Then
y=(Asc(ch)-Asc("a")+3)Mod 26
②_______________
s1=c1+s1
Else
y=(Asc(ch)- Asc("A")+3) Mod 26
c2=Chr(Asc("A")+y)
s1=c2+s1
End If
Next i
③________
Text2 Text=s
End sub

小张编写了一个查询汉字区位码的程序，程序具体功能：在文本框Text1中输入一个汉字的内码（处理码），单击“查询”按钮Command1后，在Text2中输出汉字的区码和位码。例如：汉字“啊”的内码和区位码的关系如下：

“啊”的区位码	区码	位码
十进制	16	01
十六进制	10	01

 
区位码分别转成十六进制后，将区码和位码分别加上十六进制数A0即得到内码。

“啊”的内码的十六进制形式即为B0A1H
程序运行界面如图所示：

Private Sub Command1_Click()
Dim i As Integer, q As Integer, w As Integer, s As String, s1 As String, c As String
s = Text1.Text
For i = 1 To 4    '如果输入的处理码包含小写字母，则转成大写字母
c = Mid(s, i, 1)
If  ①_____ Then
s = Mid(s, 1, i - 1) + Chr(Asc(c) - 32) + Mid(s, i + 1, Len(s) - i)
End If
Next i
For  i = 1 To 4   '两个字节分别减去 A0H
c = Mid(s, i, 1)
If i Mod 2 = 1 Then
s1 = s1 & CStr((Asc(c) - Asc("A")))    'CStr( )：将括号内表达式的值转换为字符串型
Else
②_____
End If
Next i
For i = 1 To 2    '将十六进制转换成十进制
q = q * 16 + Val(Mid(s1, i, 1))
③_____
Next i
Text2.Text = "区号：" + Str(q) + "   位号：" + Str(w)
End Sub
（1）请在划线处填入合适的代码。
（2）如果输入的内码为 D1A7，则 Text2 中输出的内容是：_______________