1、国家二级 VB机试（上机操作）模拟试卷 241及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个文本框，名称为 Text1，内容为 “VB程序设计 ”；再画两个命令按钮，其名称分别为 Command1和 Command2，标题分别为 “扩大 ”和 “缩小 ”，如图 2 1所示，编写适当的事件过程。程序运行后，每单击 Commandl命令按钮一次，文本框中文本的字体扩大 1 2倍；每单击 Command2单选按钮一次，文本框中文本的字 体缩小 1 2倍。注意：存盘时必须存放在考生文件夹下
2、，工程文件名为 sjt1 vbp，窗体文件名为 sit1 frm。 (2)在名称为 Forml的窗体上画一个列表框，其名称为 List1，通过属性窗口向列表框中输入 9个项目，分别为 10、 20、 30、 40、 50、 60、 70、 80、 90；画一个文本框，其名称为 Textl，初始内容为空白；再画一个水平滚动条，其名称为 HScrolll， Min属性和 Max属性分别为 0和 100，如图 2 2(a)所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目，则在文本框中显示 该项目内容，并把滚动条的滚动框移到相应的位置，如图 22(b)所示。要求：不得使用任何变量。 注
3、意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为sit2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp。程序运行时，单击窗体则显示如图 2 155所示的图案。请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjc4 vbp，窗体中有 一个矩形和一个圆，程序运行时，单击 “开始 ”按钮，圆可以纵向或横向运动(通过选择单选按钮来决定 )，碰到矩形的边时，则向相反方向运动，单击 “停止 ”按钮，则停止运动，如图 2
4、156所示。可以选择单选按钮随时改变运动方向。已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，在该工程文件中已经定义了一个学生记录类型数据 StudType。有三个标题分别为 “学号 ”、 “姓名 ”和 “平均分 ”的标签；三个初始内容为空，用于接收学号、姓名和平均分的文本框 Text1、 Text2和 Text3：一个用于显示排序结果的图片框。还有两个标题分别为 “添加 ”和 “排序 ”的命令按钮，如图
5、2 192所示。程序功能如下： 在 Text1、 Text2和 Text3三个文本框中输入学号、姓名和平均分后，单击 “添加 ”按钮，则将输入内容存入自定义的学生记录类型数组 stud中 (注：最多只能输入 10个学生信息，且学号不能为空 )； 单击“排序 ”按钮，则将学生记录类型数组 stud中存 放的学生信息，按平均分降序排列的方式显示在图片框中，每个学生一行，且显示三项信息。 清将 “添加 ”按钮、 “排序 ”按钮的 Click事什过程中的注释符去掉，把 ?改为正确的内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后把修改后的文件按原文件名存盘。 国家二级
6、 VB机试（上机操作）模拟试卷 241答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中加入一个文本框和两个命令按钮，其相关属性设置如表 31所示。步骤 2：打开代码编辑窗口，输入如下代码： 参考代码： Private Sub CommandlClick() Textl FontSize=Textl FontSize * 1 2 End Sub Private Sub Command2一 Click() Textl FontSize=Textl FontsiZe 1 2 End Sub 步骤 3：按要求将文件保
7、存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体上画一个列表框、一个文本框和一个水平滚动条，按表 32设置 其相关属性。步骤 2：在打开的代码编辑窗口中，编写列表框的单击事件代码： 参考代码： Private Sub Listl一 C1ick() Textl Text=LiStl Text HSCroll1 ValUe=Val(LiStl Text) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件中的奉题工程文件 sjt3 vbp，在代码编辑窗口，去掉程
8、序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： For i=1 To 5 For j=1 To 2*iI For j=1 To i+1 For j=1 To 9-2*i 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit4 vbp，在代码编辑窗口，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=False Shape2 Top=Shape2 Top+d*50 If Shape2 Top =Shapel Top+Shapel Height Then Shape2 Left=Shape2 Left+d*50 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt5 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： n=n1 stud(n) Num=Text1 For k=j+1 To n If stud(k) Averagestud(J) Average Then stud(k)=stud(j) 步骤 2：按要求将文件保存至考生文件夹中。
