国家二级VB机试(上机操作)模拟试卷282(题后含答案及解析)

国家二级VB机试（上机操作）模拟试卷282 (题后含答案及解析)

题型有：1.jpg />步骤2：在代码编辑窗口，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。参考代码：Form2．ShowForm1．Text1．Fontsize=List1．TextForm1．Text1．FontName=List2．List(List2．ListIndex)Form2．Visible=FalSe步骤3：按要求将文件保存至考生文件夹中。第2小题步骤1：打开考生文件夹中的本题工程文件sjt4．vbp，双击“计算”按钮，打开代码编辑窗口编辑计算按钮的单击事件。参考代码：Private Sub Command2_Click( )Dim i，j As LongIf Combo1．Text=“前50个数”Thenj=0For i=1To50j=j+a(i)Nextj=Round(j／50，0)Text1．Text=jEnd IfIf Combo1．Text=“前80个数”Thenj=0For i=1To80j=j+a(i)Nextj=Round(j／80，0)Text1．Text=jEnd IfIf Combo1．Text=“所有数”Thenj=0For i=1To100j=j+a(i)Nextj=Round(j／100，0)Text1．Text=jEnd IfEnd Sub步骤2：按要求将文件保存至考生文件夹中。步骤3：运行程序，单击“读入数据”按钮，然后在列表框中选中一项，并单击“计算”按钮获得一个结果，然后使用窗体右上角的“关闭”按钮结束程序。

解析：第1小题：根据题目要求，单击“格式”菜单项即会显示Form2，则在该菜单项的单击事件中应该调用Form2．Show方法；在“确定”按钮的单击事件中，应该对应将文本框中内容的字体和字号设置为列表框中选中的项并隐藏Form2。第2小题：本题是一个简单的累加求和再求平均值的问题，根据在组合框中选择的列表项不同，进行计算的项数也不同，但都是用循环完成．在循环中实现累加，在循环后实现求平均值，区别只在于循环的次数不一样。

综合应用题

3． 在考生目录下有一个工程文件sjt5．vbp。窗体左边的图片框名称为Picture1，框中还有六个小图片框，它们是一个数组，名称为Pic，在窗体右边从上到下有三个显示不同物品的图片框，名称分别为Picture2、Picture3、Picture4，还有一个文本框Text1以及四个标签，如图3—50(a)所示。程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中(右边的物品不动)，同时把该物品的价格累加到Text1中，如图3—50(b)所示。最多可放六个物品。实现此功能的方法是：程序刚运行时，Picture1中的图片框数组不显示，当拖拽一次物品时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的注释符，把程序中的“?”改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。

正确答案：步骤1：打开考生文件夹下的工程文件sjt5．vbp。步骤2：在代码编辑窗口中，去掉程序中的注释符“‘”，将问号“?”改为正确的内容。参考代码：Select Case Source．NameFor k=0To5If Pic(k)．Visible=False ThenPic(k)．Visible=TrueText1=Text1+a步骤3：按要求将文件保存至考生文件夹中。

解析：控件的DragDrop事件有三个主要参数，其中，“Source”参数是一个

对象变量，类型为“Control”，包含被拖动对象的属性，“X”和“Y”参数是放下对象时鼠标光标的位置。本题中为了判断拖动的是哪一个图片，因此需要判断Source参数的Name属性。当拖动的图片确定，则在控件数组中显示的图片以及需要累加的价格也随之确定。由于控件数组共有6个数组元素，因此应该在拖放事件中进行一个6次的循环，在每次循环中判断数组元素是否已经被显示出来，如果没有被显示出来则令其Visible属性为True，然后退出循环，这样可以实现序号由小到大每次显示一个图片的效果。