小明最近学习了一种新的排序方法，其基本思想是：经过i-1遍加工后，a(1)到a(i-1)已经有序，第i遍加工时将a(i)插入到位置1到位置i之间的适当位置p（包含位置1和位置i），原来位置p及p后的元素一一向右移动一个位置（若插入在位置i，则不需要移动其他元素），使得a(1)到a(i)依然有序，依此重复下去，直到n个数全部排序完成，VB程序段如下：
For i=2 To n
k=a(i):j=j-1
Do While k<a(i)
a(j+1)=a(j)
j=j-1
If j=0 Then Exit Do
Loop

Next i
要实现上述排序算法，方框内VB语句应为（   ）

A．a(j)=k

B．a(j+1)=k

C．a(i)=k

D．a(j-1)=k

有如下VB程序段：
a=1:b=1:n=12
f(1)=a:f(2)=b
For i=3 To n

c=a+b

f(i)=c Mod 4

a=b

b=c

Next i
执行该段程序后,数组元素f(12)的值为（   ）

A．0

B．1

C．2

D．3

阅读程序代码并填空。
Rem VB代码：
Dim a As Integer
Dim b As Integer
Dim c As Integer
a =3 
b =5
Print "a=";a,"b=";b
c=a
a=b
b=c
Print "a=";a,"b=";b
（1）程序中起注释作用的标识符是____________。
（2）变量a、b、c 的数据类型都是___________（填写中、英文均可）。
（3）执行程序后，b的输出结果是________________。

如图所示是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中显示的内容为_______________。