首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有工程文件sjt5.vbp和文本文件in5.txt,in5.txt中有不超过100个4位正整数。窗体上有2个命令按钮,其功能是:单击“读入数据”按钮,可以读入in5.txt文件中的所有数,并显示在文本框中。单击“计算并保存”按钮,能够把满足下述
在考生目录下有工程文件sjt5.vbp和文本文件in5.txt,in5.txt中有不超过100个4位正整数。窗体上有2个命令按钮,其功能是:单击“读入数据”按钮,可以读入in5.txt文件中的所有数,并显示在文本框中。单击“计算并保存”按钮,能够把满足下述
admin
2016-08-24
74
问题
在考生目录下有工程文件sjt5.vbp和文本文件in5.txt,in5.txt中有不超过100个4位正整数。窗体上有2个命令按钮,其功能是:单击“读入数据”按钮,可以读入in5.txt文件中的所有数,并显示在文本框中。单击“计算并保存”按钮,能够把满足下述条件的整数的个数,以及这些数的累加和存入out5.txt文件。这些数需满足的条件是:数中各位数字累加后能够被5整除(例如:5235各位数字累加和是15,能够被5整除,所以是满足条件的数)。
要求:
1)把“读入数据”按钮的Click事件过程中的?改为正确的内容;
2)为“计算并保存”按钮的Click事件过程编写代码。(事件过程的最后一行用于存盘,已经给出,考生不得修改,否则无成绩!)。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并在“考生编写的代码”区域填入相应的代码以实现题目的功能。 参考答案 Option Base 1 Dim a(100)As Integer,Bum As Integer Private Sub Command1_Click() Dim k As Integer k=1 Open App.Path&"\in5.txt"For Input As #1 Do While Not EOF(1) Input#1,a(k) k=k+1 Loop Close #1 num=k-1 For k=1 To Bum Text1=Text1&a(k)&"" Next k End Sub Private Sub Command2_Click() Dim sum As Long,n As Integer,s As Integer Dim i As Integer Sum=0:n=0 For i=1 To num S=a(i)Mod 10+a(i)\10 Mod 10+a(i)\100 Mod 10+a(i)\1000 If s Mod 5=0 Then Sum=sum+a(i) N=n+1 End If Next i Call SaveFile(sum,n)此行用于存盘,考生不得修改,否则无成绩! End Sub Private Sub SaveFile(sum As Long,n As Integer) Open App.Path&"\out5.txt"For Output As#1 Print #1,n,sum Close#1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Command1_Click事件过程中使用Open语句打开文件,并通过Do While循环依次将文件中的数据读入到数组中,并保存读入元素的个数;Command2_Click事件过程中通过For循环取出每个元素,然后拆分出每个数组元素的个位,十位,百位和千位,并将各位数字累加到变量s中,再通过If语句判断s能否被5整除,并将满足条件的元素累加到变量sum中。
转载请注明原文地址:https://kaotiyun.com/show/gYLp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
若要清除列表框的所有内容,则实现的方法是()。
设窗体上有一个名为Text1的文本框,并编写如下程序:PrivateSubForm_Load()ShowText1.Text=""Text1.SetFocusEndSubPrivateSubForm
假定有如下事件过程:PrivteSubForm_Click0 DimxAsInteger,nAsInteger x=1 n=0 DoWhilex<28 x=x*3
编写如下事件过程:PrivateSubForm_KeyDown(KeyCodeAsInteger,ShiftAsInteger)If(ButtonAnd3)=3ThenPrint“AAAA”EndIf
设有如下的记录类型:TypeStudentnumberAsStringnameASStringageAsIntegerEndType则正确引用该记录类型变量的代码是()。
数据库设计分为以下6个设计阶段:需求分析阶段、______、逻辑设计阶段、物理设计阶段、实施阶段及数据库运行和维护阶段。
当程序运行时,在窗体上单击鼠标,以下哪个事件是窗体不能响应的事件
当文本框ScrollBars属性设置了非零值,却没有效果,原因是
下面的数组声明语句中正确的是
随机试题
具有“以物质性制作为主”为特点的是()
患者,男,59岁。腹胀、腹痛、消瘦2个月,无发热、午后潮热,有多汗、盗汗,大便呈糊状,每天3~4次。腹部B超及CT均提示:中量腹水,肝、胆、胰、脾及双肾正常。胃镜及肠镜均无异常发现。腹水为渗出性,以淋巴细胞为主,普通细菌培养阴性,未找到肿瘤细胞。为明确诊断
A.牛皮蝇B.纹皮蝇C.羊狂蝇D.马胃蝇E.羊虱蝇幼虫阶段寄生于羊的鼻腔或其附近的腔窦中,引起慢性鼻炎的是
临床诊疗道德的原则是
在简谐振动体系上的作用力F,与该体系上某点的()之比称为机械阻抗。
容积式泵中的往复泵的种类包括()。
技术方案中,资本金的出资形态可以是现金,也可以是经过有资格的资产评估机构评估作价的其他形式出资,但不包括()。
1.6月23日傍晚时分,十年来最大一场雨“空袭”京城。雨一直下,越下越大,陶然亭地铁站变成了“水帘洞”,西客站附近的莲花桥下变成了“游泳池”,南二环主路右安门路段断路,在大望路、安华桥这些地方,那些底盘高的SUV(运动型越野车)或许还能涉水缓慢前
ThemainroadthroughLittleburywasblockedforthreehourstodayafteranaccident______twoLorries.(1996年考试真题)
Don’tbringRoberttothepicnic.He’ssuchawet______.
最新回复
(
0
)