首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjl4.vbp。请在窗体上添加一个组合框,名称为cbl,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为。Textl的文本框;再添加一个标题为“计算”、名称为Cl的命令按钮,如图
在考生文件夹下有一个工程文件sjl4.vbp。请在窗体上添加一个组合框,名称为cbl,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);添加一个名为。Textl的文本框;再添加一个标题为“计算”、名称为Cl的命令按钮,如图
admin
2020-04-08
68
问题
在考生文件夹下有一个工程文件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全国计算机二级
相关试题推荐
程序运行时,拖动滚动条上的滚动框,则所触发的事件是
一个栈的初始状态为空。现将元素1、2、3、4、5、A、B、C、D、E依次入栈,然后再依次出栈,则元素出栈的顺序是( )。
在利用菜单编辑器设计菜单时,为了把组合键"Alt+X"设置为"退出(X)"菜单项的访问键,可以将该菜单项的标题设置为( )。
假定Picture1和Text1分别为图片框和文本框的名称,则下列错误的语句是( )。
窗体如图1所示。要求程序运行时,在文本框Text1中输入一个姓氏,单击“删除”按钮(名称为Commandl),则可删除列表框Listl中所有该姓氏的项目。若编写以下程序来实现此功能:PrivateSubCommandl_Click()Dim
下面程序的运行结果是()。PrivateSubFormClick()i=0DoUntil0i=i+1Ifi>10ThenExitDoLoopPrintiEndSub
为了使窗体左上角不显示控制框,需设置为False的属性是( )。
设有下面程序代码:PrivateSubCommand1_Click()DimaAsVarianta=Array(22,43,23,56,87,45,67,12,98,98,56,34,23,75
有三个关系R、S和T如下:则由关系R和S得到关系T的操作是
在3种不同类型的组合框中,只能选择而不能输入数据的组合框是()。
随机试题
如果要将Word2010文档中的一个关键词改变为另一个关键词,需使用“_______”组中的“替换”命令。
如果某鸡场发生过新城疫,在以后的饲养过程中,应特别注意
医学心理学的研究对象为()
设备安装定额中的接地是按扁钢考虑的,同时考虑了()点接地的消耗量。
下列不属于单元划分方法的是()。
工程质量事故发生后,总监理工程师首先应进行的工作是签发《工程暂停令》,并要求施工单位采取( )的措施。
证券的产权性是指有价证券记载着权利人的财产权内容,代表着一定的财产所有权,拥有证券就意味着享有财产的()的权利。
下列关于以募集方式设立的股份有限公司股份募集的表述中,符合《公司法》规定的有()。(2011年)
A、B两地位于同一条河上,B地在A地下游100千米处。甲船从A地、乙船从B地同时出发,相向而行,甲船到达B地、乙船到达A地后,都立即按原来路线返航。水速为2米/秒,且两船在静水中的速度相同。如果两船两次相遇的地点相距20千米,那么两船在静水中的速度是(
A—proofofdeathH—releasecertificateB—bodilyharmI—copyrightlawC—keywitnessJ—sumofclaimD—rightofauthorK—housearre
最新回复
(
0
)