首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮,然后单击“处理数据”按钮,将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中,如图3-23所示。在窗体文件中已
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮,然后单击“处理数据”按钮,将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中,如图3-23所示。在窗体文件中已
admin
2019-06-11
51
问题
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘向文本框中输入正整数。在“除数”框架中选择一个单选按钮,然后单击“处理数据”按钮,将大于文本框中的正整数且能够被所选除数整除的5个数添加到列表框List1中,如图3-23所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
审题分析 判断整数A能被整数B整除的条件表达式为:A Mod B=0。本题源程序在“计算数据”的单击事件过程中,通过For循环逐一判断单选按钮数组中的每个元素是否选中,用变量y记录选中单选按钮所标识的数字,并调用过程“calc”计算满足条件的正整数。 在过程“calc”中,通过Do循环依次判断大于文本框中数的正整数是否能被变量y整除,将能被整除的前5个数添加到列表框List1中。 操作步骤 步骤1:打开考生文件下的本题工程文件sjt3.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: If Option1.Item(i)=True Then y=Val(Option1(i).Caption) Do While i<=5 List1.AddItem x 步骤2:按要求将文件保存至考生文件夹中。 考点链接 Do循环和While循环、控件数组
解析
转载请注明原文地址:https://kaotiyun.com/show/MJUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在名称为Fralnel的框架中,有两个名称分别为op1、op2的单选按钮,标题分别为“单程”、“往返”,如图所示。以下叙述中,正确的是()。
现有如下语句:x=IIf(a>50,Int(a\3),aMod2)当a=52时,x的值是()。
设x为一整型变量,且情况语句的开始为:SelectCasex,则不符合语法规则的Case子句是()。
以下关于VB文件的叙述中,错误的是()。
以下关于控件数组的叙述中,正确的是()。
在窗体上画两个文本框(名称分别为Text1和Text2)和一个命令按钮(名称为Command1),然后编写如下事件过程:PrivateSubCommandl_Crick()x=0DoWhilex<50x=
执行下列语句:strInput=InputBox(”请输入字符串”,”字符串对话框”,”字符串”)将显示输入对话框。此时如果直接单击“确定”按钮,则变量strInput的内容是()。
在VisualBasic中,所谓“文件”指的是()。
在VisualBasic中,表达式3*2\5Mod3的值是()。
VisualBasic根据计算机访问文件的方式将文件分成3类,其中不包括()。
随机试题
以昆虫为传播媒介的病原体是
A.轻型口疮B.腺周口疮C.疱疹样口疮D.白塞综合征E.疱疹性龈口炎
从15世纪中叶到17世纪中叶,在一系列科学革命的推动下,近代科学以崭新的面貌诞生于欧洲。关于近代科学革命,下列表述不正确的是()。
某地政府对教学资源进行整合,合撤一些学校,但造成学生长途跋涉,求学路很辛苦,你怎么看?
布鲁纳提出的学科学习的基本过程包括
试述我国刑法对危害国家安全罪从严的规定。
HowtoTackletheHousingProbleminBigCities?
下列程序的执行结果为PrivateSubCommand1_Click()DimFirStrAsStringFirSt="abcdef"PrintPat(FirStr)EndSubPrivateFunctionPat
以下叙述中错误的是
A、Typesofproducts.B、Bigsurpriseslater.C、Lawofstockmarket.D、Risksandpotentialrewards.D题干询问在开始投资时投资者应了解什么。男士说投资市场中每一
最新回复
(
0
)