1、VB机试模拟试卷 193及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visaul Basic应用程序 (包括界面和代码 )。 1在窗体 (名称为 Form1)上画 1个列表框 (名称为 L1)和 1个水平滚动条 (名称为 HS1， Min属性为 0， Max属性为 100， SmallChange属性为 2， LargeChange属性为 10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示 “滚动条的当前值是： xx”，如图 11所示，其中 xx是滚动框所在的位置。存盘时，工 程文件名为 sjt1.vbp，窗体文件名为
2、 sjt1.frm。 2在名称为Form1的窗体上画一个文体框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能： 1)在文本框中可以显示多行文本 2)在文本框中显示垂直滚动条 3)文本框中显示的初始信息为 “程序设计 ”4)在文本框中显示的字体为三号规则黑体 5)窗体的标题为 “设置文本框属性 ”。完成设置后的窗体如图 12所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2.vbp，窗体文件名为 sjt2.frm。二、简单 应用题（ 40分） 2 在考生文件夹中有一个工程文件 execise112.vbp(相应的窗体文件名为exec
3、ise112.frm)，请装入该文件。在名为 Foma1的窗体上绘制一个列表框 (名称为List1)和一个文本框 (名称为 Text1)。编写窗体的 Mouse Down事件过程。 程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中的项目 (内容任意，不少于 3个 )；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如下图所示。 提供的窗体文件可以实现上述功能，但 本程序不完整，请补充完整。 要求： 去掉程序中的注释符 “”，把程序中的问号 “?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改
4、后的文件。三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，其功能是： 单击 “读数据 ”按钮，则把考生文件夹下 in5 dat文件中的 100个 0 999之间的整数读入数组 a中； 单击 “计算 ”按钮，则对这 100个整数中的所有水仙花数 (当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。例如， 153=13+53+33，所以 153就是一个水仙花数 )求平均值，并对该平均值数尾取整后显示在文本框 Textl中。窗体中给出了所有控件 (如图 1-180所示 )，已给 “读数据 ”按钮的 Click事件过程，请为 “计算 ”按钮编写适当的事件过程
5、实现上述功能。注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 VB机试模拟试卷 193答案与解析 一、基本操作题（ 30分） 1 【正确答案】 按以下步骤操作： 启动 Visual Basic，在窗体上画 1个水平滚动条和 1个列表框。 按 F4键，激活属性窗口，在属性窗口中设置滚动条和列表框的属性，见表 1。 编写窗体的 Click事件过程； Private Sub Form_Click() L1.AddItem“滚动条的当前值是 :“ &HS1. Value End Sub2 对象主要属性设
6、置如表 2所示。 分析：按试题要求在窗体上画出一个文本框，并分别将它们属性按表 2的内容进行设置。 MultiLine属性设置为True，文本框显示多行文本； SerollBar属性设置为 2，文本框显示垂直滚动条；设置 Text属性中的内容为初始信息；用 FontName和 FontSize属性分别设置文本框的字型和字号； Caption属性设置窗体标题的内容。 编程代码： (无 ) 二、简单应用题（ 40分） 2 【正确答案】 三、综合应用题（ 30分） 3 【正确答案】 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt5 vbp，在代码编辑窗口的指定位置编写 “计算 ”按钮
7、的单击事件过程。 参考代码： 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的值就是水仙花数的平均数。
