編寫vb程序，輸入一個大于1的正整數(shù)，求它的所有因子（包含1和本身）。

Private?Sub?Command1_Click()

目前成都創(chuàng)新互聯(lián)已為千余家的企業(yè)提供了網(wǎng)站建設、域名、網(wǎng)絡空間、網(wǎng)站托管維護、企業(yè)網(wǎng)站設計、尖扎網(wǎng)站維護等服務，公司將堅持客戶導向、應用為本的策略，正道將秉承"和諧、參與、激情"的文化，與客戶和合作伙伴齊心協(xié)力一起成長，共同發(fā)展。

Dim?m?As?Long

m?=?InputBox("請輸入一個正整數(shù)：",?"求一個正整數(shù)的所有因子",?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小白請教一個求因子數(shù)的問題（輸入一個整數(shù)，顯示不同因子和因子個數(shù)）

m是函數(shù)的形參，就是參數(shù)，在調(diào)用的時候傳進去個啥數(shù)不知道，用它代替

fun(n)的n就是實參，就是具體傳進去的數(shù)，傳進去后m的數(shù)值就是n了

For k = 1 To Abs(m) / 2，如果這個不是整數(shù)----那需要處理一下，比如用int函數(shù)

fun帶參數(shù)并且作為返回的數(shù)值的時候fun要帶上（）

fun帶參數(shù)并且不作為返回的數(shù)值的時候fun不要帶上（），fun后面是空格和參數(shù)

沒有參數(shù)的時候直接寫

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

Dim i As Integer

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

vb 中求數(shù)的因子。數(shù)字通過Inputbox函數(shù)輸入，點擊按鈕后在文本框中輸出相應的因子。如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

當前名稱：vb.net求整數(shù)因子 c語言求整數(shù)的因子
URL標題：http://chinadenli.net/article4/hpjiie.html

成都網(wǎng)站建設公司_創(chuàng)新互聯(lián)，為您提供網(wǎng)站建設、網(wǎng)站內(nèi)鏈、建站公司、手機網(wǎng)站建設、動態(tài)網(wǎng)站、營銷型網(wǎng)站建設

廣告

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