2. 计算机
  3. 在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读人数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Textl，MultiLine属性设置为True，scrollBars属性设置为2(如图42—6所示)。程序运行后

在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读人数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Textl，MultiLine属性设置为True，scrollBars属性设置为2(如图42—6所示)。程序运行后

admin2010-07-13  71
问题 在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读人数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Textl，MultiLine属性设置为True，scrollBars属性设置为2(如图42—6所示)。程序运行后。如果执行“读人数据”命令，则读入考生文件夹下datainl．txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataoLlt．txt文件中。
    在考生文件夹下有一个工程文件sj5．vbp，窗体文件中的ReadData过程可以把datainl．txt文件中的100个整数读人Arr数组中；而WriteData过程可以把指定的整数值写到考生文件夹下指定的文件中(整数值通过计算求得，文件名为dataout．txt)。

注意：考生不得修改窗体文件中已经存在的程序。存盘时，工程文件名仍保存为sj5．vbp，窗体文件名仍保存为sj5．frm。
选项
答案本题考查文本框的Name、MuhiLine、ScrollBars和Text属性，文件操作，菜单编辑器的使用，Arr()函数以及Space()函数。根据题意，新建“标准EXE”工程，利用菜单设计器，按表中的设置建立菜单项，如下表： [*] 并将文本框控件添加到窗体中，名称为Textl，MuhiLine属性为True，ScrollBars属性为2，Text属性为空，双击进入代码窗口，编写如下代码： Dim sum As Integer Private Sub Calc Click() Textl．Text="" For i=2 To 100 Step 2 Textl．Text：Textl．Text&Arr(i)&Space(5) sum=sum+Arr(i) Next i Print sum End Sub Private Sub Read_Click() ReadData End Sub Private Sub Save Click() WriteData"dataout．txt"，sum End Sub 单击[*]按钮运行程序，并按要求保存。
解析
转载请注明原文地址:https://www.kaotiyun.com/show/yGmp777K
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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