完成下列问题：
在考生文件夹下有一个工程文件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

题库:计算机等级考试 类型:简答题 时间:2017-07-03 13:54:27 免费下载:《问答集》Word试卷

完成下列问题：
在考生文件夹下有一个工程文件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

本题关键词:程序性文件,文件整理归档,工程变更文件,工程设计文件,建设工程文件,文件归档整理规范,工程量调整,一级文件,工程施工管理文件,整数比;