17.如果一個自然數(shù)恰好等于它的各因數(shù)之和,則稱該數(shù)為完全數(shù).這里的因素都是除去本身的正因數(shù).例如:第一個完全數(shù)是6,它有因數(shù)1、2、3、6,除去它本身6外,其余3個數(shù)相加,1+2+3=6.尋找完全數(shù)并不是容易的事.經過不少數(shù)學家研究,到2013年2月6日為止,一共找到了48個完全數(shù).
小明設計了一個VB程序,用于求解10000以內的所有完全數(shù).點擊按鈕Command1,標簽Label1顯示完全數(shù)的個數(shù),并在列表框中顯示10000以內所有的完全數(shù).
程序運行效果如圖所示
實現(xiàn)上述功能的VB程序如下,請在橫線處填入合適代碼.
Private Sub Command1_Click ( )
Dim i As Integer,j As Integer,c As Integer,s As Integer
c=0‘用于存儲完全數(shù)的個數(shù)
For i=1To 10000
s=0‘用于存儲各因數(shù)之和
For j=1To 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)+“個完全數(shù)!”
End Sub
Function fac(x As Integer,y As Integer) As Boolean
'如果y是x的因數(shù)返回True,否則返回False
If
Then
fac=True
Else
fac=False
End If
End Function.