小宇为选定班级参赛作品编写了一个VB程序，设计如下：在文本框Text1内输入5位评委对3个作品的评分数据（评委对作品的评分数据由3位十进制数组成，第1位对应作品编号，第2、3位对应作品得分，分值范围为[60,99]。如“275”表示2号作品得分75）。单击“计分”按钮后，在标签Label1中输出3个作品的平均分，在标签Label2中输出参赛的作品（选择最高平均分作品参赛，若最高平均分存在并列，则从并列作品中随机柚取）。程序运行界面如图所示。

（1）“计分”按钮的对象名为_________。
（2）程序部分代码如下，请在划线处填入合适代码。
Private Suh jf_Click( )
Dim s As String，d As String，i As Integer
Dim f1 As Single，f2 As Single，f3 As Single
s = Text1. Text
i = 1
Do While ___________ 
d = Mid(s,i,3)
If  Mid(d,1,1) = "1”  Then
f1 = f1 + Val(Mid(d,2, 2))
ElseIf  Mid(d, 1, 1) = “2”  Then
f2 = f2 + Val(Mid(d,2, 2))
Else
f3 = f3 + Val(Mid(d,2, 2))
End If
________________
Loop
Label1.Caption="作品1平均分为:" + Str(f1 / 5)+ “作品2平均分为:” + Str(f2 / 5)+ “作品3平均分为:” + Str(f3 / 5)
'以下省略“处理并列最高平均分，并在Labd2中输出选取的参赛作品”的代码
End Sub
（3）运行该程序时，在文本框Text1中以不同的顺序输入原评分数据：
380/295/283/170/180/385/372/285/190/180/390/384/272/170/276,单击“计分”按钮，则Label1中显示的结果__________(选填:会/不会）发生改变。

小李与小王合作编写一个成绩统计的VB程序：小王编写一个过程，该过程从数据库读取某一指定科目的相关数据，存储在数组a中；小李编写一个过程，该过程依据数组a中的相关数据统计各班平均分。小李与小王约定的数组a各元素含义如图所示。

程序功能如下：在文本框text1中输入科目名称，单击“读取数据库”按钮command1，程序从数据库读取数据；单击“开始统计”按钮command2，程序进行统计处理，结果输出在列表框list1中。程序运行界面如下图所示。

数组元素	数组元素的含义
a(1)	存储班级数n
a(2)	从a(2)到a(n+1) 依次存储第1、2、…第n个班级人数
…
a(n+1)
a(n+2)	从a(n+2) 依次存储第1班每个学生的单科成绩、第2班每个学生的单科成绩、…第n班每个学生的单科成绩
…
…

 

实现上述功能的VB程序如下，请回答下列问题：
（1）根据程序运行界面中的数据及数组a各元素的含义，数组元素a(5)的值为________（填写数值）。
（2）分析程序，可知数据库的文件名为___________________
（3）请在划线处填入合适的代码。
Dim a(1 to 600) as integer    ‘数组大小满足处理要求
Private  sub  command1_click()
‘本过程由小王完成，从数据库读取指定科目的各相关数据，存储在数组a中

Dim conn As New ADODB.Conncction

Dim rs As New ADODB.Recordset

Conn ConncctionString=”provider=Microsoft.AC

A．OLEDB.12.0;data source=”+”Score.accdb” Conn.Open Set rs.ActiveConnection=conn ‘本过程的其他语句略 End sub

Private  sub  command2_click()
‘依据数组a中的相关数据统计各班级平均分

Dim i As Integer, j As Integer, n As Integer

Dim p As Integer, sum As Integer, aver As Single

______________________

p = n + 2

For i = 1 To n

sum = 0

For j = 1 To a(i + 1)

  ____________________
p = p + 1

Next j

aver = sum / a(i + 1)

list1.additemstr(i)+"   "+str(a(i+1))+"   "+str(aver)

Next i

End sub

某餐厅在团购网站上推出了98元享原价198元的套餐团购活动，但规定每天接受团购券数量是有限制的，表示此餐厅是否接受团购券的算法如下：
①number＝0  ′团购券数量用变量number表示。
②Do While number<=29
③读入用餐顾客的情况
④If 使用团购券顾客 then
变量number增加1
允许使用团购券进行消费
End If
⑤Loop
对于上述算法，下列说法错误的是(  )

A．每天允许使用团购券数量最多是30

B．代码“变量number增加1”和“允许使用团购券进行消费”互换位置是可行的

C．此算法的循环结构可以用For语句来实现

D．此算法是用自然语言来描述的

在Visual Basic中，下列循环程序段输出“*”的个数最小的是（  ）

A．	B．
C．	D．

有如下VB程序段：
For i="1" to 21 Step 2
s=s+i
Next i
该程序段运行后，共执行的循环次数是（ ）

A．21

B．10

C．9

D．11

以下算法是用循环结构求数列1,3,5,7,9…前10项的和。完成空缺部分。（每行只能填写一个VB语句）
dim i as integer
dim a as integer
dim sum as integer
[1]    
i=1
do while i<=10
[2]
sum=sum+a
i=i+1
loop
print sum

某算法的流程图如下所示：

（1）该流程图的结构为 （顺序结构/选择结构/循环结构）；
其中的流程符号是 （开始结构框/输入输出框/判断框/处理框）
（2）当输入a和b的值分别为3、6时，该算法的输出结果为  

某算法流程图如图所示，执行该算法后，“s←s+i”共被执行的次数是（    ）

A．0

B．6

C．7

D．8

某算法的流程图如下所示：

当输入a、b、c的值分别为5、2、8时，该算法的输出结果为（ ）

A．8

B．2

C．5

D．7

对Fori= 5To-5Step-2语句，共循环__________次。