1、VB 机试-试卷 50 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 Visaul Basic 应用程序(包括界面和代码)。1在窗体(名称为 Form1)上画 1 个列表框(名称为 L1)和 1 个水平滚动条(名称为 HS1，Min 属性为 0，Max 属性为 100，SmallChange属性为 2，LargeChange 属性为 10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图 11 所示，其
2、中 xx 是滚动框所在的位置。存盘时，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2在名称为 Form1 的窗体上画一个文体框，其名称为 Text1，然后通过属性窗口设置窗体和文本框的属性，实现如下功能：1)在文本框中可以显示多行文本 2)在文本框中显示垂直滚动条 3)文本框中显示的初始信息为“程序设计”4)在文本框中显示的字体为三号规则黑体 5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图 12 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为sjt2.frm。 （分数：2.00）_二、简单应用题(总题数
3、：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.在考生文件夹中有一个工程文件 execise112.vbp(相应的窗体文件名为 execise112.frm)，请装入该文件。在名为 Foma1 的窗体上绘制一个列表框(名称为 List1)和一个文本框(名称为 Text1)。编写窗体的Mouse Down 事件过程。 程序运行后，如果用鼠标左键单击窗体，则从键盘上输入要添加到列表框中的项目(内容任意，不少于 3 个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如下图所示。 提供的窗体文件可以实现上述功能，但本程序不完整，请补充完整。要求
4、： 去掉程序中的注释符“”，把程序中的问号“?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sjt5vbp，其功能是： 单击“读数据”按钮，则把考生文件夹下in5dat 文件中的 100 个 0999 之间的整数读入数组 a 中； 单击“计算”按钮，则对这 100 个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。例如，153=1 3 +5 3 +3 3 ，所以
5、153 就是一个水仙花数)求平均值，并对该平均值数尾取整后显示在文本框 Textl 中。窗体中给出了所有控件(如图 1-180 所示)，已给“读数据”按钮的 Click 事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_VB 机试-试卷 50 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.请根据以下各小题的要求设计 Visa
6、ul Basic 应用程序(包括界面和代码)。1在窗体(名称为 Form1)上画 1 个列表框(名称为 L1)和 1 个水平滚动条(名称为 HS1，Min 属性为 0，Max 属性为 100，SmallChange属性为 2，LargeChange 属性为 10)，编写适当的事件过程。程序运行后，如果把滚动框移到某个位置，然后单击窗体，则在列表框中显示“滚动条的当前值是：xx”，如图 11 所示，其中 xx 是滚动框所在的位置。存盘时，工程文件名为 sjt1.vbp，窗体文件名为 sjt1.frm。2在名称为 Form1 的窗体上画一个文体框，其名称为 Text1，然后通过属性窗口设置窗体和文
7、本框的属性，实现如下功能：1)在文本框中可以显示多行文本 2)在文本框中显示垂直滚动条 3)文本框中显示的初始信息为“程序设计”4)在文本框中显示的字体为三号规则黑体 5)窗体的标题为“设置文本框属性”。完成设置后的窗体如图 12 所示。要求：不编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt2.vbp，窗体文件名为sjt2.frm。 （分数：2.00）_正确答案：(正确答案：按以下步骤操作： 启动 Visual Basic，在窗体上画 1 个水平滚动条和 1 个列表框。 按 F4 键，激活属性窗口，在属性窗口中设置滚动条和列表框的属性，见表 1。 编写窗体的 Click
8、 事件过程； Private Sub Form_Click() L1.AddItem“滚动条的当前值是:“ &HS1. Value End Sub 2 对象主要属性设置如表 2 所示。 )解析：二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.在考生文件夹中有一个工程文件 execise112.vbp(相应的窗体文件名为 execise112.frm)，请装入该文件。在名为 Foma1 的窗体上绘制一个列表框(名称为 List1)和一个文本框(名称为 Text1)。编写窗体的Mouse Down 事件过程。 程序运行后，如果用鼠标左键单击窗体，则从键盘
9、上输入要添加到列表框中的项目(内容任意，不少于 3 个)；如果用鼠标右键单击窗体，则从键盘上输入要删除的项目，将其从列表框中删除。程序的运行情况如下图所示。 提供的窗体文件可以实现上述功能，但本程序不完整，请补充完整。要求： 去掉程序中的注释符“”，把程序中的问号“?”改为适当的内容，使其正确运行，但不得修改程序的其他部分。最后，按原文件名并在原文件夹中保存修改后的文件。 （分数：2.00）_正确答案：(正确答案： )解析：三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sjt5vbp，其功能是： 单击“读数据”按钮，则
10、把考生文件夹下in5dat 文件中的 100 个 0999 之间的整数读入数组 a 中； 单击“计算”按钮，则对这 100 个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。例如，153=1 3 +5 3 +3 3 ，所以 153 就是一个水仙花数)求平均值，并对该平均值数尾取整后显示在文本框 Textl 中。窗体中给出了所有控件(如图 1-180 所示)，已给“读数据”按钮的 Click 事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否
11、则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案： 【操作步骤】 步骤 l：打开考生文件夹下的本题工程文件 sjt5vbp，在代码编辑窗口的指定位置编写“计算”按钮的单击事件过程。 参考代码： 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 TextlText=Fix(sn) 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按F5键运行程序，先单击“读数据”按钮，接着单击“计算”按钮，然后单击窗体右上角的关闭按钮结束程序。)解析：解析： 程序设计思路：声明一个变量 s 用于记录水仙花数的和，一个变量 n 记录水仙花数的个数。用 For 循环逐一取出数组 a 中的 100 个元素，通过调用函数 isnrc 判断其是否为一个水仙花数，若是水仙花数则将其加入到累加和 s 中同时令 n=n+l。循环结束后，sn 的值就是水仙花数的平均数。
