题库 高中信息

题干

下列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.解析
上一题 下一题 0.99难度 选择题 更新时间:2019-07-10 02:51:28

答案(点此获取答案解析)