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