VB求整数因子的个数以及和

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

“输入任意正整数，输出该数的所有因子及因子个数”在vb中怎么编程

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+"个因子"

VB 编程序找出1到1000之内的完数，并打印出它的因子

完数，完全数（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

Print

End If

Next i

End Sub

vb 中求数的因子。数字通过Inputbox函数输入，点击按钮后在文本框中输出相应的因子。如6的因子是1、2、3。

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

分享文章：vb.net计算数的因子 vb怎么输出计算结果
网页URL：http://kswjz.com/article/ddocdep.html