1、国家二级 VB机试（上机操作）模拟试卷 185及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画两个名称分别为 Frame1、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；存 Frame1中画两个甲选按钮，名称分别为 Option1、 Option2，标题分别为 “10号字 ”、 “20号字 ”，且标题显示在单选按钮的左边；在 Frame2中画一个名称为 Check1的复选框，标题为 “下划线 ”。运行后的窗体如图 2-120所示。 注意：存盘时必须存放在考生文件夹下，工程文
2、件名为 sitl vbp，窗体文件名为sjt1 frm。 (2)在名称为 Forml的窗体上从上到下面两个义本框，名称分别为Textl、 Text2；再画一个命令按钮，名称为 Commandl，标题为 “选中字符数是 ”。程序运行时，在 Text1中输入若干字符，选中部分内容后，单击 “选中字符数是 ”按钮，则在 1ext2中显示选中的字符个数 (如图 2 121所示 )。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。注意：存盘时必须存放在考生文 件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用题 2 (1)在考生
3、文件夹下有一个工程文件 sit3 vbp，相应的窗体文件为 sit3 frm。 在名称为 Forml的窗体上有一个名称为 Text1的文本框和名称为 Command1、标题为“确定 ”的命令按钮，一个名称为 List1的列表框和两个名称分别为 Option1和Option2、标题分别为 “添加 ”和 “删除 ”的单选按钮，如图 2 3(a)所示。程序运行后，如果选择单选按钮 Optionl并在文本框中输入一个字符串，然后单击 “确定 ”命令按钮，则把文本框中的字符串添加到列表框中，并清除文本框，如图 23(b)所示；如果选择列表框中的一项和单选按钮 Option2，并单击 “确定 ”命令按钮，
4、则删除列表框中所选择的项目，如图 2 3(c)所示；如果不选择列表框中的项目，或者没有在文本框中输入字符串，则单击 “确定 ”命令按钮后，将显示一个信息框 “未输入或未选择项目 ”，如图 23(d)所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和 窗体文件。(2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sit4 frm。 在窗体上有一个命令按钮，其名称为 Commandl，标题为 “计算 ”。程序运行后，如果单击命令按钮，程序将根据下面的公式计算
5、的值： n 4=1 1 3+1 5 1 7+ ，所提供的窗体文件已给出了命令按钮的事件过程，程序运行结果如图 2 4所示。 该程序不完整，请把它补充完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在考生目录下有一个工程文件 sit5 vbp。窗休左边的图片框名称为 Picturel，框中还有六个小图片框，它们是一个数组，名称为 Pic，住窗体右边从上到下有三个显示不同物品的图片框，名称分别为 Picture2、 Picture3、 Picture4，还有一个文本框 Text
6、1以及四个标签，如图 2 52(a)所示。 程序运行时，可以用鼠标拖拽的方法把右边的物品放到左边的图片框中 (右边的物品不动 )，同时把该物品的价格累加到Text1中，如图 2 52(b)所示。最多可放六个物品。实现此功能的方法是：程序刚运行时， Picturel中的图片框数组不显示，当拖拽一次物晶时，就显示一个图片框数组元素，并在该图片框数组元素中加载相应的图片，产生物品被放入的效果。 文件中已经给出了所有控件和程序，但程序不完整，请去掉程序中的沣释符，把程序中的 ?改为正确的内容。 注意：不得修改已经存在的内容和控件属性，最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模
7、拟试卷 185答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 66在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，如表3 67所列在窗体 Forml中画出控件并设置它们的属性。步骤 2：打开代码编辑窗口，编写以下事件过程： 参考代码： PriVate Sub Commandl一 Click() Text2 Text=Forml Text1 SelLength End Sub 步骤 3：按要求将文件保存争考生文件夹中。 二、简
8、单应用题 2 【正确答案】 第 l小题 【操作步骤】 步骤 l：打开考生文件夹中的本题丁程文件 sjs vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Listl AddItem Textl Text If Forml Option2 Value=True And Listl LiStIndex=0 Then Listl RemoveItem Listl ListIndex 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，
9、将问号 “?”改为正确的内容。 参考代码： Result=Result+Sign*1 i Sign=一 Sign Text1 Text=ReSUlt*4 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sits vbp。 步骤 2：在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Select Case SourCe Name For k=0 To 5 If Pic(k) Visible=FalSe Then Pic(k) Visible=True Textl=Text1+a 步骤 3：按要求将文件保存至考生文件夹中。
