1、国家二级 VB机试（上机操作）模拟试卷 378及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面和代码)。 (1)在名称为 Form1，标题为“组合框”的窗体上画 1个名称为 Combo1的组合框，利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图 337所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上画一个名称为 Image1的图像框，并通过属性窗口为其装入考生文件夹中的图标文件
2、 CARSico；再画一个名称为 Timerl1的计时器，一个名称为Command1、标题为“开始”的命令按钮，如图 338所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)考生文件夹中有工程文件 sjt3vbp。程序运行时，单击窗体，则开始每隔 5秒钟在文本框中显示一次当前时间，文本框中文字的颜色每隔 8秒在红色(颜色值为&HFF)与黑色(颜色值为 0)之间切换。在给出的窗体文件中已经有了全部控件，但程序不完整。 要求：去掉程序中的注释符，把程序中的“?”改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后，程序按原文件名存盘。 (2)在考生目录
3、下有一个工程文件 sjt4vbp。程序的功能是，单击“产生随机数”按钮可以产生 10个随机数放到数组中并显示在图片框中，在文本框中输入一个小于 10的正整数 m，单击“移动数据”按钮，可以把数组中的前 m个数据移动到后面去，并显示在图片框中。如图 339所示。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下有工程文件 sjt5vbp 和数据文件 in5txt。in5txt 中有多条记录，每条记录占一行，含 4个数据项，数据项的含义依次是：姓名、数学成绩、语文成绩、英语成绩。 窗体上按钮“读取数据”的功能是把 in5txt 中的所有记录读到数组 a中(每个数组元
4、素中有一条记录)；按钮“排序”的功能是按总分从大到小排序，结果仍放在数组 a中；按钮“保存”的功能是存盘，其代码已经给出，不能修改。 请将事件过程中的注释符去掉，把“?”改为正确的内容，并编写“排序”按钮的事件过程。 注意：考生不得修改窗体文件中已经存在的控件和程序，必须运行程序，并依次按下“读入数据”、“排序”、“保存”按钮，否则无成绩，最后将程序按原文件名存盘。（分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 378答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic应用程序(包括界面
5、和代码)。 (1)在名称为 Form1，标题为“组合框”的窗体上画 1个名称为 Combo1的组合框，利用属性窗口设置适当属性使其在程序刚开始运行时的界面如图 337所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sjt1frm。 (2)在名称为 Form1的窗体上画一个名称为 Image1的图像框，并通过属性窗口为其装入考生文件夹中的图标文件 CARSico；再画一个名称为 Timerl1的计时器，一个名称为Command1、标题为“开始”的命令按钮，如图 338所示。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：新建一个“
6、标准 EXE”工程，在窗体 Form1中加入一个组合框。按表 425设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中加入一个图像框、一个定时器和一个命令按钮。按表 426设置其相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)考生文件夹中有工程文件 sjt3vbp。程序运行时，单击窗体，则开始每隔 5秒钟在文本框中显示一次当前时间，文本框中文字的颜色每隔 8秒在红色(颜色值为&HFF)与黑色(颜色值为 0)之间切换。在给出的窗体文件中已经有了全部控件，但程序不完整。 要求：去掉
7、程序中的注释符，把程序中的“?”改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后，程序按原文件名存盘。 (2)在考生目录下有一个工程文件 sjt4vbp。程序的功能是，单击“产生随机数”按钮可以产生 10个随机数放到数组中并显示在图片框中，在文本框中输入一个小于 10的正整数 m，单击“移动数据”按钮，可以把数组中的前 m个数据移动到后面去，并显示在图片框中。如图 339所示。 （分数：2.00）_正确答案：(正确答案：(1)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt3vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号“?”改为正确的内容。参考代码
8、： Timer1EnabledTrue Timer1Interval1000 nn1 If Text1ForeColor0 Then 步骤 2：按要求将文件保存至考生文件夹中。 (2)【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件sjt4vbp，在代码编辑窗口中，去掉程序中的注释符“”将问号“?”改为正确的内容。参考代码： MoveArray a()，m For k1 To m a(j)a(j1) a(n)x 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下有工程文件 sjt5vbp 和数据文件 in5txt。in5txt
9、中有多条记录，每条记录占一行，含 4个数据项，数据项的含义依次是：姓名、数学成绩、语文成绩、英语成绩。 窗体上按钮“读取数据”的功能是把 in5txt 中的所有记录读到数组 a中(每个数组元素中有一条记录)；按钮“排序”的功能是按总分从大到小排序，结果仍放在数组 a中；按钮“保存”的功能是存盘，其代码已经给出，不能修改。 请将事件过程中的注释符去掉，把“?”改为正确的内容，并编写“排序”按钮的事件过程。 注意：考生不得修改窗体文件中已经存在的控件和程序，必须运行程序，并依次按下“读入数据”、“排序”、“保存”按钮，否则无成绩，最后将程序按原文件名存盘。（分数：2.00）_正确答案：(正确答案：
10、【操作步骤】 Do While Not EOF(1) numk1 Private Sub Command2 C1iCk() =考试编写= Dim k As Integer，j As Integer Dim temp As rec For i1 To num1 ki For ji1 To num If sum(k) sum(j)Then kj End If Next j tempa(i)：a(i)a(k) a(k)temp Next i For k1 To hum Print a(k)name；a(k)Math； a(k)Chinese；a(k)English Next k = 步骤 2：按F5键运行程序，单击各个按钮测试验证。 步骤 3：按要求将文件保存至考生文件夹中。)解析：
