题型：综合题 题类：模拟题 难易度：普通
2017年11月浙江省普通高校招生学考科目考试技术（信息技术）仿真模拟试题02
小明设计了一个VB程序，用于求解10000以内的所有完全数。点击按钮Command1，标签Label1显示完全数的个数，并在列表框中显示10000以内所有的完全数。
程序运行效果如图所示
实现上述功能的VB程序如下，请在划线处填入合适代码。
Private Sub Command1_Click( )
Dim i As Integer, j As Integer, c As Integer, s As Integer
c = 0 ‘用于存储完全数的个数
For i =1 To 10000
s=0 ‘用于存储各因数之和
For j = 1 To i - 1
If fac(i, j) Then
Next j
If i = s Then
Listl.AddIltem Str( i)
End If
Next i
Label.Caption =“10000 以内共有” +Str(c) + “个完全数!”
End Sub
Function fac(x As Integer, y As Integer) As Boolean
'如果y是x的因数返回True，否则返冋False
If Then
fac = True
Else
fac = False
End If
End Function
试题篮
