1、国家二级 VB机试（上机操作）模拟试卷 19及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上画一个名称为 Framel、标题为 ”框架 ”的框架，在框架内添加两个名称分别为 opaonl、 Option2的单选按钮，其标题分别为 ”第一项 ”、 ”第二项 ”。要求通过设置控件的属性将 ”第二项 ”设置为被选中，框架为不可用。运行程序后的窗体如图 2-114所示。注意：存盘时必须存放在考生文件夹下，工程文件名为sjtl vbp，窗体文件名为 sjtl frm。 2 在名称为 Forml的窗体上画一个名
2、称为 Drivel的驱动器列表框，一个名称为 Dirl的目录列表框，一个名称为 Filel的文件列表框，名称为 Labell、标题为 ”文件名 ”的标签和名称为 Label2、 BorderStyle为 1的标签。窗体的标题设置为 ”文件系统控件 ”，如图 2-115所示。请编写适当的程序，使得这三个文件系统控件可以同步变化，即当驱动器列表框中显示的内容发生变化时，目录列表框和文件列表框中显示的内容同时发生变化。单击文件列表框时，将选中的文件名显示在 Label2中。注意：要 求程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件
3、名为 sjt2 frm。二、简单应用题 3 在考生目录下有一个工程文件 sjt3 vbp。程序的功能是：通过键盘向文本框中输入数字，如果输入的是非数字字符，则提示输入错误，且文本框中不显示输入的字符。单击名称为 Commandl、标题为 ”添加 ”的命令按钮，则将文本框中的数字添加到名称为 Combol的组合框中。在给出的窗体文件中已经添加了全部控件，但程序不完整。要求去掉程序中的注释符，把程序 中的 ?改为正确的内容。 注意：不能修改程序中的其他部分和其他控件的属性。最后把修改后的文件按原文件名存盘。 4 在考生目录下有一个工程文件 sjt4 vbp。该程序的功能是计算M!+(M+1)!+(
4、M+2)!+N! 之和。窗体上有名称分别为 Textl、 Text2的两个文本框，用于接收输入的 M和 N(要求 M N)。单击名称为 Commandl、标题为 ”计算 ”的命令按钮，计算 M!+(M+1)!+(M+2)!+N! 之和，并将计算结果显示在标签lblResult中。 在给出的窗体文件中已经有了全部控件，但程序不 完整，要求去掉程序中的注释符，把程序中的 ?改为正确内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生目录下有一个工程文件 sjt5 vbp，用来计算勾股定理整数组合的个数，勾股定理中三个数的关系是： a sup
5、 2 /sup +b sup 2 /sup =c sup 2/sup，例如 3、 4、 5就是一个满足条件的整数组合 (注意： a、 b、 c分别为 4、 3、5与分别为 3、 4、 5被视为同一个组合，不应该重复计算 )。编写程序，统计三个数均在 60以内满足上述关系的整数组合的个数，并显示在标签 Labell中。 注意：不得修改原有程序控件的属性，在结束程序运行之前，必须至少正确运行一次程序，将统计的结果显示在标 签中，否则无成绩，最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 19答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准 EXE
6、”工程。步骤 2：在 Forml中画出一个框架和两个单选按钮，在属性窗口中设置其相关属性，属性及值如表 3-63。步骤 3：按要求将文件保存在考生文件夹中。 2 【正确答案】 步骤 1：新建 ”标准 EXE”工程，往窗体 Forml中加入驱动器列表框、目录列表框控件、文件列表框控件各一个以及两个标签，分别设置它们的相关属性，属性及其值如表 3-64所 示。步骤 2：打开代码编辑窗口，输入如下代码：参考代码： Private Sub Dirl_Change( )Filel Path=Forml DirlEnd SubPrivate Sub Drive 1_Change( )Dirl=Me Dri
7、velEnd SubPrivate Sub Filel _Click( )Label2=Filel FileNameEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt3 vbp。 在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Combol AddItem Textl Text If KeyAscii 57 Or KeyAscii 48 Then KeyAscii=0 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件中的本题工程文件
8、 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： For i=m To n t=f(i) s =s+t t=t* i f=t 步 骤 2：按 F5键键运行程序，在第一个文本框中输入一个整数，第二个文本框中输入比第一个文本框中大的数，然后单击 ”计算 ”按钮。 步骤 3：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件中的本题工程文件 sjt5 vbp，在代码编辑窗口编写 ”计算 ”按钮的单击事件过程。 参考代码： n=0 For i=1 To 60 For j=1 To 60 For k=1 To 60 x=k * k If(x=i*i+j*j)And j i Then Print i； j； k n=n+ 1 EndIf Next k Next j Next i Labell Caption=n 步骤 2：按要求将文件保存至考生文件夹中。
