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

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

admin2018-03-20  31
问题 在考生目录下有工程文件sjt5．vbp和文本文件in5．txt，in5．眦中有不超过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，k－1 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 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/s0Gp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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