应用题
1. 在窗体上建立三个菜单(名称分别为Read、Calc和Save，标题分别为“读入数据”、“计算并输出”和“存盘”)，然后再添加一个文本框，名称为Text1，MultiLine属性设置为True，ScrollBars属性设置为2(如图所示)。程序运行后，如果执行“读入数据”命令，则读入考生文件夹下datain1.txt文件中的100个整数，放入一个数组中，数组的下界为1；如果单击“计算并输出”按钮，则把该数组中下标为偶数的元素在文本框中显示出来，求出它们的和，并把所求得的和在窗体上显示出来；如果单击“存盘”按钮，则把所求得的和存入考生文件夹下的dataout.txt文件中。
【正确答案】【操作步骤】
步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性及其值见表1和表2。
步骤2：打开代码编辑窗口，在代码编辑窗口指定位置编写以下代码。
参考答案
'需要考生编写的内容
Dim sum As integer
'考生编写程序结束
'需要考生编写的内容
Private Sub Calc_Click()
Text1.Text=""
For i=2 To 100 Step 2 '从2开始循环，以2为步长的下标都是偶数
Text1.Text=Text1.Text&Arr (i)&Space(5)
sum=sum+Arr(i) '对下标为偶数的值求和
Next i
Print sum
End Sub
Private Sub Read_Click()
ReadData '调用ReadData子过程
End Sub
Private Sub Save_Click() '调用Save_Click函数
WriteData "dataout.txt",sum
End Sub
'考生编写程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】调用WriteData过程时需传递参数dataout.txt和sum，变量sum应为窗体变量。
步骤1：打开本题工程文件，利用菜单设计器，按表中的设置建立菜单项，在窗体Form1中绘制一个文本框，其相关属性及其值见表1和表2。
| 表1 | |||||||||||||||||||||||||
| 标题 | 读入数据 | 计算并输出 | 存盘 | ||||||||||||||||||||||
| 名称 | Read | Calc | Save | ||||||||||||||||||||||
| 内缩符号 | 0 | 0 | 0 | ||||||||||||||||||||||
| 表2 | ||||||||||||||||||||||||
| 控件 | 文本框 | |||||||||||||||||||||||
| 属性 | Name | MultiLine | ScrollBars | Text | ||||||||||||||||||||
| 设置值 | Text1 | True | 2 | |||||||||||||||||||||
参考答案
'需要考生编写的内容
Dim sum As integer
'考生编写程序结束
'需要考生编写的内容
Private Sub Calc_Click()
Text1.Text=""
For i=2 To 100 Step 2 '从2开始循环，以2为步长的下标都是偶数
Text1.Text=Text1.Text&Arr (i)&Space(5)
sum=sum+Arr(i) '对下标为偶数的值求和
Next i
Print sum
End Sub
Private Sub Read_Click()
ReadData '调用ReadData子过程
End Sub
Private Sub Save_Click() '调用Save_Click函数
WriteData "dataout.txt",sum
End Sub
'考生编写程序结束
步骤3：调试并运行程序，关闭程序后按题目要求存盘。
【易错提示】调用WriteData过程时需传递参数dataout.txt和sum，变量sum应为窗体变量。
【答案解析】[考点] 本题考点有：文本框的Name、MultiLine、ScrollBars和Text属性，文件操作，菜单编辑器的使用(名称、标题、内缩符号)，Arr()函数以及Space()函数。
根据题意在“读入数据”命令的Click事件过程中，通过调用ReadData过程将数据从datain1.txt文件读入到数组Arr(窗体变量)中；在“计算并输出”命令的Click事件过程中，在For循环语句(循环变量i的初值为2，终值为100，步长为2)中依次将数组Arr中下标为偶数的元素显示在文本框中，并将其值累加到变量sum；在“存盘”命令的Click事件过程中，通过调用WriteData过程将sum的值写入数据文件dataout.txt中。
根据题意在“读入数据”命令的Click事件过程中，通过调用ReadData过程将数据从datain1.txt文件读入到数组Arr(窗体变量)中；在“计算并输出”命令的Click事件过程中，在For循环语句(循环变量i的初值为2，终值为100，步长为2)中依次将数组Arr中下标为偶数的元素显示在文本框中，并将其值累加到变量sum；在“存盘”命令的Click事件过程中，通过调用WriteData过程将sum的值写入数据文件dataout.txt中。