1、VB机试模拟试卷 166及答案与解析 一、基本操作题（ 30分） 1 请根据以下各小题的要求设计 VisualBasic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画一个水平滚动条，其名称为 HScrolll，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能： 窗体标题为 “设置滚动条属性 ”； 滚动条所能表示的最小值和最大值分别为 0和 2001 程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为 2； 程序运行后，单击滚动框前面或后面的部位时，滚动框移动的增量值为 10； 滚动框的初始位置为 100。程序的运行情况如图1-12l所示。要求：不要编写任何代码
2、。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtl vbp，窗体文件名为 sjtl frm。 (2)在名称为 Forml的窗体上画一个文本框，其名称为 Textl，如图 1-122(a)所示，编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行情况如图1-122(b)所示。要求：不得使用任何变量，只允许通过修改属性的方式移动文本框。注意：存盘时必须存放在考生 文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题（ 40分） 2 (1)在考生文件夹下有一个工程
3、文件 sjt3 vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 1-64(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 1-64(b)所示。垂直滚动条的情况与此类似。 文件中已经给出了全 部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbp。窗体中已
4、经给出了所有控件，如图 1-65所示。运行时，单击 “发射 ”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离 (用坐标值表示 )、所用时间 (单位为秒 )分别显示在标签 Labell和 Label2中；单击 “保存 ”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4 txt文件中。文 件中已经给出了程序。但不完整，请去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题（ 30分） 3 在考生目录下有一个工程文件 sjt5 vbp，包含了所有控件和部分程序。程序运行时，
5、单击 “打开文件 ”按钮，则弹出 “打开 ”对话框，默认文件类型为 “文本文件 ”，默认目录为考生目录。选中 in5 txt文件，如图 1-20(a)所示，单击 “打开 ”按钮，则把文件中的内容读入并显示在文本框 (Text1)中：单击 “修改内容 ”按钮，则可把 TextI中的大写字母 “E”、 “N”、 “T”改为小写，把小写字母 “e”、 “n”， “t”改为大写；单击“保存文件 ”按钮。则弹出 “另存为 ”对话框，默认文件类型为 “文本文件 ”，默认目录为考生目录，默认文件为 “outS txt”，如图 1-20(b)所示，单击 “保存 ”按钮，则把Textl中修改后的内容存到 out
6、s txt文件中。窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的 ?改为正确的内容，并编写 “修改内容 ”按钮的 Click事件过程。注意：考生不得修改已经存在的程序。必须把 Text1中修 改后的内容用 “保存文件 ”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。 VB机试模拟试卷 166答案与解析 一、基本操作题（ 30分） 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个滚动条，并设置它的相关属性，其属性及值如表 2-67所示。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操
7、作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体上画一个名为 Textl的文本框。 步骤 2：打开代码编辑窗口，编写事件过程。 参考代码： PriVate Sub Form_Click() Textl Left=0 Textl Top=0 End Sub PriVate Sub Text l_Change() Textl Left=Form1 Width_Textl Width Textl Top=0 End Sub 步骤3：按要求将文件保存至考生文件夹中。 【试题解析】 第 1小题 本题只需按要求画出控件并设置其相应属性即可。 第 2小题 控件的 Top和 Left属性用于设置控件
8、在窗体中的位置。 要在单击窗体时使文本框移到 窗体左上角，只需在其单击事件中令 Top属性和LeR属性为 0；要在文本框中输入信息时令文本框移到窗体的右上角，需要在文本框的 Change事件中令文本框的 Top属性为 0， Left属性等于窗体的宽度减去文本框的宽度。 二、简单应用题（ 40分） 2 【正确答案】 第 1小题 【操作步骤】 步骤 l：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： HScrolll Nax=Shape2 Width+Shape2 Left -Shapel Width VScro
9、lll Nax=Shape2 Height+Shape2 Top -Shapel Height Shapel Left=HScrolll Valuo Shapel Top=VScrolll 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Timerl Enabled=True Timerl Enabled=Fal se d=d-Imagel Top t=t+1 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按 键运行程序，
10、先单击 “发射 ”按钮，计算完毕后单击 “存盘 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 【试题解析】 第 1小题 本题在窗体加载过程中初始化水平滚动条和垂直滚动条的 Min属性和 Max属性值，以使其能与圆形 Shapel所能到达的左边界 、右边界、上边界、下边界一致，其中： HScrolll Max=Shape2 Widm+Shape2 Left-Shape1 Width，VScrolll Max=Shape2 Height+Shoe2 Top-Shape1 Height。当水平或垂直滚动条移动时，通过在其 Change事件过程中设置 Shapel的 Left属性值或 Top属性值与
11、滚动条的 Value属性值一致即可。 第 2小题 本题通过计时器来控制航天飞机移动。单击 “发射 ”按钮时启动计时器 (即Timer1 Enabled=True)， 并记录下此时航天飞机 (Imagel)上部的坐标值(d=Imagel Top);在计时器的 Timer事件过程中，每次让航天飞机向上移动 50的a倍 (a为实现航天飞机加速移动的系数 )，如果移动后航天飞机已全部进入云中 (即Imagel Top+Imagel Height键运行程序，先单击 “打开文件 ”按钮，接着单击 “修改内容 ”按钮，然后单击 “保存文件 ”按钮。 【试题解析】 根 据题目原程序，耍使单击 “打开文件 ”按
12、钮时，弹出的 “打开 ”对话框中默认文件类型为 “文本文件 ”，需在 Commandl Click事件过程中将CommonDialogl的 Filterlndex属性值设置为 2。用 Open语句打开在 “打开 ”对话框中选中的文件应为： CommonDialogl FileName。文本框中显示的内容应为用Input语句从文件中读出的内容，即 s。 在单击 “打开文件 ”按钮时，要弹出 “另存为 ”对话框，需将 CommonDialogl的Action属性值设置为 2。 要在单击 “修改文件 ”按钮时，把 Textl中的大写字母 “E”、 “N”、 “T”改为小写，把小写字母 “e”、 “n”、 “t”改为大写，可在 “修改内容 ”按钮的单击事件过程中，通过 For循环用 Mid函数逐一取出文本框 Textl中的每个字符放入一个变量 (如 ch)中，假如取出的字符是大写字母 “E”、 “N”、 “T”，则用 Lcase函数将其转换为小写；若取出的字符是小写字母 “e”、 “n”、 “t”， 则用 Ucase函数将其转换为大写。最后将该变量中的字符用 “&”连入一个字符串变量 (如 s)中。循环结束时，将 s的值重新显示在 Textl中。
