vb.net求整数因子 c语言求整数的因子

编写vb程序,输入一个大于1的正整数,求它的所有因子(包含1和本身)。

Private Sub Command1_Click()

目前成都创新互联已为千余家的企业提供了网站建设、域名、网络空间、网站托管维护、企业网站设计、尖扎网站维护等服务,公司将坚持客户导向、应用为本的策略,正道将秉承"和谐、参与、激情"的文化,与客户和合作伙伴齐心协力一起成长,共同发展。

Dim m As Long

m = InputBox("请输入一个正整数:", "求一个正整数的所有因子", Int(Rnd * 1000000 + 1))

Print m  "的因子有:1 ";

If m  1 Then

For i = 2 To m

If m Mod i = 0 Then Print i;

Next i

End If

Print

End Sub

vb小白请教一个求因子数的问题(输入一个整数,显示不同因子和因子个数)

m是函数的形参,就是参数,在调用的时候传进去个啥数不知道,用它代替

fun(n)的n就是实参,就是具体传进去的数,传进去后m的数值就是n了

For k = 1 To Abs(m) / 2,如果这个不是整数----那需要处理一下,比如用int函数

fun带参数并且作为返回的数值的时候fun要带上()

fun带参数并且不作为返回的数值的时候fun不要带上(),fun后面是空格和参数

没有参数的时候直接写

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 中求数的因子。数字通过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求整数因子 c语言求整数的因子
转载来源:http://pwwzsj.com/article/hpjiie.html