Visual Basic规定工程文件的扩展名是 (    )

A．vbw

B．frm

C．vbp

D．bas

下列VB程序运行时，单击Command1后，标签Label1中显示的内容是_______
Private Sub Command1_Click()
Dim s As Integer, j As Integer
s = 0
For j =" 1" To 10
If j Mod 2 <> 0 Then
s =" s" + j
End If
Next j
Label1.Caption = Str(s)
End Sub

有如下程序段：
i = 1: j = 8: count = 0:
f = False
Key = Val(Text1.Text)
Do While i <= j
m = (i + j) \ 2

If a(m) = Key Then

count = count + 1
f = True
End If
If a(m) < Key Then
i = m + 1
Else
j = m - 1
End If Loop
数组元素 a(1)到 a(8)分别为 1,2,3,4,5,6,6,7，在 Text1 输入6,执行该程序段后，下 面 说法正确的是

A．f 的值为 False

B．j 的值为 5

C．count 的值为 2

D．m 的值为 6

（加试题）对 n 个互不相同的整数（整数的最大值不超过 m）进行排序，排序要求如下：①奇 数在前，偶数在后；②奇数升序排序；③偶数降序排序。小刘用 VB 编写了实现上述功能的程序。 程序运行时，自动产生 n 个不同的随机数存储在数组 a 中，并在列表框 List1 中显示。单击按钮 Command1 后，按要求在列表框 List2 中输出排序后的结果。

实现上述功能的 VB 程序如下，但加框处代码有错，请改正。
Const n = 15
Const m = 100   '整数的最大值
Dim a(1 To n) As Integer
Private Sub Form_Load
'本过程产生 n 个不同随机数存储在数组 a 中，并在列表框 List1 中显示
End Sub
Private Sub Command1_Click Dim i As Integer
Dim flag(1 To m) As Boolean   'flag(i) = True 代表数组 a 中存在值为 i 的元素
For i = 1 To m flag(i) = False
Next i
For i = 1 To n
flag(i) = True 
①________
Next i
For i = 1 To m-1 Step 2
If flag(i) Then List2.AddItem Str(i) Next i
For i =2 To m
②________
If flag(i) Then List2.AddItem Str(i) Next i
End Sub

小丁想买几张6+1彩票，选号时，他希望前4位用自己的生日：11月8日，即1108，特别号码他选了买彩票日子的个位数5，并且他希望前六个数字组成的数能被他的幸运数字9整除。他的好朋友小杰帮他设计了一个VB程序，可以提供一份符合这些要求的号码清单供他挑选。相应的界面如图-1所示。阅读程序并完成后面的问题。

（1）设计应用程序界面时，为添加a所指向的对象，应使用-2图所示的“控件工具箱”中的______（填写相应编号）；在-3图所示的“属性窗口”中，将______属性值设置为“开始”，可使图-2中b所指向的对象显示“开始”。

（2）请根据题意将下列程序补充完整。
Private Sub Command1_Click()
Dim i, j, c As Integer
Dim n As Long
c = 0
For i =" 0" To 99
n =" 110800" + i
If     ①     Then
List1.AddItem Str(n) + " " + "5"
c =" c" + 1
End If
Next i
Label2.Caption = "满足条件的数有：" + Str(c) + "组"
End Sub