2. 计算机
  3. 在考生文件夹下有一个工程文件sj5．vbp，窗体上有一个文本框，名称为Textl，可以多行显示。还有三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按

在考生文件夹下有一个工程文件sj5．vbp，窗体上有一个文本框，名称为Textl，可以多行显示。还有三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按

admin2009-03-26  51
问题 在考生文件夹下有一个工程文件sj5．vbp，窗体上有一个文本框，名称为Textl，可以多行显示。还有三个命令按钮，名称分别为Commandl、Command2和Command3，标题分别为“读取数据”、“显示并保存奇数”和“显示并保存偶数”。“读取数据”按钮的功能是把考生文件夹下的in5．dat文件中的50个整数读到数组中，并在Textl中显示出来；“显示并保存奇数”和“显示并保存偶数”按钮的功能是把50个数按要求保存到考生文件夹下的out51．dat和out52．dat文件中。单击“读取数据”
命令按钮后，程序运行时的窗体界面如图52—5所示。

    注意：在窗体中已经给出了全部控件和部分程序，要求阅读程序并去掉程序中的注释符“’”，把程序中的“?”改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。最后把修改后的文件按原文件名存盘。
选项
答案 根据题意，将一个Text控件和3个Command控件添加到窗体上，Text的名称为Textl，Text属性为空、MuhiLIne属性为True,ScrollBar属性为2，Command的名称分别为Commandl、Command2和Command3、Caption属性分别为“读取数据”“显示并保存奇数”和“显示并保存偶数”。双击Commandl命令按钮，编写如下代码： Dim a(50)As Integer Private Sub Commandl_Click() Dim i As Integer Dim str As String str="" Open"App．Path&＼in5．dat"For Input As#l For i=1 To 50’利用For循环将数据读取到数组中 Input#1，a(i) str=str+CStr(a(i))+"" ’将数组放到字符串中 Next i Close#1 Textl．Text=str’将结果显示在Textl上 End Sub Private Sub Command2 Click() Dim i As Integer Dim str As String str="" For i=1 To 50 If a(i)Mod 2=1 Then str=str+CStr(a(i))+" End If Next i Textl．Text=str Open"App．Path&＼out51．dat"For Output As#1 Print#1，str Close#1 End Sub Private Sub Command3_Click() Dim i As Integer Dim str As String str="" For i=1 To 50’利用For循环遍历数组 If a(i)Mod 2=0 Then’如果是偶数 str=str+CStr(a(i))+"" ’则加入到字符串中 End If Next i Textl．Text=str’将得到的字符串显示在Textl上 Open"App．Path&＼out52．dat"For Output As#1’打开文件准备写入 Print#1，str’将结果写入文件中 Close#1 End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/sN1p777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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