>
[问答题] 完成下列问题: 在考生文件夹下有一个工程文件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