Private Sub Command1_Click()
    Dim n As Integer
    Cls
'    ? = InputBox("请输入一个整数")
    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 = ? Then
        If m Mod k = 0 Then
            s = s + 1
            Print k
        End If
    Next k
'    ?
    fun = s
End Function