189 8069 5689
Dim i As Integer
创新互联建站服务项目包括康平网站建设、康平网站制作、康平网页制作以及康平网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，康平网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到康平省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！
Dim a As Integer
Dim sum As Integer
Dim s As String
Dim j As Integer
a = InputBox("请输入一个数")
For i = 1 To a
If a Mod i = 0 Then
If s "" Then s = s ","
s = s i
sum = sum + i
j = j + 1
End If
Next i
Print "该数的整数因子：" s
Print "因数个数：" j
Print "因数和：" sum
dim number as integer '输入的正整数
dim yz as integer '因子
dim num as integer '因子个数
dim i as integer '循环变量
num = 0
print number + "的因子有："
for i=1 to numner/2
if (number\i)*i=number then
num = num + 1
printf i
endif
next i
print "共计"+num+"个因子"
完数，完全数（Perfect number），又称完美数或完备数，是一些特殊的自然数。它所有的真因子（即除了自身以外的约数）的和（即因子函数），恰好等于它本身。如果一个数恰好等于它的因子之和，则称该数为“完全数”。
VB可是使用Mod运算符求余和嵌套循环来找出完数。
Mod 运算符，用来对两个数作除法并且只返回余数。
可以将一个 For...Next 循环放置在另一个 For...Next
循环中，组成嵌套循环。不过在每个循环中的 counter 要使用不同的变量名。
实现代码：
Private Sub Form_Click()
Dim i As Integer
Dim j As Integer
Dim k As Integer
Dim l As Integer
For i = 1 To 1000 '指定循环终点
l = 0
For j = 1 To i - 1
If i Mod j = 0 Then l = l + j
Next j
If l = i Then
Print i "是完数,因子：";
For k = 1 To l - 1
If l Mod k = 0 Then Print k;
Next k
End If
Next i
End Sub
Private Sub Command1_Click()
Dim n As Integer, i As Integer
n = InputBox("输入正整数：", , 0)
If n 0 Then
Text1.Text = Empty
For i = 1 To n - 1
If n Mod i = 0 Then
Text1.Text = Text1.Text i ","
End If
Next
Text1.Text = Left(Text1.Text, Len(Text1.Text) - 1)
End If
End Sub