如图所示是VB窗体中某个对象的属性窗口,下列说法中正确的是(　　)

A．True是该对象的属性名	B．该对象名为Text1
C．该对象属于标签类	D．BackColor是该对象的属性值

一个VB工程的部分设计界面如图所示。下列说法不正确的是(　　)

①工程文件名是“工程1.vbp” ②该工程只有1个窗体
③窗体文件名是“Form.frm” ④窗体名称是“寻找水仙花数”

A．①②

B．②③

C．①③

D．③④

在Visual Basic工程设计中，要在文本框Text1中显示“你好”，则下列操作正确的是（   ）

A．在Text属性名中输入“你好”	B．在Caption属性名中输入“你好”
C．在Font属性名中输入“你好”	D．在Name属性名中输入“你好”

某对象的一个事件过程代码如下： 下列说法正确的是(　　)
Private Sub Obj_Click()
　　s=s+1
　　Text.Text=Str(s)
End Sub

A．该过程的过程名为“Obj”	B．该事件是一个“单击”事件
C．该对象的对象名为“Obj_Click”	D．该对象的类名为“Sub”

Visual Basic程序设计语言属于（  ）。

A．汇编语言

B．自然语言

C．高级语言

D．机器语言

编写VB程序，实现在1到40中随机抽取n个不重复的数字。在文本框Text1中输入需要抽取的个数n，单击“抽取”按钮 Command1，在列表List1中输出结果，程序设计界面如图a所示。请回答下列问题：

图 a

（1）在设计程序界面时，应使用图 b 所示“控件工具箱”中的_____ (填写相应编号)添加列表框。

图 b

（2）实现上述功能的VB程序如下，请在划线处填写合适的代码。
Private Sub Command1_Click()
Dim a(1 To 40) As Integer Dim i As Integer List1.Clear
n = Val(Text1.Text) Randomize
For i = 1 To n
    ①_____   ’随机生成[1，40]之间的正整数

For j = 1 To i - 1

If a(j) = a(i) Then

Exit For
End If
Next j
Next i
For i = 1 To n
List1.AddItem Str(a(i)) Next i
End Sub
（3）加框处代码有误，请改正_____。
（4）运行程序，在文本框 Text1 中输入 41，单击“抽取”按钮，程序错误提示为_____。（填写字母：

A．溢出/

B．下标越界/

C．缺少对象）

小明利用VB编写了一个“质因数分解”的程序，程序的功能如下：在文本框Textl中输入一个大于1的正整数，单击“转化”按扭Command 1后，则在标签Label 2中显示该整数质因数分解公式。若输入的数为素数时，则直接输出该数；若输入的数小于等于1或为小数时，则显示出错信息。程序运行时界面如图所示：

实现该程序的代码如下：
Private Sub Command1_Click( )
Dim n As Double，m As Long，s As String
n = Val (Text1.Text)
IfThen
m=2
s=“”
Do While n > 1
If n Mod m = 0 Then
_________①__________
If s=“”Then
s=Str(m)
Else
s=s+“X” + Str(m)
_________②__________
Else
m=m+1
End If
Loop
Label 2.Caption = Text1.Text+“=”+s
Else
Text1.Text=“”
Label2.Caption“=你输入的数不在转化范围内，请重新输入!”
End If
End Sub
(1)在程序界面设计时，应使用控件工具箱中的___________(单选题填字母

A．

B．

C．

D．)控件添加命令按钮Comand1，并将该对象的____________属性设置为“转化”。

(2)加框处的代码有误，应改为_____________________。
(3)划线①处应填入代码___________________________。
(4)划线②处应填入代码___________________________。
(5)若在文本框中输入的内容为53，则标签Label2中显示的内容为_______________。

在通过VB设计“BMI指数”的程序中，王明将变量BZ赋值给Text2.text输出，相应的代码是_____________ 。

下列程序，当单击窗体时s的值是（ ）。
Private Sub Form_Click()
s = 11 \ 3 + 11 Mod 3
Print s
End Sub

A．3

B．4

C．5

D．6

下列VB程序段用于读取某数据库中的数据，相应数据表结构如图所示。

Dim adoConn As New ADODB. Connection
Dim adoRs as New ADODB. Recordset
Dim a(l to 1000) As String， b(l to 1000) As Integer
adoConn. Connection String ="Provider ="Microsoft
ACE. OLEDB 12.0；
DATA Source="&App. Path&"\mydata. Accdb"
adoConn. Open
Set adoRs. ActiveConnection=adoConn
adoRs. Open" Select* From Score"
n=0
Do While Not adoRs. EOF

n=n+1

a(n)= adoRs, Fields("学号"). Value

b(n)=adoRs Fields(3). Value

adoRs. MoveNext

Loop
adoRs. Close:adoConn.Close
下列对于该程序段的理解正确的有（   ）
①程序连接的数据库文件名是" mydata.echb"
②程序打开的数据表名称是" Score"
③程序将数据表中的数学成绩存入数组b
④程序运行后，变量n的值表示该数据表中记录的总数
⑤关闭数据表的语句为 adoConn. Close

A．①②④

B．②③④

C．②④⑤

D．②③④⑤