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