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
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://scyanting.com/article/ddocdep.html