完成下列问题：
在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图4是输入53后的结果，图5是输入100的结果。已经给出了全部控件和程序，但程序不完整。
[*]
[*]
要求：请在程序中的横线处填写正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
[题目提供的源程序]
Private Sub Command1_Click()
Dim n As Integer
Cls
(1) =InputBox("请输入一个整数")
Print "因子数="; 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步：调试、运行并保存程序。
[1]n [2]0 [3]fun=s
解析： 单击“输入整数”按钮时触发Command1_Click()事件，为完成题目要求，事件过程代码中通过InputBox()函数来接收用户输入，并通过fun()函数对存入变量求解因子。因为已知代码中fun()函数的实参是变量n，所以输入的值应存放在变量n中，[1]处应填n。自定义函数fun用于求解因子，其算法是：利用循环语句把每一个可能的因子数与原数作求余运算：如果余数为0，则说明找到一个因子，输出该因子，对因子个数加1；函数结束时，返回因子个数。