题目

下列VB程序功能可以找出1000以内的完全数，并在标签中一一列出来。 Private Sub Command1_Click()  Dim i As Integer, m As Integer, n As Integer     Label1.Caption = "1000以内的完全数如下："     For i = 1 To 1000         n = 0         For m = 1 To i \ 2             If i Mod m = 0 Then n = n + m         Next         If n = i Then Label2.Caption = Label2.Caption & "" & Str(i)     Next End Sub 该过程采用的算法是（    ） A . 枚举 B . 查找 C . 排序 D . 解析 答案：A

查看本题答案和解析