应用题
3.在考生文件夹下有一个工程文件sjt3．vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
要求：请去掉程序中的注释符，把程序中的?改为正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
【正确答案】 【操作步骤】
步骤I：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Commandl_Click()
Dim n As Integer
Cls′清空窗体
n=InputBox(”请输入一个整数＂)′In-
putBox返回值赋给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=0Then′当整除余数为0时则一定是它的因子
S=S+1
Print k
End If
Next k
fun=s′返回因子总数
End Function
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
步骤I：打开本题工程文件。
步骤2：打开代码编辑窗口，去掉程序中的注释符，将问号改为正确的内容。
参考答案(阴影部分是需考生填入的内容)
Private Sub Commandl_Click()
Dim n As Integer
Cls′清空窗体
n=InputBox(”请输入一个整数＂)′In-
putBox返回值赋给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=0Then′当整除余数为0时则一定是它的因子
S=S+1
Print k
End If
Next k
fun=s′返回因子总数
End Function
程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【答案解析】通过InputBox()函数实现对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。