vb.net计算数的因子 vb怎么输出计算结果

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怎么输出计算结果
文章出自:http://pwwzsj.com/article/ddocdep.html