編寫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