2. 计算机
  3. 在考生文件夹下有一个工程文件sjt3．vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。 要求：请去掉程

在考生文件夹下有一个工程文件sjt3．vbp，在程序运行时，单击“输入整数”按钮，输入一个整数，并在窗体上显示此整数的所有不同因子和因子个数。图1是输入53后的结果，图2是输入100后的结果。已经给出了全部控件和程序，但程序不完整。 要求：请去掉程

admin2020-04-08  53
问题 在考生文件夹下有一个工程文件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：调试并运行程序，关闭程序后按题目要求存盘。
解析 通过InputBox()函数实现对话框中显示提示，等待用户输入正文或按下按钮，并返回包含文本框内容的String。
转载请注明原文地址:https://kaotiyun.com/show/3NTp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

相关试题推荐
随机试题
最新回复(0)