小李与小王合作编写一个成绩统计的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

如图所示的VB程序中，输入以下程序代码，运行后单击命令按钮Command1，出现错误的提示图是：（）

Private Sub Command1_Click()
Dim a(1 To 4) As Integer
Dim i As Integer
a(1) = 1
For i =" 2" To 4
a(i) =" 2" * a(i - 1) + 1
Next i
List1.AddItem Str(a(i))
End Sub

A．

B．

C．

D．

若x表示能被5整除的正整数，则下面逻辑表达式的值一定为真的是：（）

A．Int(x / 5) = 0	B．5 Mod x = 0
C．x Mod 5 = 0	D．x\5 = 0

下列VB程序运行时，单击命令按钮Command1后，文本框Text1中显示的内容是____________________。（2分）
Private Sub Command1_Click()
Dim i As Integer, c As Integer, n As Integer
c =" 0:" n = 10
For i =" 1" To 10 Step 2
If n Mod i =" 0" Then
c =" c" * i
Else
c =" c" + i
End If
Next i
Text1.Text = Str(c)
End Sub

让TEXT1中的内容加粗,斜体,加下划线,加删除线,字体用”黑体”,字号20在窗体单击事件过程中完成.
PRIVATE  SUB  ________CLICK(   )
TEXT1.FONTBOLD= _________________ 
________
________
________
________
________ 
END   SUB

清空文本框TEXT1,TEXT2,LABEL1中的内容
PRIVATE  SUB  FORMCLICK（ ）
________[3]
________[4]
________[5]
END   SUB

INPUTBOX(“请输入”，“学生成绩”，80)函数弹出的对话框中，其标题是（ ）

A．请输入

B．学生成绩

C．100

D．无

全国两会中有代表又提到了个人税金问题。代表提议将个税作以如下的调整：月收入在2万及以上的收10%，月收入在1万（含）至2万的收5%，月收入在5千（含）至1万的收2%，月收入少于5千的免收。
小明用VB设计了计算个税的程序，程序运行时界面如图1所示，在文本框Text1中输入月收入后，点击“开始计算”按钮后，在文本框Text2中显示该产品应征收的税金。

（1）为应用程序界面添加“开始计算”按钮，应使用图2中的____________（填写相应编号），并将图3所示中的“属性窗口”中，将________属性设置成“开始计算”。

（2）根据题意，将下列程序空格处补充完整。
Private Sub Command1_Click()
Dim x As Single, p As Single
x ＝ Val(Text1.Text)
If x >＝ 20000 Then
p ＝ 0.1 * x
Else If x >＝ 10000 Then
p ＝ 0.05 * x
Else If x >＝ 5000 Then
p ＝ 0.02 * x
Else
P ＝ 0
End If
___________＝ Str(p)
End Sub

已知x=17，y= "-315"，则VB表达式x+Len(y)的值为（ ）

A．－298

B．17

C．21

D．"17－315"

执行如下Visual Basic程序段时，出现了如下图所示的错误：

Private Sub Command1_Click()
Dim a As Integer, b As Integer
a =" 5:" b = 8
b =" a" + b
label1.Caption = Str(b)
End Sub
引发此错误的语句可能为（ ）

A．Dim a As Integer, b As Integer	B．a =" 5:" b = 8
C．b =" a" + b	D．label1.Caption = Str(b)