在VB集成开发环境中，要进入运行模式，可以执行“运行”菜单中的“启动”命令，也可以单击工具栏上的

A．

B．

C．

D．

有一个报数游戏， n个人排成一圈，游戏开始时规定一个报数号m，然后从其中一个人开始按顺时针报数1，2，3……n，当某人报到的数为m的倍数时，即被淘汰，其他人继续游戏，直到最后。现用VB设计了一个程序，程序界面如下图所示。在文本框Text1中输入参加游戏的人数n，在文本框Text2中输入报数号m，单击“报数”按钮，即在列表框List1中显示每次被淘汰的人的顺序号。

实现上述功能的VB代码如下，但加框处有错，请改正。
Private Sub Command1_Click()
Dim n As Integer, m As Integer
Dim a(1 To 50)  As Integer
n = Val(Text1．Text)
m = Val(Text2．Text)
For i =" 1" To n
'（1）
Next i
s =" 0:j" = 0
Do While s < n
t = 0
Do While t < m
    '（2）   
t =" t" + a(j)
Loop
a(j) = 0
s =" s" + 1
List1．AddItem "第" + Str(s) + "次：" + Str(j)
Loop
End Sub

（加试题）下列有关排序和查找算法的说法正确的是（ ）

A．对N个数组元素进行排序，冒泡排序比选择排序的交换次数少

B．对N个数组元素进行排序，冒泡排序比选择排序的比较次数多

C．能用对分查找完成的任务，就一定可以使用顺序查找

D．只要待查找的数据是有序的，使用对分查找比顺序查找的效率高

编写VB程序，实现如下功能：在文本框Text1中输入十进制数，单击“转换”按钮Command1，在列表框List1中输出对应的十六进制数，运行界面如图a所示，程序代码如下。
 
图a     图b
（1）在设计程序界面时，应使用图b所示的“控件工具箱”中的 ________（填写相应编号）添加列表框。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Const code = "0123456789ABCDEF"
Dim s1 As String, s As String, t As String
Dim a As Integer
Dim f As Boolean
Dim x As Long
t = Text1．Text
a = Len(t)
__________
For i = 1 To a
c = Mid(t, i, 1)
If c < "0" Or c > "9" Then f = False
Next i
If f Then
x = Val(t)
s = ""
Do While x > 0
y = x Mod 16
x = x \ 16
s1 = Mid(code, y + 1, 1)
_________
Loop
List1．AddItem "(" & Text1．Text & ")10" & "-->(" & s & ")16"
Else
List1．AddItem "(" & Text1．Text & ")10" & "-->不是十进制数"
End If
End Sub
（3）若在文本框Text1中输入“63”，则单击“转换”按钮后s的值为：________。

小刘在玩一个数字游戏，给定一个n位正整数（n<=20），根据设定的保留位数，舍去一部分数字，剩下的数字按原次序组成一个最大的新数。例如原数34625803，保留4位，最大数为6803。算法是：先确定最高位的数字，在第1位至最后3位数字前的34625中找到最大的数6，从而确定最高位是6，再确定次高位的数字，从6后面的数开始到最后2位数字前的258中找到最大数8，确定次高位是8，依次找下去得到最大新数。他设计了一个VB程序来进行验证，在文本框Text1中输入一个n位正整数，在文本框Text2中输入保留的位数，点击“确定”按钮，在文本框Text3中输出保留的最大新数。程序运行界面如图所示。

（1）如果输入的原数是3635132，保留4位数字，则输出的新数是  。
（2）实现上述功能的VB代码如下，请在划线处填入合适代码。
Private Sub Command1_Click()
Dim a(1 To 20) As String
Dim ys As String, xs As String 'xs记录最大的新数
Dim k As Integer, h As Integer, n As Integer
Dim i As Integer, j As Integer
Dim F As Boolean
xs = ""
ys = Text1．Text
n = Len(ys)
k = Val(Text2．Text)
F = True
If ys = "" Or n > 20 Or k =" 0" Or k > n Then
Label4．Caption = "输入的原数或保留位数不符，请重输！"
F = False
End If
For i =" 1" To n
①    
If a(i) < "0" Or a(i) > "9" Then
Label4．Caption = "输入的原数不是数字，请重输！"
Text1．Text = ""
F = False
End If
Next i
If F =" True" Then
h = 1
For i =" 1" To k
For j =" h" To     ②   
If a(j) > a(h) Then h = j
Next j
xs =" xs" + a(h)
h =" h" + 1
Next i
Text3．Text = xs
End If
End Sub

下列Visual Basic表达式的值等于56的是

A．Mid("1234567",5,3)

B．Len("55") + 1

C．Sqr(56)

D．Abs(-55) + 1

某算法部分流程图如图所示，执行该部分流程图后，变量 s和变量 i的值分别为

A．9 和 5

B．9 和 7

C．16 和 5

D．16 和 7

在Visual Basic中，语句TName.Caption = "2012伦敦"中的TName是

A．对象名

B．属性名

C．属性值

D．事件名

某算法的部分流程图如图所示，执行完这部分流程后，变量x,y的值分别是

A．4，20

B．6，16

C．8，10

D．10，2

某算法的部分流程图如图所示，执行这部分流程，变量s的值为（   ）

A．10

B．24

C．6

D．23