1、VB机试模拟试卷 142及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 Visual。 Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “框架练习 ”的窗体上画一个名称为 Framel、标题为 “字体 ”的框架控件；在框架中画两个单选按钮，名称分别为 Optionl、 Option2，标题分别为“宋体 ”、 “黑体 ”，标题在单选按钮的左边。运行后的窗体如图 1-211所示。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjtl frm，工程文件名为sjtl vbp。 (2)在名称为 Forml窗体上，画一个名称为 Image
2、l的图像框，在其中显示考生文件夹下的图片 “pic2 jpg”，并设置适当属性使得图像框尺寸变化时图片尺寸可随之变化。再画一个水平滚动条和一个垂直滚动条，名称分别为 HScrolll、 VScrolll，它们的刻度范围都是 l 3。如图 1-212(a)所示。要求如下： 定义两个窗体级变量： length、 high，并编写窗体的 FormLoad事件过程，使length、 high分别等于图像框的宽、高； 编写适当的事件过程，使得移动两个滚动条上的滚动块时，以刻度值作为图像框 初始尺寸的倍数改变图像框相应方向的尺寸。例如： HScrolll的滚动块在刻度值为 2的位置时，图像框的宽为初始宽度
3、的 2倍。如图 1-212(b)所示。对于垂直滚动条也相同。注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序中的两个变量必须是 length、 high，此外不能再使用其他变量，除 FormLoad事件过程外，其他每个事件过程中只能写一条语句。二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，相应的窗体文件 为 sjt3 frm。其功能是产生 20个 0 1000的随机整数，放入一个数组中，然后输出这 20个整数中小于 500的所有整数之和。程序运行后，单击命令按钮 (名称为 Commandl
4、，标题为“输出小于 500的整数之和 ”)，即可求出这些整数的和，并在窗体上显示出来 (如图1-69所示 )。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp，相 应的窗体文件为 sjt4 frm，在窗体上有一个命令按钮和一个文本框。程序运行后，单击命令按钮，即可计算出 0100范围内所有偶数的平方和，并在文本框中显示出来。在窗体的代码窗口中，已给出了部分程序，其中计算偶数平方和的操作在通用过程 Fun中实现
5、，请编写该过程的代码。要求：请勿改动程序中的任何内容，只在 FunctionFun()和EndFunction之间填入编写的若干语句。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个标题分 别为 “读数据 ”和 “统计 ”的命令按钮。请画两个标签，其名称分别是 Labell和 Label2，标题分别为“单词的平均长度为 ”和 “最长单词的长度为 ”；再画两个名称分别为 Textl和 Text2、初始内容为空的文本框，如图 1-10所示。程序功能如下： 如果单击 “读数据 ”命令按钮，则将考生文件夹下 in5 da
6、t文件的内容读到变量 s中 (此过程已给出 )； 如果单击 “统计 ”按钮，则自动统计变量 s(s中仅含有字母和空格，而空格是用来分隔不同单词的 )中每个单词的长度，并将所有单词的平均长度 (四舍五入取整 )显示在Textl文本框内 ，将最长单词的长度显示在 Text2文本框内。 “读数据 ”命令按钮的Click事件过程已经给出，请为 “统计 ”命令按钮编写适当的事件过程，实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序之前，必须进行统计，且必须通过单击窗体右上角的 “关闭 ”按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 VB机试模拟试卷 142答案与解析 一
7、、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表2-124在窗体中画出控件并设置其相关属性。 步 骤 2：按要求将文件保存至考生文件夹中。第 2小题 【操作步骤】 步骤 1；新建一个 “标准 EXE”工程，在窗体 Forml中画一个图像框、一个水平滚动条和一个水平滚动条，在属性设置窗口中设置其相关属性，其属性及值如表 2-125所示。步骤 2：打开代码编辑窗口，分别编写滚动条的 Change事件过程和窗体的 Load事件过程。 参考代码： Dim length， high PriVate Sub Form_Load() len
8、gth=Image1 Width high=Imagel Height End Sub PriVate Sub HScrolll_Change() Imagel Width=HScrolll Value*length End Sub PriVate Sub VScroll1_Change() Imagel Hei ght=VScroll1 Value*high End Sub 步骤 3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小 题 复选框和单选按钮的 Alignment属性用于设置复选框中标题的对齐方式， 0-Left Justify为控件居左标题居右 (默认 )， 1-Rig
9、ht Justify为控件居右标题居左。 本题只需按题目在窗体中画出控件，并设置相关属性即可。 第 2小题 根据题意，本题需在滚动条的 Change事件中改变图像框的宽度和高度，在窗体的 Load事件中初始化全局变量。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt3 vbp，在代码编 辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： arrN(i)=Int(Rnd*1000) Sum=0 If arrN(i)word max Then word max=Len(t) End If t=“ En
10、d If Next i Textl Text=CInt(word len+Len t) (word num+1) If Len(t)word max Then word max=Len(t) End If Text2 Text=word_max End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行程序，先单击 “读数据 ”按钮，再单击 “统计 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 【试题解析】 以空格为单词的分隔标志，在 For循环中用 Mid函数逐一取出变量 s中的每个字符，并检查其是否为空格，若不是空格则将该字母作为当前单词的一部分，否则将当前单词的长度累加入一个记录所有单词总长度的变量中 (如Word_len)，用另一个变量 (如 word_hum)记录已有单词个数，并将当前单词的长度与记录单词最长值的变量 (如 woM max)比较，将两者中的较大值存入该变量中。循环结束后，将表达式 CInt(word_len+Len(t) (word_num+1)的值显示在Text!中， word_max值显示在 Text2中。 注意：为防止数据文件的最后一个字符不是空格而导致最后一个单词不在统计之列的情况，在开始找单词前在变量 s的最后连上一个空格。
