首页
外语
计算机
考研
公务员
职业资格
财经
工程
司法
医学
专升本
自考
实用职业技能
登录
计算机
在考生目录下有工程文件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
78
问题
在考生目录下有工程文件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的窗体上画一个名称为Shapel的圆角矩形,高、宽分别为1000、2000。请利用属性窗口设置适当的属性满足以下要求:①圆角矩形中填满绿
请根据以下各小题的要求设计VisualBasic应用程序(包括界面和代码)。(1)在标题为“列表框”、名称为Forml的窗体上画一个名称为List1列表框,通过属性窗口输入四个列表项:“数学”、“语文”、“历史”、“地理”,列表项采用“复选框形
在考生文件夹下有一个数据库文件“samp2.accdb”,里面已经设计好两个表对象“tA”和“tB,请按以下要求完成设计。(1)创建一个查询,查找井显示6月份入住客人的“姓名”、“房问号”、“电话”和“入住口期”4个字段的内容,将查询命名为“qT
在考生文件夹下,存在一个数据库文件“samp1.accdb”,里而已经设计好表对象“tStud”,请按照以下要求,完成对表的修改。(1)将“年龄”字段的字段大小改为“整型”;将“简历”字段的说明设置为“自上大学起的简历信息”;将“备注”字段删除。
考生文件夹下有一个数据库文件“samp3.accdb”,其中存在已经设计好的窗体对象“ffest”及宏对象“m1”。请在此基础上按照以下要求补充窗体设计。(1)在窗体的窗体页眉节区中添加一个标签控件,名称为“bTide”,标题为“窗体测试样例”。
在考生文件夹下有一个数据库文件“samp3.accdb”,里面已经设计好表对象“产品”、“供应商”,查询对象“按供应商查询”和宏对象“打开产品表”、“运行查询”、“关闭窗口”。请按以下要求完成设计。创建一个名为“menu”的窗体,要求如下:
设a=2,b=3,c=4,d=5,下列表达式的值是()。3>2*bOra=cAndb<>cOrb<>a+c
要建立一个随机文件记录学生的信息,如下定义的学生记录类型,由学号、姓名和5门课程成绩(百分制)组成,下列的定义正确的是()。
设a=2,b=3,c=4,d=5,表达式Nota
表达式Str(Len("123"))+Str(77.7)的值是()。
随机试题
临床试验的目的是()。
倒置显微镜的最大放大率是
天南星的功效是()
A、炙麻:黄B、九孔石决明C、绵茵陈D、江枳壳E、明天麻注明质地的药物是
某机关拟辞退以下4位公务员,其中哪些不符合《公务员法》的有关规定?()
关于热力管道安装要求的表述,正确的是()。
假释的适用对象是()。
Whatisthispassagetalkingabout?
A、Itiswelldesigned.B、Itisratherinflexible.C、Itvariesamonguniversities.D、Ithasundergonegreatchanges.B
Mybrotherwasfinedforspeeding.He____________________(不应该开这么快).
最新回复
(
0
)