1、VB 机试-试卷 48 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Ll 的标签，标题为“请确认”；再画两个命令按钮，名称分别为 Cl、C2，标题分别为“是”、“否”，高均为 300、宽均为 800。如图 1-76 所示。请在属性窗口中设置适当属性满足以下要求：窗体标题为“确认”，窗体标题栏上不显示最大化按钮和最小化按钮；在任何情况下，按回车键都相当于单击“是”按钮；按 E
2、sc 键都相当于单击“否”按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forrnl 的窗体上画一个文本框，名称为Textl，其宽度为 1000;再画一个滚动条，名称为 HSl。其刻度值的范围是 10002000。请编写滚动条的Change 事件过程，程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图 l-77 所示。程序中不能使用任何变量，事件过程中只能写一条语句。注意：保存时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm （分数：2.00）_二、简
3、单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在名称为 Forml 的窗体上画两个图片框，名称分别为 Pl、P2，高度均为 1900，宽度均为 1700。通过属性窗口把图片文件 piclbmp 放入 P1 中，把图片文件 pic2：jpg 放入 P2 中；再画一个命令按钮，名称为 Cl，标题为“交换图片”(如图 l-208 所示)。编写适当的事件过程，使得在运行时，如果单击“交换图片”按钮，则在 Pl 中显示 pic2jpg，在 P2 中显示 pic1bmp。程序中不得使用任何变量，也不能使用第三个图片框。注意：存盘时必须存放在考生文件夹下，工程文件名为
4、 sjt3vbp，窗体文件名为sjl3frm。 (2)在考生文件夹下有一个工程文件 sjt4vbp，请在窗体上画两个复选框，名称分别为 Chl、Ch2，标题分别为“程序设计”、“数据库原理”；然后画一个文本框，名称为 Textl；再画一个命令按钮，名称为 Cl，标题为“确定”(如图 1-209 所示)。请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮，就可以按照下表的要求把结果显示在文本框中。存盘时，工程文件名为sjt4vbp，窗体文件名为 sjt4frm。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须进行产生表
5、 1-9 一个结果的操作。（分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生文件夹下有一个工程文件 sjt5vbp，其功能是： 单击“读数据”按钮，则把考生文件夹下in5dat 文件中的 100 个 0999 之间的整数读入数组 a 中； 单击“计算”按钮，则对这 100 个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。例如，153=1 3 +5 3 +3 3 ，所以 153 就是一个水仙花数)求平均值，并对该平均值数尾取整后显示在文本框 Textl 中。窗体中给出了所有控件(如图 1-180
6、所示)，已给“读数据”按钮的 Click 事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_VB 机试-试卷 48 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_解析：2.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 Ll 的标签，标题为“请确认”；再
7、画两个命令按钮，名称分别为 Cl、C2，标题分别为“是”、“否”，高均为 300、宽均为 800。如图 1-76 所示。请在属性窗口中设置适当属性满足以下要求：窗体标题为“确认”，窗体标题栏上不显示最大化按钮和最小化按钮；在任何情况下，按回车键都相当于单击“是”按钮；按 Esc 键都相当于单击“否”按钮。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Forrnl 的窗体上画一个文本框，名称为Textl，其宽度为 1000;再画一个滚动条，名称为 HSl。其刻度值的范围是 10002000。请编写滚动条的Change 事件过程，
8、程序运行后，如果移动滚动框，则可按照滚动条的刻度值改变文本框的宽度。运行时的窗体如图 l-77 所示。程序中不能使用任何变量，事件过程中只能写一条语句。注意：保存时必须存放在考生文件夹下，工程文件名为 sjt2vbp，窗体文件名为 sjt2frm （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 l：新建一个“标准 EXE”工程，如表 2-39 在窗体中画出控件并设置其相关属性。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 l：新建一个“标准 EXE”工程，在窗体 Forml 中加入一个水平滚动条和一个文本框，在属性设置窗口中设置其相
9、关属性，其属性及值如表 2-40 所示。 步骤 2：双击窗体 Forml 上的水平滚动条，打开代码编 辑窗口，输入以下代码： 参考代码： PriVate Sub HSI_Change() TextlWidth=HSIValue End Sub 步骤 3：按要求将文件保存至考生文件夹中。 )解析：解析：第 1 小题 窗体的标题是由其 Caption 属性设置，窗体的 MaxButton 属性、MinButton 属性决定其标题栏是否显示最大化、最小化按钮，True 表示显示，False 表示不显示。此外，通过修改窗体的 BordStyle 属性(用于设置边框样式)，也可实现窗体标题栏是否显示最大
10、化、最小化按钮的效果，其中值设置为 3 时窗体具有固定大小，包含左侧控制框和标题栏，但没有最大化按钮、最小化按钮。程序运行时，通常用单击命令按钮的方式来选中某个按钮，为了能够在按键时也选中这个命令按钮，可将其Default 属性设置为 True，某些情况下为了能够在按键时也能选中按钮，则需要将命令按钮的 Cancel 属性设置为 True。 本题只需按题目要求画出标签、命令按钮控件并设置其和窗体相应属性。 第 2 小题 滚动条分为水平滚动条(HscrollBar)和垂直滚动条(VscrollBar)两种，常用来提供简便的定位或用于取代数据的键盘输入。通过调整滚动条滑块的位置即可改变其 Valu
11、e 属性的值，滚动条的 Max 属性、Min 属性限定了滚动条所能表示的最大值和最小值，即 Value 属性值的取值范围，在程序中改变 Value 属性的值，滚动条滑块会随之移动到相应位置。LargeChange 属性用于设置当点击滚动条滑块与两侧箭头间区域时Value 属性值的改变量。SmallChange 属性用于设置当点击滚动条两侧箭头时 Value 属性值的改变量。滚动条滑块位置改变时将触发其 Change 事件，拖动时将触发其 Scroll 事件。 要在程序运行时，移动滚动条上的滑块就改变文本框宽度，只需在滚动条的 Change 事件过程中编写利用滚动条的 Value 属性值来决定文
12、本框的宽度属性即可。二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在名称为 Forml 的窗体上画两个图片框，名称分别为 Pl、P2，高度均为 1900，宽度均为 1700。通过属性窗口把图片文件 piclbmp 放入 P1 中，把图片文件 pic2：jpg 放入 P2 中；再画一个命令按钮，名称为 Cl，标题为“交换图片”(如图 l-208 所示)。编写适当的事件过程，使得在运行时，如果单击“交换图片”按钮，则在 Pl 中显示 pic2jpg，在 P2 中显示 pic1bmp。程序中不得使用任何变量，也不能使用第三个图片框。注意：存盘时必须
13、存放在考生文件夹下，工程文件名为 sjt3vbp，窗体文件名为sjl3frm。 (2)在考生文件夹下有一个工程文件 sjt4vbp，请在窗体上画两个复选框，名称分别为 Chl、Ch2，标题分别为“程序设计”、“数据库原理”；然后画一个文本框，名称为 Textl；再画一个命令按钮，名称为 Cl，标题为“确定”(如图 1-209 所示)。请编写适当的事件过程，使得在运行时，选中复选框并单击“确定”按钮，就可以按照下表的要求把结果显示在文本框中。存盘时，工程文件名为sjt4vbp，窗体文件名为 sjt4frm。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在
14、结束程序运行之前，必须进行产生表 1-9 一个结果的操作。（分数：2.00）_正确答案：(正确答案： 第 1 小题 【操作步骤】 步骤 l：新建一个“标准 EXE”工程，在窗体 Forml 中如表 2-122 画出所列控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写命令按钮的 Click事件过程： 参考代码： PriVate Sub C1_Click() PiclPicture=LoadPi cture(AppPath+ “pic2bmp“) Pic2Picture=LoadPicture(AppPath+ “piclbmp“) End Sub 步骤 3：按要求将文件保存至考生文件夹中
15、。 第 2 小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件sjt3vbp，如表 2-123 在窗体中画出控件并设置属性。 步骤 2：在代码编辑窗口，编写“确定”按钮的单击事件。 参考代码： Private Sub C1_C1ick() TextlText=“我选的课是“ If ChlValue Then TextlText=TextlText+ChlCaption End If If Ch2Value=1 Then TextlText=TextlText+Ch2Caption End If End Sub 步骤 3：按要求将文件保存垒考生文件夹中。)解析：解析： 第 1 小题 本题
16、要求在程序运行后，单击“交换图片”命令按钮时，交换两个图片框中的图片。因此可在命令按钮的 Click 事件过程中，通过 LoadPicture()函数分别为两个图片框重新加载图片。AppPath 可返回当前工程文件所在的文件夹路径，是使用相对路径的一种用法。 第 2 小题 为实现本题所要求的功能可在“确定”按钮的单击事件过程中，先设置文本框的初始内容为“我选的课是”，然后用两个 If 语句分别判断两个复选框是否选中，若选中则将其对应信息输入文本框中。三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生文件夹下有一个工程文件 sjt5vbp，其功能是
17、： 单击“读数据”按钮，则把考生文件夹下in5dat 文件中的 100 个 0999 之间的整数读入数组 a 中； 单击“计算”按钮，则对这 100 个整数中的所有水仙花数(当一个数的值等于该数中各位数字的立方和时，此数被称为水仙花数。例如，153=1 3 +5 3 +3 3 ，所以 153 就是一个水仙花数)求平均值，并对该平均值数尾取整后显示在文本框 Textl 中。窗体中给出了所有控件(如图 1-180 所示)，已给“读数据”按钮的 Click 事件过程，请为“计算”按钮编写适当的事件过程实现上述功能。 注意：不得修改已经存在的控件和程序，在结束程序运行之前，必须进行计算，且必须用窗体右
18、上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：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 的值就是水仙花数的平均数。
