1、国家二级 VB 机试（上机操作）-试卷 19 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画一个名称为 Labell 的标签，标签的宽和高分别为 2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图 2173 所示。运行后的窗体见图 2173。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sit1frm。 （分数：2.00）_二、简单应用题
2、(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，窗体上有一个矩形和一个圆，还有垂直和水甲滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图2140(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 2140(b)所示。垂直滚动条的情况与此类似。 文件中已经给出了全部控件和稗序，但程序不完整，请去掉程序中的汴释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。（分数
3、：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。程序功能为：在文本框 Textl 中输入一个正整数 N 后，单击“计算”按钮，则计算 1 1 +2 2 +3 3 +N N ，并将计算结果显示在 Text2 中。程序中的函数 f 可以计算 m m 的值。 在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应的程序，实现程序的功能，并且必须在运行时计算 N=8 时的结果。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算 N=8
4、 时的结果，否则无成绩。（分数：2.00）_国家二级 VB 机试（上机操作）-试卷 19 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画一个名称为 Labell 的标签，标签的宽和高分别为 2000、300，有边框，并利用属性窗口设置适当的属性，使其居中显示“等级考试”，并使标签的外观如图 2173 所示。运行后的窗体见图 2173。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1vbp，窗体文件名为 sit1f
5、rm。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Forml 中画三个单选按钮，并设置它的相关属性，其属性及值如表 393 所示。 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，如表 394 在窗体中画出控件并设置其相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sjt3vbp，窗体上有一个矩形和一个圆，还有垂直和水甲滚动条各一个。程序运行时，移动某个滚动条的滚动块，可使圆做相应方向的移动。滚动条刻
6、度值的范围是圆可以在矩形中移动的范围。以水平滚动条为例，滚动块在最左边时，圆靠在矩形的左边线上，如图2140(a)所示；滚动块在最右边时，圆靠在矩形的右边线上，如图 2140(b)所示。垂直滚动条的情况与此类似。 文件中已经给出了全部控件和稗序，但程序不完整，请去掉程序中的汴释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。（分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： HSc
7、rolllMax=Shape2Width+Shape2 LeftShapelWidth VScrolllMax；Shape2Height+Shape2 TopShapelHeight ShapelLeft=HScr0111Value Shapel.Top=VScr0111 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： TimeR1Enabled：True TimerlEnabled=False d=dImagelTop t=t+1
8、步骤 2：按要求将文件保存至考生文件夹中。 步骤 3：按键运行程序，先单击“发射”按钮，计算完毕后单击“存盘”按钮，最后单击窗体右上角的关闭按钮结束程序。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。程序功能为：在文本框 Textl 中输入一个正整数 N 后，单击“计算”按钮，则计算 1 1 +2 2 +3 3 +N N ，并将计算结果显示在 Text2 中。程序中的函数 f 可以计算 m m 的值。 在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，并编写相应的程序，实现程序的功能，
9、并且必须在运行时计算 N=8 时的结果。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算 N=8 时的结果，否则无成绩。（分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的本题工程文件 sjt5vbp，在码编辑窗口的指定位置输入以下代码： 参考代码： Private Sub CommandlClick() =考生编写程序开始= Dim i，j As Integer，k As Long i=TextlText k=0 For j=1 To i k=k+f(j) Next Text2Text=k =考生编写程序结束= Open AppPath”out5dat”ForOutput As#1 Print#1，Text1，Text2 Close#1 End Sub 步骤 2；在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： s=1 S=Sm f=s 步骤 3：按要求将文件保存至考生文件夹中。 步骤 4：按键运行稗序，在文本框中输入 8，单击“计算”按钮。)解析：
