首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3-137(a)是输入53后的结果,如图3-137(b)是输入100的结果。已经给出了全部控件和程序
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3-137(a)是输入53后的结果,如图3-137(b)是输入100的结果。已经给出了全部控件和程序
admin
2016-01-31
54
问题
在考生文件夹下有一个工程文件sjt3.vbp,在程序运行时,单击“输入整数”按钮,可以从键盘输入一个整数,并在窗体上显示此整数的所有不同因子和因子个数。如图3-137(a)是输入53后的结果,如图3-137(b)是输入100的结果。已经给出了全部控件和程序,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容。不能修改程序中的其他部分,也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
审题分析 本题源程序在“输入整数”按钮的单击事件过程中,将接收到的数值赋给变量n,并通过调用函数fun,在窗体上显示其所有约数因子,并返回约数因子的个数。函数fun利用一个For循环逐一判断参数m能否被1~Abs(m)/2间的整数整除,若能整除,则其为m的一个约数,将其用Print方法显示在窗体上,并将记录约数因子个数的变量s加1。循环结束时将s作为函数返回值。 操作步骤 步骤1:打开考生文件夹中的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: n=InputBox("请输入一个整数") If m Mod k=0 Then fun=s 步骤2:按要求将文件保存至考生文件夹中。 考点链接 数据输入输出、Sub过程和函数过程。
解析
转载请注明原文地址:https://kaotiyun.com/show/wuLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在用通用对话框控件建立“打开”或“保存”文件对话框时,如果需要指定文件列表框所列出的文件类型是文本文件(即.txt文件),则正确的描述格式是
文本框控件中将Text的内容全部显示为所定义的字符的属性项是
下列说法不正确的是()。
在窗体上添加一个文本框Text1,然后编写下列Load事件过程,则程序运行结果是()。PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFork=1To5t=t*kNextkT
若要将一个窗体从内存中清除,应该使用的方法是()。
欲打开各种VisualBasic窗口或显示工具栏,其对应的菜单命令均放置于主菜单项______。的下拉菜单中。
函数过程Fun1的功能是:如果参数b为奇数,则返回值为1,否则返回值为0。FunctionFun1(bAsInteger)if_____ThenFun1=0ElseFun1=
关系表中的每一横行称为一个
栈通常采用的两种存储结构是
要将窗体Form1标题设为“学习VB”,以下能正确实现该功能的语句为
随机试题
Tounderstandthemarketingconcept,itisonlynecessarytounderstandthedifferencebetweenmarketingandselling.Nottooma
太阳伤寒证不可能出现的症状是
下列药物中,患者服用后应避免在阳光下暴露的是
生产、销售的假药具备下列哪些情形,应认定为刑法第141条规定的足以严重危害人体健康罪( )。
《合伙企业法》规定:合伙协议约定合伙企业经营期限的,下列情况可以协议退伙的是( )。
国家公务员级别分为()级。
[*]
在考生文件夹下打开文档Word.docx。某高校学生会计划举办一场“大学生网络创业交流会”的活动,拟邀请部分专家和老师给在校学生进行演讲。因此,校学生会外联部需制作一批邀请函,并分别递送给相关的专家和老师。请按如下要求,完成邀请函的制作:根据“Wo
(1)Muckyroads,unpredictableweather,andwetgroundthatsagsbeneathyourfeet.ItmustbespringtimeinNewEngland.(2)
TheUSCongressA)TheUScongressisthelegislativebranchofthefederalgovernment.Itisabicameral(两院制的)law-makingbod
最新回复
(
0
)