[問答題] 完成下列問題：

在考生文件夾下有一個工程文件sjt3.vbp，在程序運行時，單擊“輸入整數(shù)”按鈕，可以從鍵盤輸入一個整數(shù)，并在窗體上顯示此整數(shù)的所有不同因子和因子個數(shù)。圖4是輸入53后的結(jié)果，圖5是輸入100的結(jié)果。已經(jīng)給出了全部控件和程序，但程序不完整。

[*]

[*]

要求：請在程序中的橫線處填寫正確的內(nèi)容。不能修改程序中的其他部分，也不能修改控件的屬性。最后用原來的文件名保存工程文件和窗體文件。

[題目提供的源程序]

Private Sub Command1_Click()

Dim n As Integer

Cls

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

Print "因子數(shù)="; fun(n)

End Sub

Function fun(m As Integer)

Dim s As Integer

s=0

For k=1 To Abs(m)/2

If m Mod k= (2) Then

s=s+1

Print k

End If

Next k

(3)

End Function

[操作步驟] 第1步：打開工程文件sjt3.vbp。 第2步：分析并編寫程序。 第3步：調(diào)試、運行并保存程序。 [1]n [2]0 [3]fun=s

單擊“輸入整數(shù)”按鈕時觸發(fā)Command1_Click()事件，為完成題目要求，事件過程代碼中通過InputBox()函數(shù)來接收用戶輸入，并通過fun()函數(shù)對存入變量求解因子。因為已知代碼中fun()函數(shù)的實參是變量n，所以輸入的值應(yīng)存放在變量n中，[1]處應(yīng)填n。自定義函數(shù)fun用于求解因子，其算法是：利用循環(huán)語句把每一個可能的因子數(shù)與原數(shù)作求余運算：如果余數(shù)為0，則說明找到一個因子，輸出該因子，對因子個數(shù)加1；函數(shù)結(jié)束時，返回因子個數(shù)。