首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计
admin
2019-08-21
78
问题
在考生文件夹下有一个工程文件sjt4.vbp,相应的窗体文件为sjt4.frm,在窗体上有一个文本框和一个命令按钮。程序运行后,单击命令按钮,即可计算出0~200范围内能被3整除的所有整数的和,并显示在文本框中。在窗体的代码窗口中,已给出了部分程序,其中计算能被3整除的整数的和的操作在通用过程Fun中实现,请编写该过程的代码。
要求:请勿改动程序中的任何内容,只在Function Fun()和End Function之间填入你编写的若干语句。最后将修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题工程文件。 步骤2:分析并编写程序代码。 程序提供代码 Sub SaveData() Open App.Path&"\"&"outtxt.txt"For Output As#1 Print#1.Text1.Text Close#1 End Sub Function Fun() End Function Private Sub Command1_Click() d=Fun() Text1.Text=d SaveData End Sub 程序结束 参考答案 Function Fun() Dim s As Integer,i As Integer For i=0 To 200 lf i Mod 3=0 Then s=s+i End If Next i Fun=s End Function 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
判断0~200范围内的数能不能被3整除,须使用求余运算符Mod,如果余数不为0,则表示该数不能被整除。并需要设置一个变量,以累计不能被3整除的数的和。
转载请注明原文地址:https://kaotiyun.com/show/FdUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
窗体上有1个名称为Commandl的命令按钮,事件过程如下:PfivmeSubCommandl_Click()DimnumAsInteger.xAsIntegernum=Val(InputBox("请输入一个正整数"))S
为了删除列表框中的一个列表项,应使用的列表框方法是
设窗体上有一个标签Labell和一个计时器Timerl,Timerl的Interval属性被设置为1000,Enabled属性被设置为True。要求程序运行时每秒在标签中显示一次系统当前时间。以下可以实现上述要求的事件过程是
以下关于文件的叙述中,错误的是
用来设置文字字体是否斜体的属性是
以下表达式与Int(3.5)的值相同的是
设程序中有如下数组定义和过程调用语句:Dima(10)AsInteger……Callp(a)如下过程定义中,正确的是
语句DimArt(-2To4)AsInteger所定义的数组的元素个数为
软件生命周期可分为定义阶段、开发阶段和维护阶段,下面不属于开发阶段任务的是
在软件生命周期中,能准确地确定软件系统必须做什么和必须具备哪些功能的阶段是()。
随机试题
坚持和发展中国特色社会主义的总任务是【】
胰岛素的药理作用不包括()
藏象学说的形成基础,以下哪项不正确
企业投资项目建设方案的可行性论证的内容不包括()。
某市房地产开发企业为增值税一般纳税人,向香港某公司租用其在该市购入的办公用房,用于现行开发的三个项目进行经营管理。合同约定租期三年,年租金115.5万元,三年租金合计346.5万元。于2018年8月18日一次付清,已知该房地产开发企业2018年正在开发的项
Samwasafifteen-year-oldboylivingwithhislittlesister,Julie.Theirparentshadpassedawaylongago.Samhadtakencare
下列学习策略中,属于资源管理策略的有()
以鸟类迁徙为话题的纪录片《迁徙的鸟》向我们充分展示了一个自然界的奇迹,虽然大部分地表已经被人类改造得__________。但鸟儿仍是主角,无论雪鹅、野鸭还是云雀,都自有其尊严,我们需要与自然界和平相处,因为人类不可能__________的生活在地球上,雅克
A.Iwanttogointoe-commerceB.ThatdependsC.youcanmakealivingoutofthatD.wecouldtalktoeachclientindividuall
Eachyear,inanever-endingcycleofdeathandrebirth,therainssweepacrosssouthernAsia.
最新回复
(
0
)