1、VB 机试-试卷 2 及答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数：2.00）_2.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个水平滚动条，其名称为 HScrolll，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：窗体标题为“设置滚动条属性”；滚动条所能表示的最小值和最大值分别为 0 和 2001程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为 2；程序运行后，单击滚动框前面或后面的部位时，滚动框移动的增量值为 10；滚动框的
2、初始位置为 100。程序的运行情况如图 1-12l 所示。要求：不要编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为sjtlfrm。 (2)在名称为 Forml 的窗体上画一个文本框，其名称为 Textl，如图 1-122(a)所示，编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行情况如图 1-122(b)所示。要求：不得使用任何变量，只允许通过修改属性的方式移动文本框。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2vbp，窗体文件名为 sjt2f
3、rm。 （分数：2.00）_二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_4.(1)在考生文件夹下有一个工程文件 sjt3vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 1-64(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 1-64(b)所示。垂直滚动条的情况与此类似。文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注
4、意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中已经给出了所有控件，如图 1-65 所示。运行时，单击“发射”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签 Labell 和 Label2 中；单击“保存”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4txt 文件中。文件中已经给出了程序。但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。
5、 （分数：2.00）_三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_6.在考生目录下有一个工程文件 sjt5vbp，包含了所有控件和部分程序。程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认文件类型为“文本文件”，默认目录为考生目录。选中 in5txt 文件，如图 1-20(a)所示，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Text1)中：单击“修改内容”按钮，则可把 TextI 中的大写字母“E”、“N”、“T”改为小写，把小写字母“e”、“n”，“t”改为大写；单击“保存文件”按钮。则弹出“另存为”对话框，默认文件类型为“文本文
6、件”，默认目录为考生目录，默认文件为“outStxt”，如图 1-20(b)所示，单击“保存”按钮，则把 Textl中修改后的内容存到 outstxt 文件中。窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确的内容，并编写“修改内容”按钮的 Click 事件过程。注意：考生不得修改已经存在的程序。必须把 Text1 中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。 （分数：2.00）_VB 机试-试卷 2 答案解析(总分：12.00，做题时间：90 分钟)一、基本操作题(总题数：2，分数：4.00)1.基本操作题（）（分数
7、：2.00）_解析：2.请根据以下各小题的要求设计 VisualBasic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个水平滚动条，其名称为 HScrolll，然后通过属性窗口设置窗体和滚动条的属性，实现如下功能：窗体标题为“设置滚动条属性”；滚动条所能表示的最小值和最大值分别为 0 和 2001程序运行后，单击滚动条两端的箭头时，滚动框移动的增量值为 2；程序运行后，单击滚动框前面或后面的部位时，滚动框移动的增量值为 10；滚动框的初始位置为 100。程序的运行情况如图 1-12l 所示。要求：不要编写任何代码。注意：存盘时必须存放在考生文件夹下，工程文件名为 sj
8、tlvbp，窗体文件名为sjtlfrm。 (2)在名称为 Forml 的窗体上画一个文本框，其名称为 Textl，如图 1-122(a)所示，编写适当的事件过程。程序运行后，如果单击窗体，则可使文本框移到窗体的左上角；而如果在文本框中输入信息，则可使文本框移到窗体的右上角。程序的运行情况如图 1-122(b)所示。要求：不得使用任何变量，只允许通过修改属性的方式移动文本框。注意：存盘时必须存放在考生文件夹下，工程文件名为sjt2vbp，窗体文件名为 sjt2frm。 （分数：2.00）_正确答案：(正确答案： 第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Form
9、l 中画一个滚动条，并设置它的相关属性，其属性及值如表 2-67 所示。 )解析：解析： 第 1 小题 本题只需按要求画出控件并设置其相应属性即可。 第 2 小题 控件的 Top 和Left 属性用于设置控件在窗体中的位置。 要在单击窗体时使文本框移到窗体左上角，只需在其单击事件中令 Top 属性和 LeR 属性为 0；要在文本框中输入信息时令文本框移到窗体的右上角，需要在文本框的Change 事件中令文本框的 Top 属性为 0，Left 属性等于窗体的宽度减去文本框的宽度。二、简单应用题(总题数：2，分数：4.00)3.简单应用题（）（分数：2.00）_解析：4.(1)在考生文件夹下有一个
10、工程文件 sjt3vbp，窗体上有一个矩形和一个圆，还有垂直和水平滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图 1-64(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 1-64(b)所示。垂直滚动条的情况与此类似。文件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。(2)在考生文件夹下有一个工程文件 sjt4vbp。窗体中已经给出了
11、所有控件，如图 1-65 所示。运行时，单击“发射”按钮，航天飞机图标将向上运动，速度逐渐加快，全部进入云中后则停止，并把飞行距离(用坐标值表示)、所用时间(单位为秒)分别显示在标签 Labell 和 Label2 中；单击“保存”按钮，则把飞行距离、所用时间存入考生文件夹下的 out4txt 文件中。文件中已经给出了程序。但不完整，请去掉程序中的注释符，把程序中的?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案： 第 1 小题 【操作步骤】 步骤 l：打开考生文件下的本题工程文件 sjt3vbp，在代码编辑
12、窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： HScrolllNax=Shape2Width+Shape2Left -ShapelWidth VScrolllNax=Shape2Height+Shape2Top -ShapelHeight ShapelLeft=HScrolllValuo ShapelTop=VScrolll 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： TimerlEnabled=True
13、 TimerlEnabled=Fal se d=d-ImagelTop t=t+1 步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按键运行程序，先单击“发射”按钮，计算完毕后单击“存盘”按钮，最后单击窗体右上角的关闭按钮结束程序。)解析：解析： 第 1 小题 本题在窗体加载过程中初始化水平滚动条和垂直滚动条的 Min 属性和 Max 属性值，以使其能与圆形 Shapel 所能到达的左边界、右边界、上边界、下边界一致，其中：HScrolllMax=Shape2Widm+Shape2Left-Shape1Width，VScrolllMax=Shape2Height+Shoe2Top-Sha
14、pe1Height。当水平或垂直滚动条移动时，通过在其 Change 事件过程中设置 Shapel 的 Left 属性值或 Top 属性值与滚动条的 Value 属性值一致即可。 第 2 小题 本题通过计时器来控制航天飞机移动。单击“发射”按钮时启动计时器(即Timer1Enabled=True)，并记录下此时航天飞机(Imagel)上部的坐标值(d=ImagelTop);在计时器的Timer 事件过程中，每次让航天飞机向上移动 50 的 a 倍(a 为实现航天飞机加速移动的系数)，如果移动后航天飞机已全部进入云中(即 ImagelTop+ImagelHeight=Image2Top+Imag
15、e2Height-200)，则通过停止计时器(即 TimerlEnabled=False)来停止航天飞机上移，并将此时飞行距离 d(d=d-Image1Top)显示在标签 Labell 中，飞行时间(t*Timer1Intefval1000)显示在标签 Label2 中。如果航天飞机还没全部进入云中，则加速系数增加 01，并用变量 t 记录一次飞行时间(t=t+1)。三、综合应用题(总题数：2，分数：4.00)5.综合应用题（）（分数：2.00）_解析：6.在考生目录下有一个工程文件 sjt5vbp，包含了所有控件和部分程序。程序运行时，单击“打开文件”按钮，则弹出“打开”对话框，默认文件类型
16、为“文本文件”，默认目录为考生目录。选中 in5txt 文件，如图 1-20(a)所示，单击“打开”按钮，则把文件中的内容读入并显示在文本框(Text1)中：单击“修改内容”按钮，则可把 TextI 中的大写字母“E”、“N”、“T”改为小写，把小写字母“e”、“n”，“t”改为大写；单击“保存文件”按钮。则弹出“另存为”对话框，默认文件类型为“文本文件”，默认目录为考生目录，默认文件为“outStxt”，如图 1-20(b)所示，单击“保存”按钮，则把 Textl中修改后的内容存到 outstxt 文件中。窗体中已经给出了所有控件和程序，但程序不完整，去掉程序中的注释符，把程序中的?改为正确
17、的内容，并编写“修改内容”按钮的 Click 事件过程。注意：考生不得修改已经存在的程序。必须把 Text1 中修改后的内容用“保存文件”按钮存储结果，否则无成绩。最后，按原文件名把程序存盘。 （分数：2.00）_正确答案：(正确答案： 【操作步骤】 步骤 l：打开考生文件中的本题工程文件 sjt5vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： CommonDialOglFilterIndex=2 Open CommonDialoglFileName For Input As#1 TextlText=s CommonDialoglAction=2 步骤
18、 2：按指定位置编写“修改文件”的单击事件过程。 参考代码： PriVate Sub Command2_Click() 考生需要编写的程序 S=” str_len。Len(Textl) For k=1 To str len ch=Mid$(Textl，k， 1) If ch=“E“Or ch=“N“Or ch=“T“ Then s=s&LCase(ch) Elself ch=“e“Or ch=“n“Or ch =“t“Then s=s&UCase(ch) Else s=s&ch End If Next k Textl=s End Sub 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按
19、键运行程序，先单击“打开文件”按钮，接着单击“修改内容”按钮，然后单击“保存文件”按钮。)解析：解析：根据题目原程序，耍使单击“打开文件”按钮时，弹出的“打开”对话框中默认文件类型为“文本文件”，需在 Commandl Click 事件过程中将 CommonDialogl 的 Filterlndex 属性值设置为 2。用Open 语句打开在“打开”对话框中选中的文件应为：CommonDialoglFileName。文本框中显示的内容应为用 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 中。
