分析完善程序。
“完数”是指一个自然数恰好等于它的因子（不包含本身）之和。如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

将一个十进数转化为任意进制可以采用“除权取余法”。方法是：a 为十进制数，n 为转化的 进制，从 a 开始循环除以 n，记下余数，整数商作为新的 a 继续除以 n ，直到 a=0 为止。然后 倒序取余数即可。余数 k 如果为 10<=k<=15，用字母依次记作“ABCDEF”，比如 k=10，记作 A。该 程序界面如下图所示，在文本框 Text1 中输入一个任意十进制数，在文本框 Text2 中输入要转换 的进制，单击“开始转换”按钮后，对应的进制数在文本框 Text3 中显示。

（1）代码“Private Sub Command1_Click()”中的 Click 是_________。（单选，填字母：

A．对象名/

B．属性名/

C．事件名）

（2）为实现上述功能，请在划线处填入合适的代码。
Private Sub Command1_click()
Dim a As Integer, n As Integer, k As Integer, b As String
Const m = "0123456789ABCDEF"
a = Val(Text1.Text)
①_________
Do While   ②_________
k = a Mod n   '求 a 的余数
a = a \ n
b =③__________ + b
Text3.Text = b
Loop
End Sub
（3）在实现程序功能后，在 Text1 中输入 “16”，在 Text2 中输入 “16”，Text3 显示的内容是____

人们常使用计算机程序解决一些实际问题。下面程序可以找出能被2、3、5除，余数为1的最小的4个正整数。（注：VB中不区分大小写）请分析程序回答问题。
Private Sub Command1_Click（   1  ）
Dim CountN%, n%
CountN=0
N=1
Do
N=n+1
If n Mod 2=1 And n Mod 3=1 And n Mod 5=1 Then
Print n
CountN=CountN+1
End If
Loop___2___①___3___
End Sub
【小题1】利用计算机编程解决问题的过程中，需要使用一种程序设计语言来实现算法，这个过程叫做(　　)

A．设计程序

B．测试程序

C．运行程序

D．编写程序

【小题2】VB中保存工程文件的文件扩展名为(　　)

A．.mdb

B．.frm

C．.vbp

D．.fla

【小题3】程序中的If语句一般在流程图中用(    )表示

A．平行四边形

B．菱形

C．矩形

D．正方形

【小题4】变量CountN的数据类型定义为（ ）

A．Integer

B．Single

C．Double

D．String

【小题5】变量CountN的作用是（ ）

A．求和

B．求平均值

C．求最大值

D．计数

【小题6】所用到的表示循环的标志性语句是（）

A．Dim……End If

B．Do…Loop

C．Dim……Loop

D．Do……End If

【小题7】在这个循环中，CountN=CountN+1语句被执行（）

A．1次

B．2次

C．3次

D．4次

【小题8】①处的语句应该是（）

A．Until CountN =2	B．Until CountN =4
C．Until Countn =2	D．Until Countn =4

【小题9】这段程序的输出结果是(　　)

A．31

B．33

C．35

D．37

【小题10】VB语言中，下列合法的变量名是（ ）

A．12ab

B．ab12

C．*abcd

D．c\c

【小题11】下列控件中可用于接收用户输入文本，又可用于显示文本的是（ ）

A．Label控件

B．TextBox控件

C．CommandButton控件

D．Timer控件

【小题12】VB中，下列哪一函数作用是将数值转化成字符串（ ）

A．Val(  )

B．Asc(  )

C．Abs(  )

D．Str(  )

【小题13】下列（ ）算法就是一种直接或者间接地调用自身的算法

A．穷举算法

B．排序算法

C．递归算法

D．解析算法

【小题14】程序中Command1控件响应的事件是（ ）

A．单击事件

B．双击事件

C．载入事件

D．活动事件

【小题15】在VB中，“20”+“ 19”的运算结果是（ ）

A．“39”

B．False

C．“20+19”

D．“2019”

用VB编写的函数bubble_sort是一个用冒泡方法实现排序的函数，其调用时需要三个参数：布尔类型参数sx来确定是升序还是降序，sx为True时为升序，否则为降序；整数型数组a()是待排序的数据，数据从a(1)开始存放；整数型参数n表示传入的数组长度，该函数的返回值也是一个整数型数组。所以调用此函数实现排序非常方便：
比如有一个整数型数组a(1 to 10)需要降序排序，可以直接这样调用：
a()＝bubble_sort(False，a()，10)
该函数VB代码如下：
Function bubble_sort(sx As Boolean，a() As Integer，n As Integer) As Integer()
Dim i，j，t As Integer
For i＝1 To n－1
For j＝____①____ Step－1
If ____②____ Then
If a(j)＜a(j－1) Then t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
Else
If a(j)＞a(j－1) Then t＝a(j)：a(j)＝a(j－1)：a(j－1)＝t
End If
Next j
Next i
bubble_sort＝a()
End Function
请将代码补充完整：
①___________________________________________。
②___________________________________________。

一个十进制整数的二进制表示中，如果数字“1”的个数多于数字“0”的个数，则称该整数为A类数。如十进制整数26的二进制表示为11010，26是一个A类数。下列VB程序的功能是：统计前1000个自然数中A类数的个数，并在文本框中输出。请在划线处填入合适代码。
Private Sub Command1_Click()
Dim i As Integer, n As Integer
Dim s As Integer, t As Integer, k As Integer
s = 0
For i = 1 To  1000
①
t = 0 ： k = 0
Do While n > 0
If  n mod 2=0  Then t = t + 1 Else k = k + 1
②
Loop
If ③ Then s = s + 1
Next i
Text1.Text = Str(s)
End Sub