2. 计算机
  3. 在考生目录下有工程文件sjt5．vbp和文本文件in5．txt，in5．txt中有不超过100个4位正整数。窗体上有2个命令按钮，其功能是：单击“读入数据”按钮，可以读入in5．txt文件中的所有数，并显示在文本框中。单击“计算并保存”按钮，能够把满足下述

在考生目录下有工程文件sjt5．vbp和文本文件in5．txt，in5．txt中有不超过100个4位正整数。窗体上有2个命令按钮，其功能是：单击“读入数据”按钮，可以读入in5．txt文件中的所有数，并显示在文本框中。单击“计算并保存”按钮，能够把满足下述

admin2016-08-24  65
问题 在考生目录下有工程文件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全国计算机二级

相关试题推荐
随机试题
最新回复(0)