首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有工程文件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
40
问题
在考生目录下有工程文件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全国计算机二级
相关试题推荐
若要清除列表框的所有内容,则实现的方法是()。
设在工程中有一个标准模块,其中定义了如下类型:TypestutypeinoAsIntegerstrnameAsString*20strsexAsString*1smarkAsSingleEn
如果不指明函数过程参数的类型,则该参数的数据类型为______。
要使菜单项MenuOne在程序运行时失效,使用的语句是
执行下列程序后,鼠标单击窗体,输出结果为PrivateSubForm_Click() Print"Click":EndSubPrivateSubForm_MouseDown(ButtonAsInteger,S
单击命令按钮时,下列程序的执行结果是PrivateSubCommand1_Click()DimaAsInteger,bAsInteger,cAsInteger a=3:b=4:c=5 PrintSec
对已在窗体中控件的操作不正确的是()。
在程序运行时,如果将框架的______属性设为False,则框架的标题呈灰色,同时框架内的所有对象均被屏蔽,不允许用户对其进行操作。
要使文本框获得输入焦点,则应采用文本框控件的方法是
随机试题
2022年10月22日,中国共产党第二十次全国代表大会审议并一致通过十九届中央委员会提出的《中国共产党章程(修正案)》。下列关于这一修正案的表述,正确的有:①把充分发挥人才作为第一资源的作用写入党章②把党是最高政治领导力量,坚持和加强党的全面领导写入党
患儿女性,13岁,因“头晕I周,发作性四肢无力3天”入院。1周前活动时出现头晕,当地医院测血压180/100mmHg,给予降压药物(具体不详),头晕症状好转。此后头晕时有发作,平素不规律服用降压药,仅发作时服用上述药物,症状好转即自行停药,血压控制在150
下列方法中不属于肺癌定性诊断方法的是
黄酮类化合物可与浓硫酸形成|YANG|盐是因为分子中含有
小儿呼吸道感染可服用琥乙红霉素颗粒,一位体重为10kg的儿童所需剂量为50mg/(kg·d),分4次服用,一次剂量应为
A.酪氨酸结晶B.胆红素结晶C.尿酸结晶D.草酸结晶E.磺胺结晶常见于痛风患者的尿沉渣结晶类型是()。
某机关2011年4月购车一辆,随购车支付的下列款项中,应并入计税依据征收车辆购置税的有()。(2011年)
针对某计算机平台开发的软件系统,其(11)越高,越不利于该软件系统的移植。
Theautomobileisthegreatestconsumerofpublicandpersonalspace.InLosAngeles,theautomobiletown,BarbaraWardfoundth
Weusuallythinkofpollutionasaharmfulwastesubstancethatthreatenstheairandwater.【C1】______somepeoplehavebecome【C2
最新回复
(
0
)