1、国家二级 VB机试（上机操作）模拟试卷 82及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在名称为 Forml、标题为 “标签 ”的窗体上画一个名称为 Labell的标签，并设置适当属性以满足以下要求： 标签的内容为 “计算机等级考试 ”； 标签可根据显示内容自动调整其大小； 标签带有边框，且标签内容显示为三号字。运行后的窗体如图3 68所示。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sitl vbp，窗体文件名为 sjtl frm。 (2)在 名称为： Forml的窗体上画一个名称为 Hscrolll的
2、水平滚动条，其刻度范围为 1 100；再画一个名称为 Text1的文本框，初始内容为 1。程序开始运行时，焦点在滚动条上。请编写适当的事件过程，使得程序运行时，文本框中实时显示滚动框的当前位置。运行情况如图 369所示。 注意：要求程序中不得使用变量，每个事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjl2 vbp，窗体文件名为sjt2 frm。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，在 Forml的窗体中有一个文本框、两个命令按钮和一个计时器。程序的功能是在运行时，单击 “开始计数 ”按钮，就开始计数，每隔 1秒，文本框中的数加
3、1；单击 “停止计数 ”按钮，则停止计数 (如图 3165所示 )。要求：修改适当的控件的属性，并去掉程序中的注释符，把程序中的 ?改为正确的内容，使其实现上述功能，但不能修改程序中的其他部分。最后把修改后的文件以原来的文件名存盘。 (2)已知出租车行驶不超过 4千米时一律收费 10元。超过 4千米时分段处理，具体处理方式为： 15千米以内每千米加收 1 2元， 15千米以上每千米收 1 8元。在考生文件 夹下有一个工程文件 sit4 vbp。程序的功能是：单击 “输入 ”按钮，将弹出一个输入对话框，接收出租车行驶的里程数；单击 “计算 ”按钮，则可根据输入的里程数计算应付的出租车费，并将计算
4、结果显示在名称为 Textl的文本框内。在窗体文件中已经给出了全部控件 (如图 3166所示 )，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序功能为：在文本框 Textl中输入一个正整数 N后，单击 “计算 ”按钮，则计算 11+22+33+N N，并将计算结果显示在 Text2中。程序中的函数 f可以计算 mm的值。 在给出的窗体文件中已经有了全部控件，但程序不完整。要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，
5、并编写相应的程序，实现程序的功能，并且必须在运行时计算 N=8时的结果。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。程序调试通过后，必须计算 N=8时的结果，否则无成绩。 国家二级 VB机试（上机操作）模拟试卷 82答案与解析 一、基本操作题 1 【正确答案】 第 1小题【操作步骤】步骤 1：新建一个 “标准 EXE”工程，在窗体Fontal中画一个标签，并设置它的相关属性，其属性和值如表 4-40所示。步骤 2：按要求将文件保存至考生文件夹中。【操作步骤】步骤 1：新建一个 “标准 EXE”工程，在窗体 Fonnl中画一个文本框和一个水平滚动条，在属性设置窗口
6、中设置其相关属性，其属性及值如表4 41所示。步骤 2：打开代码编辑窗口，编写水平滚动条的 Change事件过程。参考代码： Private Sub I-IScrolllChange() Text： 1 Text=HScEOlll ValueEnd Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开本题工程文件 sjt3 vbp，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Select CaSeIndex CaSe 0 Textl Text=Textl Text+1 步骤 2：按要求将文件保存至
7、考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗 口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Select Case s f=10 f=1 0+(S一 4)*1 2 CaSe E1Se f=1 0+(154)*1 2+(s一 15)*1 8 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sit5 vbp，在码编辑窗口的指定位置输入以下代码： 参考代码： Prirate Sub Commandl Click() =考生
8、 编写程序开始 = Dim i， j As Integer， k As Long i=Text1 Text k=0 For j=1 To i k=k+f(j) Next Text2 Text=k =考生编写程序结束 = Open App Path&“ out： 5 ctat”For Output As#1 Print#1， Text1， Text2 Close#1 Erld Sub 步骤 2：在 代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： s=1 s=s*m f=s 步骤 3：按 键运行程序，在文本框中输入 8，单击 “计算 ”按钮。 步骤 4：按要求将文件保存至考生文件夹中。
