首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjl4.vbp。请在窗体上添加一个组合框,名称为cbl,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为。Textl的文本框;再添加一个标题为“计算”、名称为Cl的命令按钮,如图
在考生文件夹下有一个工程文件sjl4.vbp。请在窗体上添加一个组合框,名称为cbl,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为。Textl的文本框;再添加一个标题为“计算”、名称为Cl的命令按钮,如图
admin
2020-04-08
41
问题
在考生文件夹下有一个工程文件sjl4.vbp。请在窗体上添加一个组合框,名称为cbl,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为。Textl的文本框;再添加一个标题为“计算”、名称为Cl的命令按钮,如图所示。请编写适当的事件过程,使得在程序运行时,在组合框中选定一个数字后,单击“计算”按钮,则计算5000以内能够被该数整除的所有数之和,并放入Textl中。最后,按原文件名存盘。
提示:由于计算结果较大,应使用长整型变量。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。并且必须用窗体右上角的关闭按钮结束程序,否则无成绩。
选项
答案
【操作步骤】 步骤1:打开本题工程文件,按照题目要求建立控件并设置组合框控件属性,如图4.19所示。程序中用到的控件及属性见表4.11。 [*] 步骤2:打开代码编辑窗口,在代码编辑窗口指定位置编写以下代码。 参考答案 PriVate Sub C1 Click() Dim sum As Long Dim n As Integer Dim i.As Integer n=Val(cbl.Text)′读取选中的数字并通过函数Val转换为数值 For i=n To 5000′从本身开始循环查找 If i Mod n=0 Then sum=sum+i判断是否能被该教整除并求和 End If Next i Textl.Text=sum′在Textl中显示 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。 【易错提示】在定义变量时注意,由于数值较大。应定义为长整型变量,防止数值过大溢出。
解析
本题主要考查组合框的属性及For循环语句的使用。
转载请注明原文地址:https://kaotiyun.com/show/yATp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
为计算a“的值,某人编写了函数power如下:PrivateFunctionpower(aAsInteger,nAsInteger)AsLongDimsAsLongP=aFork=1Ton
如果要在窗体上画一个标签,应在工具箱窗口中选择的图标是( )。
对于图片框和图像控件,下列说法错误的是
以下合法的VB变量名是
下列程序执行后,变量x的值为()。Dima,b,c,dAsSingleDimxAsSinglea=10:b=30:c=400Ifb>aThend=a:a=b:b=dEndIfIfb>cThenx=bElse
语句DimArr(-2To4)AsInteger所定义的数组的元素个数为()。
计算下面分段函数的正确语句是()。
设窗体上有2个直线控件Line1和Line2,若使两条直线相连接,需满足的条件是( )。
在结构化方法中,用数据流程图(DFD)作为描述工具的软件开发阶段是()。
在软件开发中,需求分析阶段可以使用的工具是( )。
随机试题
伤寒肠道病变的好发部位是
如发现大咯血患者有窒息先兆,不应立即采取的抢救措施是()
在下列关节脱位类型中,复位及保持较为困难的是
A.舌尖B.舌中C.舌边D.舌根E.舌面
败血症的热型常为
企业的利润总额一般包括的三个部分是()。
学生既是教育的对象,又是自我教育和发展的主体,其主体作用的最高表现形式为()。
一、注意事项1.申论考试是对考生阅读理解能力、综合分析能力、提出和解决问题能力、文字表达能力的测试。2.做答参考时限:阅读资料40分钟,作答110分钟。3.仔细阅读给定的资料,按照后面提出的“申论要求”依次作答。二、给定资料
打开考生文件夹下的演示文稿yswg.pptx.按照下列要求完成对此文稿的修饰并保存。第二张幻灯片版式改为“两栏内容”,标题为“雅安市芦山县发生7.0级地震”,将考生文件夹下图片PPT1.PNG插到右侧内容区。第一张幻灯片的版式改为“比较”,主标题为“过
Whatkindofsurveyarethespeakersdiscussing?
最新回复
(
0
)