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

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

admin2019-06-20  44
问题 在考生目录下有工程文件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全国计算机二级

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