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

Dim i As Integer

創(chuàng)新互聯(lián)建站服務(wù)項(xiàng)目包括康平網(wǎng)站建設(shè)、康平網(wǎng)站制作、康平網(wǎng)頁制作以及康平網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(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("請輸入一個(gè)數(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ù)個(gè)數(shù)：" j

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

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

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

dim yz as integer '因子

dim num as integer '因子個(gè)數(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 "共計(jì)"+num+"個(gè)因子"

VB 編程序找出1到1000之內(nèi)的完數(shù)，并打印出它的因子

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

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

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

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

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

實(shí)現(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)終點(diǎ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ù)輸入，點(diǎn)擊按鈕后在文本框中輸出相應(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

當(dāng)前標(biāo)題：vb.net計(jì)算數(shù)的因子 vb怎么輸出計(jì)算結(jié)果
文章出自：http://www.yijiale78.com/article48/ddocdep.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供Google、、企業(yè)建站、網(wǎng)站維護(hù)、軟件開發(fā)、關(guān)鍵詞優(yōu)化

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請盡快告知，我們將會在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場，如需處理請聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來源： 創(chuàng)新互聯(lián)