有如下VB程序段：
a(1)=20: a(2)=3: a(3)=21: a(4)=37
a(5)=62: a(6)=20: a(7)=13: a(8)=33
k=Abs(a(2)-a(1))
For i=3 To 8
If Abs(a(i)- a(i-1))>k Then k= Abs(a(i)-a(i-1))
Next
执行该程序段后，变量k的值为（   ）

A．7

B．17

C．25

D．42

分析完善程序。
“完数”是指一个自然数恰好等于它的因子（不包含本身）之和。如6的因子为1，2，3，而6=1+2+3，因此6就是完数。再如28的因子为1，2，4，7，14，而28=1+2+4+7+14，因而28也是完数。
问题：输入一个正整数n，判断该正整数是否为完数。
要判断一个正整数n是否为完数，最简单的方法是：求出1到n-1之间的所有因子和为Sum，如果Sum的值和n的值相同，则n就是完数。
以下代码是判断n是否为完数的程序片段，请你补全代码：
Dim  n  As  Long
Dim  Sum  As  Long   ' Sum用来记录n的因子和
n = InputBox(“n=”)
For i = 1 To n-1     ' 求n的因子和Sum
If  n Mod i = 0  Then  Sum =_________
Next  i
If _____________  Then
Print   n  &  “是完数”
Else
Print   n  &  “不是完数”
End If

编写VB程序，实现如下功能：在文本框Text1中输入一个十进制整数，单击命令按钮Command1,在标签Label2上显示转换成十六进制数的结果，运行效果如图所示。

（1）在设计程序界面时，要使按钮Command1上的文字显示为“转化成十六进制”，应修改按钮Command1的_____________________属性。
（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_Click()
Dim y As Integer, r As Integer
Dim s As String, t As String
t = "0123456789ABCDEF"
s = ""
y = ①_________
Do While  y>0
r = y Mod 16
s = ②__________
y = ③_________
Loop
Label2.Caption = Text1.Text + "转化成十六进制数为：" + str(s)
End Sub

有一个VB程序，其程序界面中有一个按钮Command1及一个文本框Text1，并且其程序代码如下：

当点击Command1后，Text1中将显示(  )

A．3	B．4
C．5	D．6

某对分查找算法的VB程序段如下：







Loop

数组元素a（1）到a（10）的值依次为“2，3，5，8，9，10，13，17，19，20”。在文本框Text l中输人待查找的数，执行该程序段，则文本框Text 2中显示的内容可能的是（   ）

A．9 3

B．9 3 5

C．9 17 19 13

D．9 3 5 8 19