首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有工程文件sjt5.vbp和文本文件in5.txt,in5.txt中有不超过100个4位正整数。窗体上有2个命令按钮,其功能是:单击“读入数据”按钮,可以读入in.5.txt文件中的所有数,并显示在文本框中。单击“计算并保存”按钮,能够把满足下
在考生目录下有工程文件sjt5.vbp和文本文件in5.txt,in5.txt中有不超过100个4位正整数。窗体上有2个命令按钮,其功能是:单击“读入数据”按钮,可以读入in.5.txt文件中的所有数,并显示在文本框中。单击“计算并保存”按钮,能够把满足下
admin
2019-06-20
65
问题
在考生目录下有工程文件sjt5.vbp和文本文件in5.txt,in5.txt中有不超过100个4位正整数。窗体上有2个命令按钮,其功能是:单击“读入数据”按钮,可以读入in.5.txt文件中的所有数,并显示在文本框中。单击“计算并保存”按钮,能够把满足下述条件的整数的个数,以及这些数的累加和存入out5.txt文件。这些数需满足的条件是:数中各位数字累加后能够被5整除(例如:5235各位数字累加和是15,能够被5整除,所以是满足条件的数)。
要求:
1)把“读入数据”按钮的Click事件过程中的?改为正确的内容;
2)为“计算并保存”按钮的Click事件过程编写代码。(事件过程的最后一行用于存盘,已经给出,考生不得修改,否则无成绩!)。
注意:不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
选项
答案
【操作步骤】 步骤1:打开本题项目工程。 步骤2:打开代码编辑窗口,去掉程序中的注释符“’”,将问号改为正确的内容,并在“考生编写的代码”区域填入相应的代码以实现题目的功能。 Option Base 1 Dim a(100)As Integer,hum 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 num Text1=Text1&a(k)&”” Next k End Sub Private Sub Command2_Click() Dim sum As Long,n As Integer,s As Integer Dim i AsInteger 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)\100 If a Mod 5=0 Then sum=sum+n(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:调试并运行程序,关闭程序后按题目要求存盘。
解析
转载请注明原文地址:https://kaotiyun.com/show/wcUp777K
本试题收录于:
二级VB题库NCRE全国计算机二级分类
0
二级VB
NCRE全国计算机二级
相关试题推荐
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在名称为Forml的窗体上建立一个名称为cmdArray的命令按钮数组,含3个命令按钮,它们的Index属性分别为0、1、2,标题依次为“是”、“否”、“取消”,
在考生文件夹下,存在一个数据库文件“samp1.accdb”,里边已经设计好了表对象“tDoctor”、“tOffice”、“tPatient”和“tSubscribe”,同时还设计了窗体对象“fSubscr4be”。试按以下操作要求,完成各种操作。
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计了表对象“tEmp”、窗体对象“fEmp”、宏对象“mEmp”和报表对象“rEmp”。同时,给出窗体对象“fEmp”的“加载”事件和“预览”及“打印”两个命令按钮的单击事件代码,请按以下
在考生文件夹下有一个数据库文件“samp3.acedb”,里而已经设计好表对象“tBorrow”、“tReader”和“tRook”,查询对象“qT”,窗体对象“fReader”,报表对象“rReader。”和宏对象“rpt”。请在此基础上按以下要求补充设
在窗体上有2个图片框,名称分别为Picture1和Picture2,Picture2中添加了香蕉图片(见图3),且将Picture2.DragMode属性设置为1。要求程序运行时,可以用鼠标把Picture2拖拽到Picture1中(见图4)。以下可以实现
在E盘当前目录文件夹下建立一个名为“Student.txt”的随机文件,要求用InputBox函数输入5个学生的姓名(StuName)、年级(StuGrade)和年龄(StuAge)。在程序中有以下记录类型和窗体的事件过程,请选择正确的语句完成程序(
数学式子5+(a+b)×2对应的VisualBasic表达式是()。
以下关系表达式中,其值为True的是
(1)在名称为Form1的窗体上画一个名称为Framel、标题为“目的地”的框架,在框架中添加三个复选框,名称分别为Checkl、Check2、Check3,其标题分别是“上海”、“广州”、“巴黎”,其中“上海”为选中状态,“广州”为未选状态,“巴黎”
随机试题
并励直流电动机励磁电压等于电动机的额定电压。()
y=xlnx的极值与极值点.
患者,女,42岁,近几年来经量增多,经期延长。近2~3个月常感头晕、乏力。妇科检查:子宫呈不规则增大,如孕4个月大小,表面结节状突起,质硬。为明确诊断首要的检查是
甲系某医院外科医师,应邀在朋友乙的私人诊所兼职期间,擅自为多人进行了节育复通手术。对甲的行为应当如何定性?
下列属于会计规范性文件的有()。
在给客户进行住房消费支出规划时,首先要确定客户的需求,理财规划师在帮助客户确定其购房需求时应遵循一定的原则,下列对这些原则的描述错误的是( )。
根据《期货交易所管理办法》的规定,实行会员分级结算制度的期货交易所应当建立结算担保金制度。结算担保金包括( )。
从银行角度来讲,资产转换周期是银行信贷资金由金融资本转化为实物资本,再由实物资本转化为金融资本的过程。()
主张艺术起源于游戏,并著有《美育书简》的德国美学家是()。
今日は私の誕生日パーティーに来て________、ありがとう。
最新回复
(
0
)