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

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

某算法的部分流程图如图所示，退出循环后输出的s利a值分别是：（  ）

A．5，15

B．105，7

C．51，5

D．15，7

某Visual Besic 程序如下：
Private Sub Command1_Click()
Dim a(1 To 10)As Integer
Dim i As Integer
For i= 1 To 10

a(i)=i*i

Next i
List1.Additem Str(a(i))
End Sub
运行程序，单击命令按钮Command1后，出现的错误提示为：（  ）

A．下标越界	B．子程序或函数未定义
C．溢出	D．类型不匹配

在VB中，下列与表达式Len (“-20”) +20的值相等的是：（  ）

A．Str(20)“+3”

B．Sqr(25)+20

C．Val(“-20”)+20

D．Abs(-3)+20

在VB中，可用来实现选择结构的语句是（  ）

A．If…Then

B．For… Next

C．End

D．Print

在VB中，着x=3， y=8，则下列表达式的运算结果等于6的是（  ）

A．y/3

B．y-x

C．x+4

D．2*x

在文本框Text1中输入十进制数，将其转换为二进制数后在标签Labell上输出。VB程序段如下：
Dim x As Integer，s As String，t As Integer
x=Val(Text1.Text)
Do While x>0

Loop
Labell.Caption= s
方框中的代码由以下三部分组成：
①x=x\2
②s=Str(t)+s
③t=x Mod 2
代码顺序正确的选项是( )

A．②①③

B．①③②

C．③②①

D．①②③

有如下VB程序段：
s=“Good Luck 2019!”
n=0：m=0：k=0
For i=1 To Len(s)

ch=Mid(s，i，1)

If ch >=”0”And ch<=”9” Then

m=m+1

Else If ch>="a” And ch<=”z” Then

n=n+1

Else

k=k+1

End If

Next i
执行该程序段后，变量k的值为( )

A．2

B．3

C．4

D．5

   某种字符加密方法描述如下：
①输入明文、密钥。
②在明文中从左往右每次取连续的8个字符。
③将8个字符围成一圈，从第1个字符开始1，2，3，……数数，数到密钥值时取出该位字符；再由下一个字符开始1，2，3，……数数，数到密钥值时取出该位字符，重复此过程，直至这8个字符被取完。
④依次把取出的8个字符拼接成新的字符串。
⑤重复②-④步骤，直至所有明文字符处理完毕。
编写一个VB程序，实现功能如下：程序运行时从文本框Textl中读入一串明文(长度为8的倍数)，从文本框Text2中读入密钥y，单击“加密”按钮Commandl，对明文按上述方法转换后在文本框Text3中显示。程序运行界面如图所示。

(1)运行上述程序，若在文本框Textl中输入“Let's go”，Text2中输入“3”，单击“加密”按钮，则文本框Text3中显示的内容是__________________________。
(2)实现上述功能的VB程序如下，请在划线处填入合适代码。
Const n=1000
Private Sub Commandl_Click()
Dim f (1 To n) As Integer，cq (1 To n) As Integer
Dim a (1 To n) As String，s As String，res As String
Dim y As Integer，p As Integer，begin As Integer
s=Textl.Text：y=Val(Text2.Text)
For i=1 To 8

f(i)=1

Next i
'计算出列顺序
p=0
For i=1 To 8

j=1

Do While j<=y

p=p Mod 8+1
j=___________

Loop

f(p)=0：cq(i)=p

Next i
For i=1 To Len(s)

a(i)=Mid (s，i，1)

Next i
i=1：begin=-8：res=""
Do While i<=Len(s)

If i Mod 8=1 Then___________

res=res+___________

i=i+1

Loop
Text3.Text=res
End Sub

某流程图如图所示：

若输入n的值为18，最终s、i的值分别为：

A．36  18

B．18  1

C．36  15

D．18  15