1、国家二级 VB 机试（上机操作）-试卷 28 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(&HFF&)。运行程序后的窗体如图 3-21 所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjt1frm。(2
2、)在名称为 Forml 的窗体上画一个名称 Shapel 的形状控件，在属性窗口中将其设置为圆形。画一个名称为 L,istl 的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充。如图 322 所示。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp。程序运行后，单击“读入数据”按钮，可把考生文件夹下 in3txt 文件中的所有英文单词读入，并显示在 Text1 文本框中；单击“插入列表框
3、”按钮，则按顺序把每个单词作为一项添加到 List1 列表框中(如图 3122 所示)。在 in3txt 文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上已经画出所有控件，如图 3123 所示。在运行时，如果单击“开始”按钮，则窗体上的汽车图标每 01 秒向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。（分数：
4、2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为 Text1 的文本框；画一个名称为 C1、标题为“计算”的命令按钮；再画两个单选按钮，名称分别为 Op1、Op2，标题分别为“求 500 到 600 之间能被 7 整除的数之和”、“求 500到 600 之间能被 3 整除的数之和”(如图 3 一 172 所示)。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的
5、工程文件和窗体文件以原来的文件名存盘。注意：考生不得修改窗体文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一种计算，否则不得分。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 28 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 visual Basic 应用程序(包括界面和代码)。(1)在名称为 Forml 的窗体上画一个名称为 C1、标题为“改变颜色”的命令按钮，窗体标题为“改变窗体背景色”。编写程序，使得单击命令按钮时，将窗体的背景颜色改为红色(
6、&HFF&)。运行程序后的窗体如图 3-21 所示。 要求：程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为sjtlvbp，窗体文件名为 sjt1frm。(2)在名称为 Forml 的窗体上画一个名称 Shapel 的形状控件，在属性窗口中将其设置为圆形。画一个名称为 L,istl 的列表框，并在属性窗口中设置列表项的值分别为1、2、3、4、5。将窗体的标题设为“图形控件”。单击列表框中的某一项，则将所选的值作为形状控件的填充参数。例如，选择 3，则形状控件中被竖线填充。如图 322 所示。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步
7、骤 1：新建一个“标准 EXE”工程，在窗体 Forml 中画一个命令按钮，设置相关属性，其属性及值如表 4-14 所示。 步骤 2：打开代码编辑窗口，编写按钮的 Click事件过程中。 参考代码： Private Sub C1 C1ick() FormlBaCkC010r=&HFF End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程。 步骤2：在窗体 Forml 中加入一个列表框和一个形状控件，并分别如表 4-15 设置它们的相关属性。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下有一
8、个工程文件 sit3vbp。程序运行后，单击“读入数据”按钮，可把考生文件夹下 in3txt 文件中的所有英文单词读入，并显示在 Text1 文本框中；单击“插入列表框”按钮，则按顺序把每个单词作为一项添加到 List1 列表框中(如图 3122 所示)。在 in3txt 文件中每个单词之间用一个空格字符隔开，最后一个单词的后面没有空格。已经给出了所有控件和程序，但程序不完整。要求：请去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分和控件属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sjt4vbp，窗体上已经画出所
9、有控件，如图 3123 所示。在运行时，如果单击“开始”按钮，则窗体上的汽车图标每 01 秒向右移动一次(初始状态下不移动)；如果单击“停止”按钮，则停止移动。（分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt3vbp，打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： St=stCh 0=Mid(st，k，1) WOrcl=“” 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sit4vbp，将计时器 Timerl 的 Enable
10、d 属性设置为False，Interval 属性设置为 100。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容并编写两个命令按钮的单击事件过程。 参考代码： Private Sub C1 Click() Timer1Enabled=True End Sub Private Sub C2 Click() TimerlEnabled=False End Sub Private Sub Timetl TimelF() P1Nove P1Left+2 0 End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.
11、在考生文件夹下有一个工程文件 sjt5vbp，在该工程中为考生提供了一个通用过程，考生可以直接调用。请在窗体上画一个名称为 Text1 的文本框；画一个名称为 C1、标题为“计算”的命令按钮；再画两个单选按钮，名称分别为 Op1、Op2，标题分别为“求 500 到 600 之间能被 7 整除的数之和”、“求 500到 600 之间能被 3 整除的数之和”(如图 3 一 172 所示)。请编写适当的事件过程，使得在运行时，选中一个单选按钮，再单击“计算”按钮，就可以按照单选按钮后的文字要求计算，并把计算结果放入文本框中，最后把已经修改的工程文件和窗体文件以原来的文件名存盘。注意：考生不得修改窗体
12、文件中已经存在的程序，退出程序时必须通过单击窗体右上角的关闭按钮。在结束程序运行之前，必须至少要进行一种计算，否则不得分。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5vbp，按要求画出控件并设置属性。 步骤 2：打开代码编辑窗口，编写“计算”按钮的单击事件过程。 参考代码： Private Sub C1 Click() If OplValue Then TextlText=fun(7) End If If Op2Value Then TextlText=fun(3) End If End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：
