您所在的当前位置: 计算机等级考试题库   >  
BASIC题库  
  >  [问答题] 完成下列问题: 在考生文件夹下有一个工程文件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
问题:
发布时间:2022-07-01

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

可能感兴趣的题目: