1、国家二级 VB 机试（上机操作）-试卷 77 及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画 1 个命令按钮，其名称为 C1，标题为“等级考试”；再画 1 个文本框，名称为 T1，如图 3-107(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框 rfj 的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题站在文本框中显示出来，如图 3107(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文
2、件名为 sitlfrm，工程文件名为 sitlvbp。(2)在名称为 Foml、标题为“菜单演示”的窗体上画一个名称为 Labell、标题为窄的标签；再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 3 一 108(a)所示。 请编写适当的程序，使得选中“输出窗体标题”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时间(如图3108(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sit2frm，工程文件名为 sit2vbp。 （分数：2.00）_二、简单应用题(总题数：1，分数
3、：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，相应的窗体文件为 sit3frm。在窗体上有一个名称为Commandl、标题为“计算”的命令按钮；两个水平滚动条，名称分别为 Hscrol11 和 Hscrol12，其 Max 属性均为 100，Min 属性均为 1；四个标签，名称分别为 Labe11、Labe12、Labe13 和 Labe14，标题分别为“运算数 1”、“运算数 2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为 Optionl，标题分别为“+”、 “”、 “*和“”，如图 375(a)所示。程序运行后，移动两个滚动条中的滚动框，用滚
4、动条的当前值作为运算数，如果选中一个单选按钮，然后单击计算按钮，相应的计算结果将显示在 Label4 中，程序运行情况如图 375 所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sit4vbp，相应的窗体文件为 sjt4frm。在窗体上有一个命令按钮，其名称为 Commandl，标题为“输入显示”；此外还有一个文本框，其名称为 Text1，初始内容为空白。程序的功能是，程序运行后，单击命令按
5、钮，显示输入对话框，在对话框巾输入某个月份的数值(112)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入 5，将输出“5 月份是夏季”，如图 376 所示。程序不完整，请补充完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。（分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp，窗口有 2 个名称分别为 Commandl 和 Command2、标题分别为“读数据”和“排序”的命令按钮，有 2 个标题分别为“数组 A”和“
6、数组 B”的标签。请将窗体标题设置为“完全平方数排序”；再画 2 个名称分别为 Text1 和 Text2、初始内容都为窄的文本框，并且可多行显示，有垂直滚动条，如图 347 所示。程序功能如下：1)单击“读数据”按钮，则把考生文件夹下in5dat 文件中的 100 个正整数读入数组 A，并将它们显示在 Text1 文本框中；2)单击“排序”按钮，则首先将这 100 个数中的所有完全平方数放入数组 B 中，并将它们按降序排列显示在 Text2 文本框中。提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如 144=122，所以 144 就是一个完全平方数。要求：去掉注释符，把?改为正确
7、内容，并添加代码使得“排序”命令按钮的 Click 事件过程可以实现上述功能。提示：Sort 过程可以把求出的完全平方数进行排序，可以直接调用。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“排序”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_国家二级 VB 机试（上机操作）-试卷 77 答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.请根据以下各小题的要求设计 Visual Basic 应用程序(包括界面和代码)。 (1)在名称为 Forml 的窗体上画 1 个
8、命令按钮，其名称为 C1，标题为“等级考试”；再画 1 个文本框，名称为 T1，如图 3-107(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框 rfj 的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题站在文本框中显示出来，如图 3107(b)所示。 注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sitlfrm，工程文件名为 sitlvbp。(2)在名称为 Foml、标题为“菜单演示”的窗体上画一个名称为 Labell、标题为窄的标签；再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 3 一 108(a)所示。 请编写适当的程序，使得选中“输出窗体标题
9、”菜单项时，就在标签中显示窗体标题；选中“输出当前时间”菜单项时，在标签中显示当前系统时间(如图3108(b)所示)。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为 sit2frm，工程文件名为 sit2vbp。 （分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，按要求画出控件并设置相应属性。 步骤 2：打开代码编辑窗口，编写文本框的 Change 事件过程。 参考代码： Private Sub T1_Change() C1Visible=False T1Text=C1Cap
10、tion End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：新建一个“标准 EXE”工程，选择【工具】【菜单编辑器】命令，打开菜单设计器，按要求设置建立菜单项。 步骤 2：打开代码编辑窗口，编写两个底层菜单命令的单击事件过程。 参考代码： Private Sub Clock Click() LabellCaption=Time End Sub Private Sub Title Click() LabellCalotion=FormlCaption End Sub 步骤 3：按要求将文件保存至考生文件夹中。)解析：二、简单应用题(总题数：1，分数
11、：2.00)2.(1)在考生文件夹下有一个工程文件 sit3vbp，相应的窗体文件为 sit3frm。在窗体上有一个名称为Commandl、标题为“计算”的命令按钮；两个水平滚动条，名称分别为 Hscrol11 和 Hscrol12，其 Max 属性均为 100，Min 属性均为 1；四个标签，名称分别为 Labe11、Labe12、Labe13 和 Labe14，标题分别为“运算数 1”、“运算数 2”、“运算结果”和空白；此外还有一个包含四个单选按钮的控件数组，名称为 Optionl，标题分别为“+”、 “”、 “*和“”，如图 375(a)所示。程序运行后，移动两个滚动条中的滚动框，用滚
12、动条的当前值作为运算数，如果选中一个单选按钮，然后单击计算按钮，相应的计算结果将显示在 Label4 中，程序运行情况如图 375 所示。这个程序不完整，请把它补充完整，并能正确运行。 要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sit4vbp，相应的窗体文件为 sjt4frm。在窗体上有一个命令按钮，其名称为 Commandl，标题为“输入显示”；此外还有一个文本框，其名称为 Text1，初始内容为空白。程序的功能是，程序运行后，单击命令按
13、钮，显示输入对话框，在对话框巾输入某个月份的数值(112)，然后单击“确定”按钮，即可在文本框中输出该月份所在的季节。例如输入 5，将输出“5 月份是夏季”，如图 376 所示。程序不完整，请补充完整。要求：去掉程序中的注释符，把程序中的?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。（分数：2.00）_正确答案：(正确答案：第 1 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 03vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： If Optionl(i)=True Then Se
14、lect Case opt Label4Caption=Str(HsblValue)“”opt Str(Hsb2Value)“=”Str(Result) 步骤 2：按要求将文件保存至考生文件夹中。 第 2 小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4vbp，在代码编辑窗口，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Loop Until n0 And n解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sit5vbp，窗口有 2 个名称分别为 Commandl 和 Command2、标题分别为“读数据”和“排序”
15、的命令按钮，有 2 个标题分别为“数组 A”和“数组 B”的标签。请将窗体标题设置为“完全平方数排序”；再画 2 个名称分别为 Text1 和 Text2、初始内容都为窄的文本框，并且可多行显示，有垂直滚动条，如图 347 所示。程序功能如下：1)单击“读数据”按钮，则把考生文件夹下in5dat 文件中的 100 个正整数读入数组 A，并将它们显示在 Text1 文本框中；2)单击“排序”按钮，则首先将这 100 个数中的所有完全平方数放入数组 B 中，并将它们按降序排列显示在 Text2 文本框中。提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如 144=122，所以 144 就
16、是一个完全平方数。要求：去掉注释符，把?改为正确内容，并添加代码使得“排序”命令按钮的 Click 事件过程可以实现上述功能。提示：Sort 过程可以把求出的完全平方数进行排序，可以直接调用。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行“排序”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5vbp，在码编辑窗口的指定位置输入以下代码： 参考代码： 考生编写的代码 n=0 For k=1 To 100 If a(k)0 Then d=Sqr(a(k) If Int(d) =d Then n=n+1 b(n)=a(k) EndIf EndIf Next 考生编写代码结束 步骤 2：在代码编辑窗口中，去掉程序中的注释符“”，将问号“?”改为正确的内容。 参考代码： Call sort(b， n) 步骤 3：按键运行程序，单击“读数据”按钮，然后单击“排序”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。)解析：
