1、国家二级 VB 机试（上机操作）-试卷 6 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画 1 个命令按钮，其名称为 C1，标题为“等级考试”；再画 1 个文本框，名称为 T1，如图 2-107(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中华显示出来，如图 2107(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 s
2、jtlfrm，上程文件名为 sjtlvbp。 (2)在名称为 Forml、标题为“菜单演示”的窗体上画一个名称为 Label1、标题为空的标签：再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 2108(a)所示。 请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时问(如图2108(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件央下有一个工程文件 sit3vbp，运行情况如图 2113 所示。程序的功能是计
3、算表达式的值：z=(x 一 2)!+(x 一 3)!+(x-4)!+(xN)! 其中的 N 和 x 值通过键盘分别输入到两个文奉框Text1、Text2 中。单击名称为 Command1、标题为“计算”的命令按钮，则计算表达式的值，并将计笄=结果显示在名称为 Label1 的标签中。 在窗体义件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的汴释符，把程序中的?改为正确内容。 要求：程序调试通过后，必须按照如图 2113 所示输入N=5，x=12，然后计算 z 的值，并将计算结果显示在标签 Label1 中，否则没有成绩。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原
4、文件名存盘。 (2)在考生文件央下有一个工程文件sjt4vbp。窗体上有名称为 Labell 的标签和名称为 Timerl 的计时器控件。该程序的功能足在名称为Labell 的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”(如图 2114 所示)，且每隔 1 秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生目录
5、下有一个工程文件 sit5vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”；两个文本框名称分别为 Text1 和 Text2。其中 Text1 用来输入口令(输入时，显示“*”)，无初始内容；Text2 的初始内容为 3。并给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时，在 Textl 中输入口令后，单击“确定”按钮，如果输入的是“123456”，则在 Text1 中显示“口令正确”；如果输入其他内容，单击“确定”按钮后，弹出如图 2147 所示的错误提示对话框，并目 Text
6、2 中的数字减 1。最多可输入 3次几令，若 3 次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 6 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画 1 个命令按钮，其名称为 C1，标题为“等级考试”；再画 1 个文本框，名称为 T1，如图 2-107(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框中的信
7、息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题在文本框中华显示出来，如图 2107(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sjtlfrm，上程文件名为 sjtlvbp。 (2)在名称为 Forml、标题为“菜单演示”的窗体上画一个名称为 Label1、标题为空的标签：再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 2108(a)所示。 请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时问(如图2108(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句
8、。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，在窗体 Form1 中画一个文本框和一个命令按钮，设置相关属性，其属性及值如表 360 所示。 步骤 2：打开代码编辑窗口，编写文本框的 Change 事件过程。 参考代码： Private Sub T1 一 Change() C1ViSible=False T1Text=C1Caption End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按表 361 在窗体中画出控件并设置其相关属性 步骤 2：选择【
9、工具】【菜单编辑器】命令，打开菜单设计器，按表 362 中的设置建立菜单项。 )解析：二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件央下有一个工程文件 sit3vbp，运行情况如图 2113 所示。程序的功能是计算表达式的值：z=(x 一 2)!+(x 一 3)!+(x-4)!+(xN)! 其中的 N 和 x 值通过键盘分别输入到两个文奉框Text1、Text2 中。单击名称为 Command1、标题为“计算”的命令按钮，则计算表达式的值，并将计笄=结果显示在名称为 Label1 的标签中。 在窗体义件中已经给出了全部控件和程序，但程序不完整，请去掉程序中的汴释符，把程序中的
10、?改为正确内容。 要求：程序调试通过后，必须按照如图 2113 所示输入N=5，x=12，然后计算 z 的值，并将计算结果显示在标签 Label1 中，否则没有成绩。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 (2)在考生文件央下有一个工程文件sjt4vbp。窗体上有名称为 Labell 的标签和名称为 Timerl 的计时器控件。该程序的功能足在名称为Labell 的标签中循环显示不同的字符串。程序开始运行，在标签中显示“第一项”(如图 2114 所示)，且每隔 1 秒钟依次显示“第二项”、“第三项”、“第四项”，如此循环。在给出的窗体文件中已经有了全部控件
11、和程序，但程序不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件中的本题工程文件 sit3vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： tmp=1 tmp=temp*i xn=tmp z=z+xn(t) 步骤 2：按键键运行程序，在第一个文本框中输入 5，第两个文本框中输入 12，然后单击“计算”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】
12、 步骤 1：打开考生文件中的本题工程文件 sit4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： arr=Array(”第一项”，”第aM”，”第三项 “，”第四项”) Static i As Integer LabellCaption=arr(i) i=0 步骤 2：按要求将文件保存至考生文件夹中。)解析：三、综合应用题(总题数：1，分数：2.00)3.在考生目录下有一个工程文件 sit5vbp，其窗体上有两个标签 L1 和 L2，标题分别为“口令”和“允许次数”；一个命令按钮 C1，标题为“确定”；两个文本框名称分别为 Text1 和 Text2。
13、其中 Text1 用来输入口令(输入时，显示“*”)，无初始内容；Text2 的初始内容为 3。并给出了 C1 的事件过程，但不完整，要求去掉程序中的注释符，把程序中的?改为正确的内容，使得在运行时，在 Textl 中输入口令后，单击“确定”按钮，如果输入的是“123456”，则在 Text1 中显示“口令正确”；如果输入其他内容，单击“确定”按钮后，弹出如图 2147 所示的错误提示对话框，并目 Text2 中的数字减 1。最多可输入 3次几令，若 3 次都输入错误，则禁止再次输入。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生义件中的奉题工程文件 sjt5vbp，将文本框Textl 的 PasswordChar 属性值设置为“*”。 步骤 2：在代码编辑窗口，去掉程序中的注释袢“”，将问号“?”改为正确的内容。 参考代码： If Text1Text=“123456”Then TextlPasSWOrdChar=” If Text2Text0 Then TextlEnabled=False 步骤 3：按要求将文件保存至考生文件夹中。)解析：
