VB求整數(shù)因子的個數(shù)以及和

Dim i As Integer

創(chuàng)新互聯(lián)建站服務(wù)項目包括康平網(wǎng)站建設(shè)、康平網(wǎng)站制作、康平網(wǎng)頁制作以及康平網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，康平網(wǎng)站推廣取得了明顯的社會效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到康平省份的部分城市，未來相信會繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

Dim a As Integer

Dim sum As Integer

Dim s As String

Dim j As Integer

a = InputBox("請輸入一個數(shù)")

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 "該數(shù)的整數(shù)因子：" s

Print "因數(shù)個數(shù)：" j

Print "因數(shù)和：" sum

“輸入任意正整數(shù)，輸出該數(shù)的所有因子及因子個數(shù)”在vb中怎么編程

dim number as integer '輸入的正整數(shù)

dim yz as integer '因子

dim num as integer '因子個數(shù)

dim i as integer '循環(huán)變量

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之內(nèi)的完數(shù)，并打印出它的因子

完數(shù)，完全數(shù)（Perfect number），又稱完美數(shù)或完備數(shù)，是一些特殊的自然數(shù)。它所有的真因子（即除了自身以外的約數(shù)）的和（即因子函數(shù)），恰好等于它本身。如果一個數(shù)恰好等于它的因子之和，則稱該數(shù)為“完全數(shù)”。

VB可是使用Mod運算符求余和嵌套循環(huán)來找出完數(shù)。

Mod 運算符，用來對兩個數(shù)作除法并且只返回余數(shù)。

可以將一個 For...Next 循環(huán)放置在另一個 For...Next

循環(huán)中，組成嵌套循環(huán)。不過在每個循環(huán)中的 counter 要使用不同的變量名。

實現(xiàn)代碼：

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?'指定循環(huán)終點

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??"是完數(shù),因子：";

For?k?=?1?To?l?-?1

If?l?Mod?k?=?0?Then?Print?k;

Next?k

Print

End?If

Next?i

End?Sub

vb 中求數(shù)的因子。數(shù)字通過Inputbox函數(shù)輸入，點擊按鈕后在文本框中輸出相應(yīng)的因子。如6的因子是1、2、3。

Private Sub Command1_Click()

Dim n As Integer, i As Integer

n = InputBox("輸入正整數(shù)：", , 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