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