首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。在窗体上有一个命令按钮,其名称为Command1,标题为“计算并输出”。程序运行后,如果单击命令按钮,程序将计算500以内两个数之间(包括开头和结尾的数)所有连续数的和为125
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。在窗体上有一个命令按钮,其名称为Command1,标题为“计算并输出”。程序运行后,如果单击命令按钮,程序将计算500以内两个数之间(包括开头和结尾的数)所有连续数的和为125
admin
2016-01-31
45
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm。在窗体上有一个命令按钮,其名称为Command1,标题为“计算并输出”。程序运行后,如果单击命令按钮,程序将计算500以内两个数之间(包括开头和结尾的数)所有连续数的和为1250的正整数,并在窗体上显示出来。这样的数有多组,程序输出每组开头和结尾的正整数,并用“~”连接起来,如图3-91所示。该程序不完整,请把它补充完整。
要求:去掉程序中的注释符,把程序中的?改为正确的内容,使其能正确运行,但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。
选项
答案
审题分析 程序设计思路:按顺序让1~500中的每一个数都与它之后的所有的数逐一相加,在相加过程中若累加和等于或超过1250时,则停止该组数继续相加,并将和等于1250的该组数的开头和结尾的数按题目要求输出。源程序使用嵌套For循环完成上述功能,变量iSum用于记录每组数累加时的和,其初值应为0;表达式iSum=iSum+i用于实现累加功能;当累加和正好等于1250时,输出该组数的开头和结尾的数,即i和i。 操作步骤 步骤1:打开考生文件夹中的本题工程文件sjt4.vbp,在代码编辑窗口,去掉程序中的注释符“′”,将问号“?”改为正确的内容。 参考代码: iSum=0 isum=iSum+j If iSum=1250 Then 步骤2:按要求将文件保存至考生文件夹中。 考点链接 多重循环。
解析
转载请注明原文地址:https://kaotiyun.com/show/6rLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
有如下事件过程:PrivateSubCommandl_Click()b=10DoUntilb=-1a=InputBox(“请输入a的值”)a=Val(A)b=InputBox(“请输
在窗体上画一个命令按钮,名称为Commandl,然后编写如下代码:OptionBase0PrivateSubCommandl_Click()DimA(4)AsInteger,B(4)AsIntegerFo
在窗体上添加一个文本框Text1,然后编写下列Load事件过程,则程序运行结果是()。PrivateSubForm_Load()Text1.Text=""Text1.SetFocusFork=1To5t=t*kNextkT
在随机文件中使用用户自定义数据类型时,要注意它的成员的要求,它的成员不能是()。
在窗体上画一个命令按钮,其名称为Command1,然后编写如下程序:FunctionFunc(ByValxAsInteger,YAsInteger)y=x*yIfy>0Then
与键盘操作有关的事件有KeyPress、KeyUp和KeyDown事件,当用户按下并且释放一个键后,这三个事件发生的顺序是()。
下列选项中属于面向对象设计方法主要特征的是
模块独立性是软件模块化所提出的要求,衡量模块独立性的度量标准则是模块的
以下关系表达式中,其值为False的是()。
软件危机出现于20世纪60年代末,为了解决软件危机,人们提出了______的原理来设计软件,这就是软件工程诞生的基础。
随机试题
晚期肺癌的临床表现中,不正确的是
对急诊患者,当手术是抢救患者的唯一方案时。最符合医学道德的做法是
与全冠固位体相比,嵌体做固定桥固位体的最主要的缺点是
男,62岁,右上腹剧痛20天,伴发热10天。乙肝病史20年,慢性支气管炎病史10年。查体:T38.6℃,慢性病容,颈静脉无怒张,双肺呼吸音减弱,未闻及湿啰音,腹膨隆,肝右肋下4cm,双下肢凹陷性水肿。肝功能检查正常。下列检查对明确诊断意义不
通常认为,在一次试验中,”小概率事件”几乎是不会发生的()。
铁路营业线桥涵顶进按结构分主要有()两种类型。
最优证券组合是能带来最高收益的组合。()
Windows中利用“查找”窗口不能按()。
计算极限
Anexampleofscopeverificationis(10).
最新回复
(
0
)