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

admin2020-04-08  26

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

随机试题
最新回复(0)