小杨同学编写了一个VB程序用于学校里7选3选课情况统计。该程序主要功能有：1．点击“生成选课组合”按钮 Commandl，生成35种选课组合；2．点击“统计选课情况”按钮 Command2，统计出各种组合的选课人数；运行界面如下图。实现上述功能的VB程序如下，请回答下列问题：

（1）分析程序代码，如图里“选课组合”序号为30的组合名称为：___________________。
（2）请在划线处填入合适的代码。请回答下列问题：
Dim zh(1 To 16) As String, zrs As Integer
Dim xk(1 To1000) As String'存放同学的选课科目组合，已知学生人数少于1000人
Dim zh2(1 To 35) As String'存放35种选课科目组合
Dim rstj(1 To 35) As Integer'存放各种选课组合选课人数
Private Sub Form_ Load()
‘本过程从数据库中读取学生的选课情况数据，存放在数组xk中，学生的总人数存放在变量zrs。’代码略
End Sub
Private Sub Command l_ Click( )
Dim i As Integer,j As Integer, m As Integer, n As Integer, k As Integer
Dim km(1 To 7)As String
Listl.Clear
List1. AddIton“序号”+“” +“组合名称”
km(1)= “物”:km(2)= “化”:km(3)= “生”km(4)= “政”
km(5)= “史”km(6)= “地”:km(7)= “技”
m= 1
For i= 1 To 5
For k= i+1 To 6

zh(m)=km(i)+ km(k)

m= m+ 1

Next k
Next i
j= 3:n= 1:y= j
For i= 1 To m

For k= y To 7

zh2(n)=___________________________________
If n< = 9 Then
Listl. AddItem n &""&" "& zh2(n)
Else
Listl. AddItem n &"  "& zh2(n)
End If
n= n+ 1

Next k

y= y+ 1

If y=8 Then

j= ___________________________  :y= j

    End If
Next i
End sub
Private Sub Command2_ Click( )
Dim i As Integer

List2. Clear

List2. Additon"组合名称"+""+"选课人数”

For i= 1 To 35

rstj(i)=_____________________________

List2 AddItem zh2(i)+" "+ Str (rstj (i))
Next i
End Sub
Function tj (zhmc As String) As Integer'统计某种选课组合的选课人数
Dim i As Integer, rs As Integer
rs= 0
For i= I To zrs

If zhmc = xk(i) Then

rs= rs+ 1

End If

Next i
tj= rs
End Function

输入两个在 1 和 9 之间的正整数 a 和 n ，求 a+aa+aaa+aaaa+…+a…a（n 个 a）之和｡为解决该问题，小明设计了一个 VB程序，在文本框 Text1 中输入 a 的值，在文本框 Text2 中输入 n的值，单击“计算”按钮 Command1，在列表框 List1 中输出每次相加的等式和结果，界面如图所示｡

（1）要使程序运行时，文本框 Text1 的文字大小 FontSize 属性值设置为 12，可在 Form_Load 事件过程中添加语句__________________（单选，填字母：

A．FontSize = 12 /

B．Text1. FontSize =12 /

C．FontSize. Text1=12）｡

（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码｡
Private Sub Command1_Click()
Dim a As Long, n As Integer, s As Long
Dim s1 As String, t As Long
a =Val(Text1. Text)
n =Val(Text2. Text)
If a < 1 Or a > 9 Then
List1. AddItem "输入 a 的值无效"
ElseIf n < 1 Or n > 9 Then
List1. AddItem "输入 n 的值无效"
Else
s = a: t = a
s1 =Str(t)
List1. AddItem s1 +"=" + Str(s)
i =  ①__________ 
Do While i <= n
②__________ 
s = s + t
s1 = s1 + "+" +Str(t)
List1. AddItem s1 + "=" + Str(s)
③__________
Loop
End If
End Sub

小李编写一个统计学生选考科目的 VB 程序，算法的基本思想是：检查每位学生选课组合的编码是否有效，对有效选择结果进行科目统计，根据各科占有效人数的百分率求出各科排名｡程序运行时，单击“显示”按钮 Command1，学生选课数据显示在列表框 List1 中，各科编号及对应科目名称显示在列表框 List2 中，单击“统计”按钮 Command2，选课结果按各科百分率由高到低显示在列表框 List3 中，程序运行结果如图所示｡

现上述功能的 VB 程序如下，请回答下列问题：
（1）学生选课的编码数据存储在数据表中，其字段名为__________________｡
（2）请在划线处填入合适的代码｡
Dim ach(1 To 500) As String  '存储各学生选课编码
Dim bno(1 To 10) As Integer '存储各科目编号
Dim bname(1 To 10) As String '存储各科目名称
Dim bnum(1 To 10) As Integer  '存储各科目被选次数
Dim bmc(1 To 10) As Integer '存储各科目被选的名次
Dim n As Integer, num As Integer
Private Sub Command1_Click()
Dim i As Integer, km As String
km = "物理化学生物政治历史地理技术"
Dim cn As New ADODB. Connection, rs As New
ADODB. Recordset, sql As String
cn. Open "provider=Microsoft. Jet. oledb. 4. 0;Data Source =" + App. Path + " \students. mdb"
rs. Open "select ∗ from choose", cn
Do While Not rs. EOF
n = n + 1 : ach(n) = rs. Fields("subject") : rs. MoveNext
Loop
rs. Close: cn. Close
Set rs = Nothing
Set cn = Nothing
For i = 1 To 7
bno(i) = i: bname(i) = Mid(km, (i - 1) ∗2 + 1, 2)
List2. AddItem Str (bno (i)) + " - - -" +bname(i)
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer, j As Integer, k As Integer
Dim c As String, per As Integer
For i = 1 To n
If check(ach(i)) =True Then
For j = 1 To 3
c = Mid(ach(i), j, 1)
bnum(Val(c)) = ①_________
Next j
num = num + 1
End If
Next i
i = 1
Do While i <= 7  '该循环得到各学科被选人数的名次
bmc(i) = 1
For j = 1 To 7
If bnum(j) > bnum(i) Then ②__________
Next j
i = i + 1
Loop
For i = 1 To 7
For j = 1 To 7
If ③_________Then
per = Int(bnum(j) ∗ 100 / num ∗ 100)/ 100
List3. AddItem Str(bno(j)) + "---" +bname(j) + "---" + Str(per) + "%"
End If
Next j
Next i
End Sub
Function check(s As String) As Boolean
'代码略，若学生选科代码有效，函数返回 True，否则返回 False
End Function

小王基于选择排序算法编写了一个VB程序，功能如下：在文本框 Text1中显示排序前的数据，单击“排序”按钮Command1，在文本框Text2中显示剔除重复数据后的升序排序结果。程序运行界面如图所示。

请回答下列问题
（1）要使程序运行后，命令按钮 Command1的 Caption属性值自动变为“排序”，可在_____（单选，填字母：

A．Text1 Cick()/

B．Fom_Load()/

C．Command1_Cick()）事件过程中添加语句：Command1 Caption=“排序”。

（2）实现上述功能的VB程序如下，请在划线处填入合适的代码。
Const n = 10
Dim a(1 To n) As Integer
Private Sub Form Load ()
‘数组初始化,生成1~20之间的随机整数并赋值给数组a
Randomize '随机数初始化
For i=1 To n
a(i) =①_______ 
Next i
End Sub
Private Sub Command1 _Click()
Dim 1 As Integer, j As Integer, t As Integer
Dim bottom As Integer
bottom = n
For i=1 To bottom -1
For j = bottom To i + 1 Step -1
If ②_______ Then
t = a(j):a(j) = a(i):a(i) = t
ElseIf a(j) = a(i) Then
③_______
bottom = bottom -1
End if
Next j
Next i
Text2. text = ""
For i=1 to bottom
Text2. Text = Text2. Text + str(a(i))
Next i
End sub

Visual Basic规定窗体文件的扩展名是（ ）。

A．.for

B．.frm

C．.vbp

D．.bas

运行程序时，Text1. text=“”语句会被自动执行，可以将该语句嵌入的过程是（   ）

A．Command1_click

B．Form_load

C．Text1_click

D．Timer1_timer

纪念品分组问题。某教师节晚会的纪念品分组规则如下：按纪念品价值进行分组，每组总价值不超过限定值w且最多包含两件，要求分组数最少。编写VB程序解决该问题，程序运行时，在文本框Text1中依次输入每件纪念品的价格(不超过w)，以逗号分隔，在文本框Text2中输入限定位w，单击“分组”按钮，在标签Labe12上输出最少的分组数。程序运行界面如图所示。

(1)要使程序启动后，窗体的标题栏显示“纪念品分组”文字，可在Form_Load事件过程中添加语句__________(单选，填字母：

A．Forml="纪念品分组"/

B．Forml.Name="纪念品分组"/

C．Forml.Caption="纪念品分组"/

D．Forml.Text="纪念品分组")。

(2)实现上述功能的VB程序如下，请在划线处填入合适的代码；并且加框处代码有错，请改正。
①___________________________________
②__________________________________
③__________________________________


(3)若在文本框Text1中输A“50，30，100，70，80，40，50，20，"，文本框Tcxt2中输“110”，单击“分组”按钮，标签Labe12中显示的内容是______________

下列说法不正确的是( )

A．我们学过的注释语句有REM和’

B．注释语句有无并不影响程序的运行结果

C．可以对整个程序进行注释,也可以对某条语句注释

D．REM和’的用法完全相同.

如图所示的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．

执行如下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)