（问答题）问答题：完善Visual Basic程序以显示整数的因子及其个数

在考生文件夹下有一个工程文件sjt3.vbp。程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。已给出全部控件和部分程序，但程序不完整。请在程序中的横线处填写正确的内容，不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。

Private Sub Command1_Click()
    Dim n As Integer
    Cls
    n = 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 = 0 Then
            s = s + 1
            Print k
        End If
    Next k
    fun = s
End Function