首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上画一个组合框,名称为Cb1,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);画一个名为Text1的文本框;再画一个标题为“计算”、名称为C1的命令按钮,如图3-15
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上画一个组合框,名称为Cb1,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);画一个名为Text1的文本框;再画一个标题为“计算”、名称为C1的命令按钮,如图3-15
admin
2016-01-31
49
问题
在考生文件夹下有一个工程文件sjt4.vbp。请在窗体上画一个组合框,名称为Cb1,并输入三个列表项:“3”、“7”、“11”(列表项的顺序不限,但必须是这三个数字);画一个名为Text1的文本框;再画一个标题为“计算”、名称为C1的命令按钮,如图3-151所示。请编写适当的事件过程,使得程序运行时,在组合框中选定一个数字后,单击“计算”按钮,则计算5000以内能够被该数整除的所有数之和,并放入Text1中。最后,按原文件名存盘。
提示:由于计算结果较大,应使用长整型变量。
注意:考生不得修改窗体文件中已经存在的程序,在结束程序运行之前,必须至少进行一次计算。必须用窗体右上角的关闭按钮结束程序,否则无成绩。
选项
答案
审题分析 设计本题代码的思路:单击“计算”按钮时,用For循环语句循环变量(如k值为1~5000间的所有整数)的取值逐一除以组合框中当前选择的数值(Cb1.Text),并将能被该数值整除的整数累加入一个变量(如s)。判断整数A能被整数B整除的条件表达式为:A Mod B=0。最后将循环结束时变量s的值显示在文本框中。 操作步骤 步骤1:打开考生文件夹下的工程文件sjt4.vbp。 步骤2:在窗体Form1中按要求画出控件并设置属性。 步骤3:双击窗体Form1中的“计算”按钮,打开代码编辑窗口,输入如下代码: 参考代码: Private Sub C1_Click() Dim n AsInteger,k AsInteger,s As Long n=Val(Cb1.Text) s=0 For k=n To 5000 If k Mod n=0 Then s=s+k End If Next k Text1.Text=s End Sub 步骤4:按要求将文件保存至考生文件夹中。 步骤5:按
键运行程序,从列表框中选择一项,单击“计算”按钮,单击程序右上角的关闭按钮结束程序。 考点链接 For循环结构。
解析
转载请注明原文地址:https://kaotiyun.com/show/UuLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
“商品”与“顾客”两个实体集之间的联系一般是()。
假定窗体的名称(Narne属性)为Forml,则把窗体的标题设置为"VBTest"的语句为()。
当标签的标题内容太长,需要根据标题自动调整标签的大小时,应设置标签的()属性为True。
枉程序设计阶段应该采取______和逐步求精的方法,把一个模块的功能逐步分解,细化为一系列具体的步骤,继而用某种程序设计语言写成程序。
用Print方法在Form1窗体中显示出4个#号的正确代码为()。
执行下面程序,第一行输出结果是[],第二行输出结果是[]。OptionExplicitPrivateSubForm_Click()DimAAsIntegerA=2CallSub1(A)EndSubPriv
如果准备读文件,打开顺序文件"text.dat"的正确语句是
假定有一个菜单项,名为Menuhem,为了在运行时使该菜单项失效(变灰),应使用的语句为
设用复制、粘贴的方法建立了一个命令按钮数组Command1,以下对该数组的说法错误的是
随机试题
乙酰化法测定醇含量可消除伯胺和仲胺的干扰,在反应条件下伯胺和仲胺酰化为相应的酰胺,醇酰化为酯,用碱中和后,加入过量的碱,酯被定量地皂化,而酰胺不反应。()
杆式卡环的卡环臂应起于
中国会计学会是由全国会计领域各类专业组织及个人自愿结成的()社会组织。
期货公司总经理或者相关负责人对公司经营管理行为的合法合规性、风险管理等方面存在的问题不整改或者整改未达到要求的,首席风险官应当及时向期货公司董事长、董事会常设的风险管理委员会或者监事会报告,必要时向中国期货业协会报告。()
通过对______和______的比较分析,可以了解投资者对该基金的认可程度。()[2015年9月真题]
债务人以低于债务账面价值的现金清偿债务,债权人应将债务重组损失计入()。
人民法院审理行政案件,可以依据的规范性文件是()。
已知,y1=x,y2=x2,y3=ex为方程y"+p(x)y'+q(x)y=f(x)的三个特解,则该方程的通解为()
结构化程序设计的3种结构是
An"applepolisher"isonewhogivesgiftstowinfriendshiporspecialtreatment.Itisnotexactlyabribe(贿赂),butiscloset
最新回复
(
0
)