国家二级VB机试（上机操作）模拟试卷293
基本操作题
1.请根据以下各小题的要求设计Visual Basic应用程序(包括界面和代码)。
(1)在名称为Form1、标题为“列表框练习”的窗体上画一个名称为List1的列表框，表项内容依次输入xxx、ddd、mmm和aaa，且以宋体14号字显示表项内容，如图3—102(a)所示。最后设置相应属性，使运行后列表框中的表项按字母升序方式排列，如图3—102(b)所示。
注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为sjt1．frm，工程文件名为sjt1．vbp。
(2)在名称为Form1的窗体上，画一个名称为Label1的标签，其标题为“计算机等级考试”，字体为宋体，字号为12号，且能根据标题内容自动调整标签的大小。再画两个名称分别为Command1、Command2，标题分别为“缩小”和“还原”的命令按钮(如图3—103所示)。
要求：编写适当的事件过程，使得单击“缩小”按钮，Label1中所显示的标题内容自动减小两个字号；单击“还原”按钮，Label1所显示的标题内容的大小自动恢复到12号。
注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sjt2．frm，工程文件名为sjt2．vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。
第1小题
步骤1：新建一个“标准EXE”工程，如表4—62在窗体中画出控件并设置其相关属性。
[*]
步骤2：按要求将文件保存至考生文件夹中。
第2小题
步骤1：新建一个“标准EXE”工程，如表4—63在窗体中画出控件并设置其相关属性。
[*]
步骤2：打开代码编辑窗口，编写两个命令按钮的Click事件过程。
参考代码：
Private Sub Command1_Click()
Label1．FontSize=Label1．FontSize-2
End Sub
Private Sub Command2_Click()
Label1．FontSize=12
End Sub
步骤3：按要求将文件保存至考生文件夹中。
解析：第1小题：本题只需新建窗体和控件，然后设置相关属性即可。
第2小题：程序运行时要改变标签的标题的字体大小，可通过修改其FontSize属性值来实现。
简单应用题
2.(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，最后显示在文本框数组中。
综合应用题
3.考生文件夹下的工程文件sjt5．vbp中有一个初始内容为空的文本框Text1，两个标题分别是“读数据”和“计算”的命令按钮；请画一个标题为“各行平均数的最大值为”的标签Label2，再画一个初始内容为空的文本框Text2，如图3—106所示。
程序功能：
①单击“读数据”按钮，则将考生文件夹下in5．dat文件的内容读入20行5列的二维数组a中，并同时显示在Text1文本框内；
②单击“计算”按钮，则自动统计二维数组a中各行的平均数，并将这些平均数中的最大值显示在Text2文本框内。
“读数据”按钮的Click事件过程已经给出，请编写“计算”按钮的Click事
本文档预览：3600字符，共4488字符，源文件无水印，下载后包含无答案版和有答案版，查看完整word版点下载
