1、国家二级 VB 机试（上机操作）-试卷 88 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应刚程序(包括界面和代码)。 (1)在名称为 Forml、标题为“图片”的窗体上画一个名称为 Imagel 的图像框，其高为 2500、宽为 2000。请通过属性窗口设置适当属性，装入考生只录下的图片文件 picljpg，并使图片适应图像框的大小(如图 2135 所示)。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forml 的
2、窗体上画一个名称为 Label1、标题为“口令”的标签；画一个名称为 Textl 的文本框；再画三个命令按钮，名称分别为 Commandl、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。 程序运行时，在Text1 中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”，如图 2136(b)所示；单击“显示口令”按钮，则显示输入的字符，如图 2136(a)所示，单出“重新输入”按钮，则清除 Textl 中的内容，并把光标定位到 Textl 中。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件
3、 sit3vbp，相应的窗体文件为 sit3frm，包含了所有控件和部分程序，如图 290 所示。要求如下： 利用属性窗口向列表框添加四个项目：VisualBasic、Turbo C、C+、Java。 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮 Optionl，然后单击“确定”按钮，则文本框中显示“笔试”；当选择列表框中的一项和单选按钮 Option2，然后单击“确定”按钮，则文本框中显示“上机”。其中“”是在列表框中所选择的项目。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作(包括列表框
4、和单选按钮)，否则不得分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个上程文件 sit4vbp，相应的窗体义件为 sjt4frm。在窗体上有一个命令按钮，其名称为 Command1，标题为“计算并输山”。程序运行后，如果单击命令按钮，程序将计算 500 以内两个数之间(包括开头和结尾的数)所有连续数的和为 1250 的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用“”连接起来，如图 291 所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名
5、保存工程文件和窗体文件 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下的工程文件 sjt5vbp 中的窗体如图 2162 所示。考生文件夹下的随机文件 in5dat 中有 20 条记录，每条记录含姓名和三个分数(均为 100 以内的正整数)。在程序中已经定义了类型Recordtype，此类型变量可以存放一条记录。要求如下： 请为“计算最大最小值”按钮编写 Click 事件过程，其功能是：读取文件中的记录，计算每人的总分，找出其中最大总分和最小总分，分别放入变量maxval，minval 中(这两个变量已经给出，不得修改)。 运行程序，单击“计算最大最小值”按钮
6、后再单击“存盘”按钮。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须依次单击“计算最大最小值”、“存盘”按钮，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 88 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应刚程序(包括界面和代码)。 (1)在名称为 Forml、标题为“图片”的窗体上画一个名称为 Imagel 的图像框，其高为 2500、宽为 2000。请通过属性窗口设置适当属性，装入考生只录下的图片文件
7、 picljpg，并使图片适应图像框的大小(如图 2135 所示)。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forml 的窗体上画一个名称为 Label1、标题为“口令”的标签；画一个名称为 Textl 的文本框；再画三个命令按钮，名称分别为 Commandl、Command2、Command3，标题分别为“显示口令”、“隐藏口令”、“重新输入”。 程序运行时，在Text1 中输入若干字符，单击“隐藏口令”按钮，则只显示同样数量的“*”，如图 2136(b)所示；单击“显示口令”按钮，则显示输入的字符，如图 2136(
8、a)所示，单出“重新输入”按钮，则清除 Textl 中的内容，并把光标定位到 Textl 中。 （分数：2.00）_正确答案：(正确答案：第 l 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 371 在窗体中必出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 372 在窗体中画出控件并设置其相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，相应的窗体文件为 sit3frm，包含了所有控件和部分程序，如图 290
9、所示。要求如下： 利用属性窗口向列表框添加四个项目：VisualBasic、Turbo C、C+、Java。 请编写适当的程序完成以下功能：当选择列表框中的一项和单选按钮 Optionl，然后单击“确定”按钮，则文本框中显示“笔试”；当选择列表框中的一项和单选按钮 Option2，然后单击“确定”按钮，则文本框中显示“上机”。其中“”是在列表框中所选择的项目。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一次选择操作(包括列表框和单选按钮)，否则不得分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个上程
10、文件 sit4vbp，相应的窗体义件为 sjt4frm。在窗体上有一个命令按钮，其名称为 Command1，标题为“计算并输山”。程序运行后，如果单击命令按钮，程序将计算 500 以内两个数之间(包括开头和结尾的数)所有连续数的和为 1250 的正整数，并在窗体上显示出来。这样的数有多组，程序输出每组开头和结尾的正整数，并用“”连接起来，如图 291 所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】
11、 步骤 1：打开考生文件夹下的工程文件 sjt3vbp，在窗体上选中列表框，为其 List 属性输入四个项目：Visual Basic、Turbo C、C+、Java，注意每输入一项后用+键换到下一项输入。 步骤 2：打开代码编辑窗口，编写“确定”按钮的单击事件过程。 参考代码：If OptionlValue And ListlText“” Then TextlText=ListlText&Option2Caption End If End If 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，在列表框中选择一项，并选中一个单选按钮，单击“确定”按钮，单击窗体右上角的关闭按
12、钮结束程序。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题上程文件 sjt4vbp在代码编辑窗口，上掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： isum=0 iSum=iSum+j If iSum=1250 Then 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.考生文件夹下的工程文件 sjt5vbp 中的窗体如图 2162 所示。考生文件夹下的随机文件 in5dat 中有 20 条记录，每条记录含姓名和三个分数(均为 100 以内的正整数)。在程序中已经定义了类型Recordtype，此类型变量可以存放一
13、条记录。要求如下： 请为“计算最大最小值”按钮编写 Click 事件过程，其功能是：读取文件中的记录，计算每人的总分，找出其中最大总分和最小总分，分别放入变量maxval，minval 中(这两个变量已经给出，不得修改)。 运行程序，单击“计算最大最小值”按钮后再单击“存盘”按钮。 注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须依次单击“计算最大最小值”、“存盘”按钮，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt5vbp，在代码编辑窗口的适当位置编写代码。 参考代码： Private Sub CommandlClick() Dim s As Recordtype Open”in5dat”For Random As#1 Len =Len(s) maxval=0 minval=300 For k=1 To 20 Get#1，s sumval=sa1+sa2+Sa3 If sumvalmaxval Then maxval =sumval If sumval解析：
