在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
参考答案：[操作步骤]
步骤1：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案：(阴影部分是需考生填入的内容)
Private Sub Command1_Click()
Dim n As Integer
Cls’清空窗体
n=InputBox("请输入一个整数") ’InputBox返回值赋给n
Print"因子数="; fun(n) ’调用fun函数并打印结果
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’当整除余数为0时则一定是它的因子
s=s+1
Print k
End If
Next k
fun=s’返回因子总数
End Function
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
解析：[考点] 本题考点有：InputBox()函数、Functionfun()过程函数、Abs()函数、Mod()函数、For循环语句、If判断语句以及Print方法。
通过InputBox()函数实现对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
通过Function fun()过程函数，实现对因子数的确定和查找，Mod()函数用来判断是否能够整除，即判断是否为因子数。
在进行循环的时候注意变量k的上限为Abs(m)/2，这样可以节省循环的次数。
