1、国家二级 VB机试（上机操作）模拟试卷 369及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画一个文本框，名称为 Text1，内容为“VB 程序设计”；再画两个命令按钮，其名称分别为 Command1和 Command2，标题分别为“扩大”和“缩小”，如图 393 所示，编写适当的事件过程。程序运行后，每单击 Command1命令按钮一次，文本框中文本的字体扩大 12 倍；每单击Command2单选按钮一次，文本框中文本的字体缩小 12 倍。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，
2、窗体文件名为 sjtlfrm。 (2)在名称为 Form1的窗体上画一个列表框，其名称为 List1，通过属性窗口向列表框中输入 9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为 Text1，初始内容为空白；再画一个水平滚动条，其名称为 HScroll1，Min 属性和：Max 属性分别为 O和 100，如图 394(a)所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目，则在文本框中显示该项目内容，并把滚动条的滚动框移到相应的位置，如图 394(b)所示。要求：不得使用任何变量。 （分数：2.00）_二、简单应用题(总题数：1，分数：
3、2.00)2.(1)在考生文件夹中有工程文件 sjt3vbp，程序界面如图 3-3所示。当在文本框中输入正整数 N，单击“计算”命令按钮，进行计算。若 N是奇数，计算 l+3!+5!+N!，若 N是偶数，计算1+3!+5!+(N+1)!。在给出的窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，该程序的功能是显示月历。运行程序后，在Text1、Text2 中分别输入年份和月份，并在左边的框架中选择该年的 1月 1日是星期几，然后
4、单击“显示月历”按钮，即可在下面的图片框内显示该年该月的月历。如图 3-4所示的是 2008年 2月份的月历。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp。窗体左边的图片框名称为 Picture1，框中还有六个小图片框，它们是一个数组，名称为 Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文本框 Text1以及四个标签，如图 350(a)所示。 程序运行时，可以用鼠标拖拽的方法
5、把右边的物品放到左边的图片框中(右边的物品不动)，同时把该物品的价格累加到 Text1中，如图 350(b)所示。最多可放六个物品。 实现此功能的方法是：程序刚运行时，Picture1中的图片框数组不显示，当拖拽一次物品时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 369答案解析(总分：6.00，做题时间：90 分
6、钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上画一个文本框，名称为 Text1，内容为“VB 程序设计”；再画两个命令按钮，其名称分别为 Command1和 Command2，标题分别为“扩大”和“缩小”，如图 393 所示，编写适当的事件过程。程序运行后，每单击 Command1命令按钮一次，文本框中文本的字体扩大 12 倍；每单击Command2单选按钮一次，文本框中文本的字体缩小 12 倍。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjtlvbp，窗体文件名为 sjtlfrm。 (2)在名称为 Form1的窗体上画一个列表框，其名称为 L
7、ist1，通过属性窗口向列表框中输入 9个项目，分别为10、20、30、40、50、60、70、80、90；画一个文本框，其名称为 Text1，初始内容为空白；再画一个水平滚动条，其名称为 HScroll1，Min 属性和：Max 属性分别为 O和 100，如图 394(a)所示，编写适当的事件过程。程序运行后，如果单击列表框中的某个项目，则在文本框中显示该项目内容，并把滚动条的滚动框移到相应的位置，如图 394(b)所示。要求：不得使用任何变量。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：新建一个“标准 EXE”工程，在窗体 Form1中加入一个文本框和两个命令按钮，其相关属
8、性设置如表 458 所示。 步骤 2：打开代码编辑窗口，输入如下代码。参考代码： Private Sub Command1_Click() Text1FontSize=Text1FontSize*12 End Sub Private Sub Command2_Click() Text1FontSize=Text1FontSize12 End Sub 步骤 3：按要求将文件保存至考生文件夹中。 (2)步骤 1：新建一个“标准 EXE”工程，在窗体上画一个列表框、一个文本框和一个水平滚动条，按表 459 设置其相关属性。 )解析：解析：(1)要实现题目要求的功能，只需在两个命令按钮的 Click事
9、件过程中，分别设置文本框的FontSize属性为指定值。 (2)列表框的 Text属性用于返回列表框中选择的项目的内容，返回值总与列表框的 List(List1ndex)属性的返回值相同。本题需要在列表框的属性窗口中输入列表框中的项目，然后在列表框的单击事件中将选定项赋值给文本框和滚动条的 value属性。二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹中有工程文件 sjt3vbp，程序界面如图 3-3所示。当在文本框中输入正整数 N，单击“计算”命令按钮，进行计算。若 N是奇数，计算 l+3!+5!+N!，若 N是偶数，计算1+3!+5!+(N+1)!。在给出的窗体文件中已
10、经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：考生不得修改窗体文件中已经存在的程序。最后程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbp，该程序的功能是显示月历。运行程序后，在Text1、Text2 中分别输入年份和月份，并在左边的框架中选择该年的 1月 1日是星期几，然后单击“显示月历”按钮，即可在下面的图片框内显示该年该月的月历。如图 3-4所示的是 2008年 2月份的月历。请将事件过程中的注释符去掉，把“?”改为正确的内容，以实现上述程序功能。 （分数：2.00）_正确答案：(正确答案：(1)步骤 1：打开考生文件夹中
11、的本题工程文件 sjt3vbp，在代码编辑窗口中，去掉程序中的注释符“，将问号“?”改为正确的内容。参考代码： m=n+1 m=n For i=1 To m Step 2 sum=sum+f(i) For i=1 To x 步骤 2：按要求将文件保存至考生文件夹中。 (2)步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： month_day8(2)=IIf(leap_year(year)，2 9，28) For k=1 To month-1 n=0 Private Function leap_year(y
12、ear As Integer) As Boolean 步骤 2：按要求将文件保存至考生文件夹中。)解析：解析：(1)题目要求计算一个数列的和，数列中的每一项是一个整数的阶乘，可通过循环来计算阶乘之和。代码设计了一个 Sub过程和函数 f，在 Sub过程中，首先获取文本框输入值 n，然后判断 n是否是偶数，根据题目要求，如果输入的 n是偶数则加 1，否则不需要加 1，接下来通过 for循环来计算累加和 SHIn。第一个 If用来判断输入的 n是否是偶数，并赋值给变量 m，如果 n是偶数则 m=n+1，否则 m=n：第三个“?”处是补充循环的步长 Step值，题目要求计算奇数的阶乘 2，每一项之间
13、的差值为 2，因此For循环的 Step值为 2；第四个“?”处是计算累加和，通过调用函数 f来计算阶乘，因此第四个“?”处为 sum=sum+f(i)；最后一个“?”处是补充计算阶乘的 For循环 Step值，显然是 1。 (2)题目要求计算月历，具体计算的方法是将 1月到当前选中月之前一个月的总天数，再根据 1月 1日是星期几就可以得到当前月的星期情况。 数组 month_days保存的是 1-12月的每月的天数，其中 2月比较特殊，需要区分是否是闰年。函数 Leap_year用于判断是否是闰年，如果是闰年返回布尔 True。第一个“?”处是判断当前年份是否是闰年，如果是闰年的话 2月是
14、29天，使用 IIf来判断，如果 Leap_year返回 True，则month_days(2)值是 29，否则 month_days(2)的值是非闰年的 2月天数，即 28；第二个“?”处的循环是计算从 1月到选择月的前一个月(month-1)的总天数；第三个“?”处的循环用于输出月历，循环打印 k的值，每循环一次 n加 1，当 n的值为 7的时候输出换行，因此第三个“?”处是将 n赋值为 0，开始下次计数；最后一个“?”处是补充函数参数，根据函数体内部实现“leap year=(ygar Mod 4=0 And year Mod 1000 Or year Mod 400=0)”，可知输入参
15、数是 year。三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sjt5vbp。窗体左边的图片框名称为 Picture1，框中还有六个小图片框，它们是一个数组，名称为 Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文本框 Text1以及四个标签，如图 350(a)所示。 程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中(右边的物品不动)，同时把该物品的价格累加到 Text1中，如图 350(b)所示。最多可放六个物品。 实现此功能的方法是：程序刚运行时，Picture1中的
16、图片框数组不显示，当拖拽一次物品时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：步骤 1：打开考生文件夹下的工程文件 sjt5vbp。 步骤 2：在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。参考代码： Select Case SourceName For k=0 To 5 If Pic(k)Visible=F
17、alse Then Pic(k)Visible=True Text1=Text1+a 步骤 3：按要求将文件保存至考生文件夹中。)解析：解析：控件的 DragDrop事件有三个主要参数，其中，“Source”参数是一个对象变量，类型为“Control”，包含被拖动对象的属性，“X”和“Y”参数是放下对象时鼠标光标的位置。本题中为了判断拖动的是哪一个图片，因此需要判断 Source参数的 Name属性。当拖动的图片确定，则在控件数组中显示的图片以及需要累加的价格也随之确定。 由于控件数组共有 6个数组元素，因此应该在拖放事件中进行一个 6次的循环，在每次循环中判断数组元素是否已经被显示出来，如果没有被显示出来则令其Visible属性为 True，然后退出循环，这样可以实现序号由小到大每次显示一个图片的效果。
