[问答题] 完成下列问题：在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图4是输入53后的结果

9 查阅

[问答题] 完成下列问题：

在考生文件夹下有一个工程文件sjt3.vbp，在程序运行时，单击“输入整数”按钮，可以从键盘输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图4是输入53后的结果，图5是输入100的结果。已经给出了全部控件和程序，但程序不完整。

要求：请在程序中的横线处填写正确的内容。不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。

[题目提供的源程序]

Private Sub Command1_Click()

Dim n As Integer

Cls

(1) =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= (2) Then

s=s+1

Print k

End If

Next k

(3)

End Function

参考答案:

[操作步骤] 第1步：打开工程文件sjt3.vbp。第2步：分析并编写程序。第3步：调试、运行并保存程序。 [1]n [2]0 [3]fun=s

单击“输入整数”按钮时触发Command1_Click()事件，为完成题目要求，事件过程代码中通过InputBox()函数来接收用户输入，并通过fun()函数对存入变量求解因子。因为已知代码中fun()函数的实参是变量n，所以输入的值应存放在变量n中，[1]处应填n。自定义函数fun用于求解因子，其算法是：利用循环语句把每一个可能的因子数与原数作求余运算：如果余数为0，则说明找到一个因子，输出该因子，对因子个数加1；函数结束时，返回因子个数。

计算机考试