1、国家二级 VB机试（上机操作）模拟试卷 84及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml的窗体上画 1个命令按钮，其名称为 C1，标题为 “等级考试 ”；再画 1个文本框，名称为 T1，如图 3-107(a)所示。请编写适当的事件过程，使程序运行后，一旦文本框 rfj的信息有任何变化或输入任何信息，则命令按钮消失，并使命令按钮的标题站在文本框中显示出来，如图 3 107(b)所示。注意：存盘时，将文件保存至考生文件夹下，窗体文件名 为 sitl frm，工程文件名为 sitl vbp。 (2)
2、在名称为Foml、标题为 “菜单演示 ”的窗体上画一个名称为 Labell、标题为窄的标签；再建立一个菜单，各菜单项的属性设置见下表。窗体外观如图 3一 108(a)所示。请编写适当的程序，使得选中 “输出窗体标题 ”菜单项时，就在标签中显示窗体标题；选中 “输出当前时间 ”菜单项时，在标签中显示当前系统时间 (如图 3 108(b)所示 )。要求程序中不得使用变量，每个事件过程中只能写一条语句。注意：存盘时，将文件保存至考生文件夹下，窗体文件名为sit2 frm，工程文件 名为 sit2 vbp。二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，相应的窗体文件为 si
3、t3 frm。在窗体上有一个名称为 Commandl、标题为 “计算 ”的命令按钮；两个水平滚动条，名称分别为 Hscrol11和 Hscrol12，其 Max属性均为 100， Min属性均为 1；四个标签，名称分别为 Labe11、 Labe12、 Labe13和 Labe14，标题分别为 “运算数 1”、 “运算数 2”、 “运算结果 ”和空白；此外还有一个包含四个单选按钮的控件数组，名称为 Optionl，标题分别为 “+”、 “ ”、 “*和 “ ”，如图 3 75(a)所示。程序运行后，移动两个滚动条中的滚动框，用滚动条的当前值作为运算数，如果选中一个单选按钮，然后单击计算按钮，相
4、应的计算结果将显示在 Label4中，程序运行情况如图 3 75所示。这个程序不完整，请把它补充完整，并能正确运行。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分，也不能修改控件的属性。最后用原来的文件名保存工程文件和窗体文件。 (2)在考生文件夹下有一个工程文件 sit4 vbp，相应的窗体文件为 sjt4 frm。在窗体上有一个命令按钮，其名称为 Commandl，标题为 “输入显示 ”；此外还有一个文本框，其名称为 Text1，初始内容为空白。程序的功能是，程序运行后，单击命令按钮，显示输入对话框，在对话框巾输入某个月份的数值 (1 1
5、2)，然后单击 “确定 ”按钮，即可在文本框中输出该月份所在的季节。例如输入 5，将输出 “5月份是夏季 ”，如图 3 76所示。程序不完整，请补充完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体 文件。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，窗口有 2个名称分别为 Commandl和Command2、标题分别为 “读数据 ”和 “排序 ”的命令按钮，有 2个标题分别为 “数组A”和 “数组 B”的标签。请将窗体标题设置为 “完全平方数排序 ”；再画 2个名称分别为 Te
6、xt1和 Text2、初始内容都为窄的文本框，并且可多行显示，有垂直滚动条，如图 3 47所示。程序功能如下： 1)单击 “读数据 ”按钮，则把考生文件夹下in5 dat文件中的 100个正整数读入数组 A，并将它们显示在 Text1文本框中； 2)单击 “排序 ”按钮，则首先将这 100个数中的所有完全 平方数放入数组 B中，并将它们按降序排列显示在 Text2文本框中。提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如 144=122，所以 144就是一个完全平方数。要求：去掉注释符，把 ?改为正确内容，并添加代码使得 “排序 ”命令按钮的 Click事件过程可以实现上述功能。提
7、示： Sort过程可以把求出的完全平方数进行排序，可以直接调用。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行 “排序 ”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家 二级 VB机试（上机操作）模拟试卷 84答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，按要求画出控件并设置相应属性。 步骤 2：打开代码编辑窗口，编写文本框的 Change事件过程。 参考代码： Private Sub T1_Change() C1 Visible=False T1 Text=
8、C1 Caption End Sub 步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新 建一个 “标准 EXE”工程，选择【工具】 【菜单编辑器】命令，打开菜单设计器，按要求设置建立菜单项。 步骤 2：打开代码编辑窗口，编写两个底层菜单命令的单击事件过程。 参考代码： Private Sub Clock Click() Labell Caption=Time End Sub Private Sub Title Click() Labell Calotion=Forml Caption End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题
9、2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 03 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： If Optionl(i)=True Then Select Case opt Label4 Caption=Str(Hsbl Value) “” opt Str(Hsb2 Value) “=” Str(Result) 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步 骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Loop Until n0 And n0 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：按要求将文件保存至考生文件夹中。
