首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有工程文件sjt5.vbp和文本文件:in5.txt,in5.txt中有不超过100个4位正整数。窗体上有2个命令按钮,其功能是:单击“读入数据”按钮,可以读入in5.txt文件中的所有数,并显示在文本框中。单击“计算并保存”按钮,能够把满足下
在考生目录下有工程文件sjt5.vbp和文本文件:in5.txt,in5.txt中有不超过100个4位正整数。窗体上有2个命令按钮,其功能是:单击“读入数据”按钮,可以读入in5.txt文件中的所有数,并显示在文本框中。单击“计算并保存”按钮,能够把满足下
admin
2018-06-29
37
问题
在考生目录下有工程文件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,num 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 hum=k-1 For k=1 To RUm Text1=Text1&a(k)&"" Next k End Sub Private Sub Command2_Click() Dim sum As Long,n As Integer,s As Integer Dim j As Integer sum=0:n=0 For i=1 T0 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 #l Print #1,n,sum Close #1 End Sub 步骤3:调试并运行程序,关闭程序后按题目要求存盘。
解析
Command1_Click事件过程中使用Open语句打开文件,并通过Do While循环依次将文件中的数据读入到数组中,并保存读入元素的个数;Command2_Click事件过程中通过For循环取出每个元素,然后拆分出每个数组元素的个位,十位,百位和千位,并将各位数字累加到变量s中,再通过If语句判断s能否被5整除,并将满足条件的元素累加到变量slim中。
转载请注明原文地址:https://jikaoti.com/ti/tsy0FFFM
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
在窗体上画一个名称为Commandl的命令按钮,并编写如下程序:OptionBase1PrivateSubCommandl-Click()Dima(4,4)Fori=lTo4Forj=1To
(1)在考生文件夹下有一个工程文件sjt3.vbp,含有两个窗体,名称分别为。ForTnl、Form2。其中,Forml上有两个控件(图像框和计时器)和一个菜单项“操作”,含有三个子菜单(如图l所示)。Form2上有一个,名称为Commandl、标题为“
编写如下程序:PrivateSubCommandl_Click()DimiAsInteger,jAsIntegern=InputBox(“输入一个大于1的正整数”)Fori=2TonF
下列说法中,不属于数据模型所描述的内容的是()。
(1)在名称为Forml的窗体上添加一个名称为Labell、标题为“设置速度”的标签,通过属性窗口把标签的大小设置为自动调整。添加一个名称为HScrolll的水平滚动条,通过属性窗口设置适当属性使滚动条的最小值为l,最大值为80,单击滚动条两端的箭头时,滚
在窗体上画一个名称为Textl的文本框和一个名称为Commandl的命令按钮,然后编写如下事件过程:PrivateSubCommandl_Click()Dimarrayl(10,10)AsInteger
在窗体上画一个命令按钮和一个文本框,其名称分别为Commandl和Textl,把文本框的Text属性设置为空白,然后编写如下事件过程:PrivateSubCommandl_Click()a=InputBox(“En
在考生文件夹下有一个工程文件sjt5.vbp,界面如图所示,其功能如下:①单击“读数据”按钮,则把考生文件夹下文件in5.dat中的12组整数(其中每组含有10个数,共计120个整数)读到数组a中;②单击“计算”按钮,则对每组数求平均
设在当前目录下有一个名为“file.txt”的文本文件,其中有若干行文本。编写如下程序:PrivateSubCommandl_Click()Dimch$.asciiAsIntegerOpen“file.t
随机试题
根据轴所受的载荷不同,可将轴分为哪几类?
A.癫病B.假神C.狂病D.痫病E.失神患者烦躁不宁,呼号怒骂,打人毁物,不避亲疏,属于()。
对于多孔桥梁,应根据桥梁技术状况检验评定情况,选择2~3孔进行承载能力检测评定。()
投资利润率是建设项目在生产期内()。
流动性偏好理论指出货币需求是由三类动机决定的,其中包括()。
与纸介质出版物相比,电子出版物的审读不同在于()。
所给四个选项中与示例图形有共性的一项是:
要对社会现象作出正确的分析判断,即使是地区性的,也一定要走进现实社会中进行调查研究,绝不能凭空臆度。要明白事情的因果关系,建立有关的理论,不能没有现实资料,以供验证理论之用。所以()。
为了每秒钟发生一次计时器事件,可以将Interval属性设置为()。
Practicallyspeakingtheartisticmaturingofthecinemawasthesingle-handedachievementofDavidW.Griffith.BeforeGriffith
最新回复
(
0
)