应用题
1. 在考生文件夹下有一个工程文件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：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】在进行循环的时候注意变量k的上限为Abs(m)/2，这样可以节省循环的次数。
步骤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：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】在进行循环的时候注意变量k的上限为Abs(m)/2，这样可以节省循环的次数。
【答案解析】[考点] 本题考点有：InputBox()函数、Function fun()过程函数、Abs()函数、Mod()函数、For循环语句、If判断语句以及Print方法。
通过InputBox()函数实现对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
通过Function fun()过程函数，实现对因子数的确定和查找，Mod()函数用来判断是否能够整除，即判断是否为因子数。
通过InputBox()函数实现对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
通过Function fun()过程函数，实现对因子数的确定和查找，Mod()函数用来判断是否能够整除，即判断是否为因子数。