首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已
admin
2019-06-11
25
问题
在考生文件夹下有一个工程文件sjt3.vbp。程序的功能是通过键盘输入正整数到文本框中。在“除数”框架中选择一个单选按钮,然后单击“处理数据”命令按钮,将大于文本框中的正整数,并且能够被所选除数整除的5个数添加到列表框List1中,如图所示。在窗体文件中已经给出了全部控件,但程序不完整。
要求:请去掉程序中的注释符,把程序中的?改为正确的内容,使其实现上述功能,但不能修改程序的其他部分和控件属性,最后将修改后的文件按原文件名进行存盘。
选项
答案
[操作步骤] 步骤1:打开本题工程文件。 步骤2:打开代码编辑窗口中,去掉程序中的注释符“’”,将问号改为正确的内容。 参考代码(画下划线部分是需填入的内容) Private Sub Command1_Click() Dim y As Integer For i=0 To 2’循环三个单选按钮 If
Option1(i).Value
=True Then’当某个按钮被选 y=Val(Optionl(i).
Captiion
)’提取按钮名并转换为数值 End If Next Call.calc(y)’调用子函数 End Sub Private Sub calc(y As Integer) ClearList’执行子函数 i=1 X=Val(Text1.Text)+1 Do While i<=
5
’只需要显示5个数 If x Mod y=0 Then’判断x是否能被y整除 List1.AddItem
x
’添加满足条件的数至表 i=i+1’统计 End If x=Xx+1’自加,判断下次循环 Loop End Sub Private Sub ClearList()’清空列表框的项目 For k=List1.ListCount-1 To 0 Step-1 LiSt1.RemoveItem k Next k End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/xtUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在满足实体完整性约束的条件下
在考生文件夹中有一个工程文件sjt5.vbp。窗体外观如图所示。运行程序,单击“读数据”按钮,读入文件中的数据到字符串变量中并显示在Label2标签中。单击“排序”命令按钮时,对读入的数据从小到大进行排序,并将排序结果在窗体的Label4控件中显示。
下列选项中不属于软件生命周期开发阶段任务的是()。
下列叙述中,不属于设计准则的是()。
以下合法的VB变量名是
VB中,若没有显式声明变量的数据类型,则默认的类型是
窗体上有一个名称为Command1的命令按钮,其单击事件过程及相关的代码如下:PrivateSubCommand1_Click()DimxAsInteger,yAsIntegerx=Val(InputBox("输入整数"))y=Val
对长度为n的线性表进行顺序查找,在最坏情况下所需要的比较次数为
待排序的关键码序列为(15,20,9,30,67,65,45,90),要按关键码值递增的顺序排序,采取简单选择排序法,第一趟排序后关键码15被放到第()个位置。
下列运算符中,优先级别最低的是
随机试题
为消除社会工作者在服务方案设计与评估方面的困惑,老张在开展团体督导时,组织大家就社会工作服务方案的需求评估、理论假设、服务内容设计与服务效果评估等进行了讨论,并带领大家对各部门的核心内容进行提炼;督导结束前再次进行归纳,帮助大家对社会工作服务方案形成了清晰
“含道暎物”是下列哪位名家学说?()[浙江2019]
《TRIMs协议》明确规定,各成员对企业产品出口的数量、价值或者份额()
A.脾B.膈C.胃D.肝E.肺呃逆的病变关键脏腑在()
不属于天然成膜材料的是
某宗房地产的评估价格为300万元,实际成交价格为380万元。这意味着该评估价格不是客观合理的。()
个人所得税免征额标准2008年3月1日起由1600元调整为( )元。
期货公司与其控股股东在()等方面应当严格分开,独立经营,独立核算。
甲股份有限公司(以下简称“甲公司”)20×4年发生了以下交易或事项:(1)2月1日,与其他方签订租赁合同,将本公司一栋原自用现已闲置的办公楼对外出租,年租金为120万元,自当日起租。甲公司该办公楼原价为1000万元。至出租日累计折旧为400万元,未计提减
网络时代,引发产业革命的是互联网技术,互联网应用已经渗透至社会生活的方方面面。以产业为例,在十年左右时间里,PC、手机、音乐、出版、影视、物流、零售、金融、电信等行业等都发生了剧烈变革。有的企业“双空间”经营战略顺利,实现了华丽转身;有的企业“画虎不成反类
最新回复
(
0
)