1、VB机试模拟试卷 158及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个名称为 Ll的标签，标题为 “请确认 ”；再画两个命令按钮，名称分别为 Cl、 C2，标题分别为 “是 ”、 “否 ”，高均为 300、宽均为 800。如图1-76所示。请在属性窗口中设置适当属性满足以下要求： 窗体标题为 “确认 ”，窗体标题栏上不显示最大化按钮和最小化按钮； 在任何情况下，按回车键都相当于单击 “是 ”按钮；按 Esc键都相当于单击 “否 ”按钮。注意：存盘时必须存放在考生文件夹下，
2、工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。(2)在名称为 Forrnl的窗体上画一个文本框，名称为Textl，其宽度为 1000;再画一个滚动条，名称为 HSl。其刻度值的范围是 10002000。请编写滚动条的 Change事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图 l-77所示。程序中不能使用任何变量，事件过程中只能写一条语句。注意：保存时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件 名为 sjt2 frm 二、简单应用题（ 40分） 2 (1)在名称为 Forml的窗体上画两个图片框，名称分别为
3、 Pl、 P2，高度均为1900，宽度均为 1700。通过属性窗口把图片文件 picl bmp放入 P1中，把图片文件 pic2： jpg放入 P2中；再画一个命令按钮，名称为 Cl，标题为 “交换图片 ”(如图l-208所示 )。编写适当的事件过程，使得在运行时，如果单击 “交换图片 ”按钮，则在 Pl中显示 pic2 jpg，在 P2中显示 pic1 bmp。程序中不得使用任何变量，也不能使用第三个图片框。注意：存盘时必须存放 在考生文件夹下，工程文件名为sjt3 vbp，窗体文件名为 sjl3 frm。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，请在窗体上画两个复选框，名称分
4、别为 Chl、 Ch2，标题分别为 “程序设计 ”、 “数据库原理 ”；然后画一个文本框，名称为 Textl；再画一个命令按钮，名称为 Cl，标题为 “确定 ”(如图 1-209所示 )。请编写适当的事件过程，使得在运行时，选中复选框并单击 “确定 ”按钮，就可以按照下表的要求把结果显示在文本框中。存盘时，工程文件名为 sjt4 vbp，窗体文件名为 sjt4 frm。注意：考生不 得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须进行产生表 1-9一个结果的操作。三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，
5、其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in5 dat文件中的 100个 0 999之间的整数读入数组 a中； 单击 “计算 ”按钮，则对这 100个整数中的所有水仙花数 (当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。例如， 153=13+53+33，所以 153就是一个水仙花数 )求平均 值，并对该平均值数尾取整后显示在文本框 Textl中。窗体中给出了所有控件 (如图 1-180所示 )，已给 “读数据 ”按钮的 Click事件过程，请为 “计算 ”按钮编写适当的事件过程实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必
6、须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 VB机试模拟试卷 158答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，如表2-39在窗体中画出控件并设置 其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】步骤 l：新建一个 “标准 EXE”工程，在窗体 Forml中加入一个水平滚动条和一个文本框，在属性设置窗口中设置其相关属性，其属性及值如表 2-40所示。 步骤 2：双击窗体 Forml上的水平滚动条，打开代码编辑窗口，输入以下代码： 参考代码： PriVa
7、te Sub HSI_Change() Textl Width=HSI Value End Sub 步骤 3：按要求将文件保存至考生文件夹中。【试题解析】 第 1小题 窗 体的标题是由其 Caption属性设置，窗体的 MaxButton属性、 MinButton属性决定其标题栏是否显示最大化、最小化按钮， True表示显示， False表示不显示。此外，通过修改窗体的 BordStyle属性 (用于设置边框样式 )，也可实现窗体标题栏是否显示最大化、最小化按钮的效果，其中值设置为 3时窗体具有固定大小，包含左侧控制框和标题栏，但没有最大化按钮、最小化按 钮。 程序运行时，通常用单击命令按钮的
8、方式来选中某个按钮，为了能够在按 键时也选中这个命令按钮，可将其 Default属性设置为 True，某些情况下为了能够在按键时也能选中按钮，则需要将命令按钮的 Cancel属性设置为 True。 本题只需按题目要求画出标签、命令按钮控件并设置其和窗体相应属性。 第 2小题 滚动条分为水平滚动条 (HscrollBar)和垂直滚动条 (VscrollBar)两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其 Value属性的值，滚动条的 Max属性、 Min属性限定了滚动条所能表示的最大值和最小值，即 Value属性值的取值范围，在程序中改变 Value属性
9、的值，滚动条滑块会随之移动到相应位置。 LargeChange属性用于设置当点击滚动条滑块与两侧箭头间区域时 Value属性值的改变量。 SmallChange属性用于设置当点击滚动条两侧箭头时 Value属性值的改变量。 滚动条滑块位置改变时将触发其Change事件，拖动时将触发其 Scroll事件。 要在程序运行时，移动滚动条上的滑块就改变文本框宽度，只需在滚动条的Change事件过程中编写利用滚动条的 Value属性值来决定文本框的宽度属性即可。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：新建一个 “标准 EXE”工程，在窗体 Forml中如表 2
10、-122画出所列控件并设置其相关属性。步骤 2：打开代码编辑窗口，编写命令按钮的 Click事件过程： 参考代码： PriVate Sub C1_Click() Picl Picture=LoadPi cture(App Path+ “ pic2 bmp“) Pic2 Picture=LoadPicture(App Path+ “picl bmp“) End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt3 vbp，如表 2-123在窗体中画出控件并设置属性。 步骤 2：在代码编辑窗口，编写 “确定 ”按钮的单击事件
11、。 参考代码： Private Sub C1_C1ick() Textl Text=“我选的课是 “ If Chl Value Then Textl Text=Textl Text+Chl Caption End If If Ch2 Value=1 Then Textl Text=Textl Text+Ch2 Caption End If End Sub 步骤 3：按要求将文件保存垒考生文件夹中。 【试题解析】 第 1小题 本题要求在程序运行后，单击 “交换图片 ”命令按钮时，交换两个图片框中的图片。因此可在命令按钮的 Click事件过程中，通过 LoadPicture()函数分别为两个图片框
12、重新加载图片。 App Path可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。 第 2小题 为实现本题 所要求的功能可在 “确定 ”按钮的单击事件过程中，先设置文本框的初始内容为 “我选的课是 ”，然后用两个 If语句分别判断两个复选框是否选中，若选中则将其对应信息输入文本框中。 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写 “计算 ”按钮的单击事件过程。 参考代码： Dim s As Long， n As Integer For i=l To 100 If isnarc(a(i)2hen s=s+a(i) n=n+1 End If Next i Textl Text=Fix(s n) 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键运行程序，先单击 “读数据 ”按钮，接着单击 “计算 ”按钮，然后单击窗体右上角的关闭按钮结束程序。 【试题解析】 程序设计思路：声明一个变量 s用于记录水仙花数的和，一个变量n记录水仙花数的个数。用 For循环逐一取出数组 a中的 100个元素，通过调用函数 isnrc判断其是否为一个 水仙花数，若是水仙花数则将其加入到累加和 s中同时令 n=n+l。循环结束后， s n的值就是水仙花数的平均数。
