使用枚举法解决问题，在列举问题的可能解的过程中（    ）

A．可以遗漏，但不应重复

B．不能遗漏，也不应重复。

C．可以重复，但不应遗漏。

D．可以遗漏，也可以重复。

下列语句用于计算“s=1+4+7+10+…+25”的值。
①For i="1" To 25 Step 3   ②Next i    ③s=0    ④s=s+i
正确的语句顺序是（ ）

A．①②③④	B．①③④②
C．③①④②	D．④③①②

小杨同学编写了一个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

编写VB程序，实现如下功能：单击启动按钮Start1，在列表框List1内每隔2秒输出一个由10个大小写字母组合成的字符串，运行界面如图所示：

（注：字母“A”的ASCII码值为65，字母“a” 的ASCII码值为97）
（1）按观察程序代码，可知“启动”按钮的对象名为_________ 。（单选，填字母

A．Timer1 /

B．Start /

C．Command1 /

D．Start_1  /

E．启动）

（2）实现上述功能的 VB 程序如下，请在划线处填入合适代码。
Private Sub Start_1_Click()
Timer1.Enabled = ①
End Sub
Private Sub Timer1_Timer()
Dim s As String, c As String
Dim i As Integer, e As Integer, h As Integer
Randomize
s = ""
flag = True
For i = 1 To 10
e = Int(Rnd * 52 + 1)
If e <= 26 Then
h = e + 64
Else
②
End If
③
s = s + c
Next i
List1.AddItem s
End Sub
划线处的代码为：
①_______________________________
②________________________________
③________________________________

如图 1 所示，这是一个城市街道简图，小明从 A 点出发，到达 B 点，如果在每一个路口只能向右或向上走（0 表示向上走，1 表示向右走），问小明有多少条行走路线，并请输出每条路线。程序界面如图 2 所示

算法分析：从 A 点到 B 点共有 7 个路口，即可以有一个 7 位二进制数表示所走路线。观察以上路线，枚举所有满足路线特征的 7 位二进制数，再去掉不满足的二进制数即可。
（1）图 1 所示路线对应的十进制数为_____。
（2）实现上述功能的 VB 程序如下，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim b As String, t As Integer, i As Integer, c As Integer, d As Integer
t = 0 '可走路线计数
For i = 15 To 120  '所有可走路线用十进制枚举
d = i
c = 0
b = ""
Do While d <> 0
If d Mod 2 = 1 Then
b = "1" + b
c = c + 1
If c > 4 Then Exit Do '若"1"的总数超过 4 个表示路线错误，需退出 Do 循环 Else
①_____________ End If
②____________ Loop
If c = 4 And Len(b) = 7 Then
t = t + 1
List1.AddItem b
End If
Next i
Label1.Caption = Str(t) + " 条"
End Sub