2. 计算机
  3. (1)考生文件夹下的工程文件sjt3．vbp中有一个初始内容为空、且带有垂直滚动条的文本框，其名称为Text1：两个标题分别为“读数据”和“查找”的命令按钮，其名称分别为Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1，再画一个名称为Tex

(1)考生文件夹下的工程文件sjt3．vbp中有一个初始内容为空、且带有垂直滚动条的文本框，其名称为Text1：两个标题分别为“读数据”和“查找”的命令按钮，其名称分别为Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1，再画一个名称为Tex

admin2017-03-27  29
问题 (1)考生文件夹下的工程文件sjt3．vbp中有一个初始内容为空、且带有垂直滚动条的文本框，其名称为Text1：两个标题分别为“读数据”和“查找”的命令按钮，其名称分别为Cmd1、Cmd2。请画一个标题为“查找结果”的标签Label1，再画一个名称为Text2，其初始内容为空的文本框，如图3—104所示。程序功能如下：
①单击“读数据”按钮，则将考生文件夹下in3．dat文件中已按升序排列的30个整数读入一维数组a中，并同时显示在Text1文本框内；
②单击“查找”按钮，将弹出输入框接收用户输入的任意一个偶数，若接收的数为奇数，则提示重新输入。如果接收的偶数超出一维数组a的数值范围，则无须进行相应查找工作，直接在Text2内给出结果；否则，在一维数组a中查找该数，并根据查找结果在Text2文本框内显示相应信息。命令按钮的Click事件过程已给出，但“查找”按钮的Click事件过程不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
(2)考生文件夹下的工程文件sjt4．vbp中有一个初始内容为空的文本框Text1，一个包含三个元素的文本框控件数组Text2，两个标题分别是“读数据”和“统计”的命令按钮，两个分别含有三个元素的标签控件数组Label1和Label2，如图3—105所示。程序功能如下：
①考生文件夹下in4．dat文件中存有20个考生的考号及数学和语文单科考试成绩。单击“读数据”按钮，可以将in4．dat文件内容读入到20行3列的二维数组a中，并同时显示在Text1文本框内；
②单击“统计”按钮，则对考生数学和语文的平均分在“优秀”、“通过”和“不通过”三个分数段的人数进行统计，并将人数统计结果显示在控件数组Text2中相应位置。其中，平均分在85分以上(含85分)为“优秀”，平均分在60～85分之间(含60分)为“通过”，平均分在60分以下为“不通过”。
命令按钮的Click事件过程已经给出，但“统计”按钮的Click事件过程不完整，请将其中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。
注意：考生不得修改窗体文件中已经存在的控件和程序，最后程序按原文件名存盘。
选项
答案第1小题 步骤1：打开考生文件夹下的工程文件sjt3．vbp，打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： If num／2＜＞Fix(num／2)Then If num＜a(1)Or num＞a(30)Then If a(n)=num Then If n＞30Then 步骤2：按要求将文件保存至考生文件夹中。 第2小题 步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，打开代码编辑窗口，去掉程序中的注释符“’”，将问号“?”改为正确的内容。 参考代码： Avg=(a(i，2)+a(i，3))／2 Case Is＞=85 Case60To84 End Select Text2(n-1)=x(n) 步骤2：按要求将文件保存至考生文件夹中。
解析 第1小题：在“查找”按钮的单击事件中，首先使用变量num接收输入框的值，然后判断num是否为偶数，如果为奇数(hum／2＜＞Fix(num／2))则提示错误信息；由于数组a是升序排列的，因此如果num的值小于a(1)或嚣大于a(30)则意味着超出范围：接下来使用For循环遍历整个数组，如果某次循环中数组元素等于num的值则意味着找到，可以退出循环；当循环结束后如果n的值大于30则表明循环是正常结束的，没有找到这个元素。
第2小题：本题要求编写“统计”按钮的单击事件过程。程序设计思路：在一个For循环中逐一取出存于数组a中的各学生成绩，将同一行的两个成绩取平均值后用Select Case语句对平均值进行判断，根据成绩所属情况，使对应的x数组元素中的数增1，最后显示在文本框数组中。
转载请注明原文地址:https://jikaoti.com/ti/Cgy0FFFM
本试题收录于： 二级VB题库NCRE全国计算机二级分类
0

二级VB

NCRE全国计算机二级

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