1、国家二级 VB机试（上机操作）模拟试卷 10及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。在名称为Forml的窗体上用名称为 Shapel的形状控件画一个长、宽均为 1200的正方形。请设置适当的属性满足以下要求： 窗体的标题为 ”正方形 ”，窗体最小化按钮不可用； 正方形的边框为虚线 (线型不限 )。运行后的窗体如图 2-7l所示。注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjtl frm。2 在名称为 Forml、标题为 ”标签 ”的窗体上，画一个名称为 Labell并可自动调整
2、大小的标签，其标题为 ”计算机等级考试 ”，字体大小为三号字；再画两个命令按钮，标题分别是 ”宋体 ”和 ”黑体 ”，名称分别为 Commandl、 Command2。如图 2-72所示。 要求：编写两个命令按钮的 Click事件过程。程序运行后，如果单击 ”宋体 ”命令按钮，则标签内容显示为宋体字体；如果单击 ”黑体 ”按钮，则标签内容显示为黑体字体。 注意：程序中不得使用变量，事件过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文 件名为 sjt2 frm。 二、简单应用题 3 在考生文件夹下有一个工程文件 sjt3 vbp，其窗体上有一个名称为 L
3、abell的控件数组，含三个标签，标题分别是 ”开始时间 ”、 ”结束时间 ”和 ”通话费用 ”：有一个名称为 Textl的控件数组，含三个初始值为空的文本框；此外还有两个名称分别为Cmdl和 Cmd2的命令按钮，标题分别是 ”通话开始 ”和 ”通话结束 ”。其中通过属性窗口对 ”通话结束 ”命令按钮的初始状态设置为禁用，如图 2-73所示。该程序的功能是计算公用电话计时收费。计时收费标准为：通话时间在 3分钟以内时，收费0 5元； 3分钟以上时，每超过 1分钟加收 0 15元，不足 1分钟按 1分钟计算。程序执行的操作如下： 如果单击 ”通话开始 ”按钮，则在 ”开始时间 ”右侧的文本框中显
4、示开始时间，且 ”通话结束 ”命令按钮变为可用状态， “通话开始 ”命令按钮不可用； 如果单击 ”通话结束 ”按钮，则 ”结束时间 ”右侧的文本框中显示结束时间，同时计算通话费用，并将其显示在 ”通话费用 ”右侧的文本框中， ”通话开始 ”命令按钮变为可用状态， ”通话结束 ”命令按钮不可用。在窗体文件中已经给出了全部控件(如图 2-73所示 )和程序，但程序不完整，要求去掉程序中的 注释符，把 ?改为正确的内容，以实现上述功能。注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 4 在考生文件夹下有一个工程文件 sjt4 vbp，文件 in4 txt中有 5组数据，每
5、组 10个，依次代表语文、英语、数学、物理、化学这 5门课程 10个人的成绩。程序运行时，单击 ”读入数据 ”按钮，可从文件。 in4 txt中读入数据放到数组 a中。单击 ”计算 ”按钮，则计算 5门课程的平均分 (平均分取整 )，并依次放入 Textl文本框数组中。单击 ”显示图形 ”按钮，则显示平均分的直方图，如图 2-74所示 。窗体文件中已经有了全部控件，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 5 在考生文件夹下有一个工程文件 sjt5 vbp，其窗体上有两个标题分
6、别是 ”读数据 ”和 ”统计 ”的命令按钮。请画两个标签，其名称分别是 Labell和 Label2，标题分别为 ”最长单词的长度为 ”和 ”以该长度最后一次出现的单词是 ”；再画两个名称分别为Textl和 Text2，初始值为空的文本框，如图 2-75所示。程序功能如下 ： 如果单击 ”读数据 ”按钮，则将考生文件夹下 in5 dat文件的内容读到变量 s中 (此过程已给出 )； 如果单击 ”统计 ”按钮，则自动统计 in5 dat文件 (该文件中仅含有字母和空格，而空格是用来分隔不同单词的 )中最长单词的长度，以及 in5 dat中最后一个以该长度出现的单词，并将该单词的长度显示在 Tex
7、tl文本框内，将该单词显示在 Text2文本框内。 “读数据 ”命令按钮的 Click事件过程已经给出，请为 ”统计 ”命令按钮编写适当的事件过程，实现上述功能。注意：考生不得修改窗体文件中已经存在的控件和程序，在结束程序运行之前，必须进行统计，且必须通过单击窗体右上角的关闭按 钮结束程序，否则无成绩。最后，程序按原文件名存盘。国家二级 VB机试（上机操作）模拟试卷 10答案与解析 一、基本操作题 1 【正确答案】 步骤 1：新建一个 ”标准。 EXE”工程，在窗体 Forml中加入一个形状控件，其相关属性设置如表 3-36所示。 步骤2：按要求将文件保存至考生文件夹中。 2 【正确答案】 步
8、骤 1新建一个 ”标准 EXE”工程，如表 3-37在窗体中画出控件并设置其相关属性。 步骤 2：打开代码编辑窗口，编写两个命令按钮的单击事件过程。参考代码： Private Sub Commandl_Cl ick( )Labell FontName=“宋体 ”End SubPrivate Sub Command2_Cl ick( )Labell FontName=“黑体 ”End Sub步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 3 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。
9、 参考代码： Textl(0) Text=Str(Time( ) s=s+ (m-3) *0 1 5 Cmd1 Enabled=True Cmd2 Enabled=False 步骤 2：按要求将文件保存至考生文件夹中。 4 【正确答案】 步骤 1：打开考生文件下的本题工程文件 sjt4 vbp，在代码编辑窗口，去掉程序中的注释符 ”“，将问号 ”?”改为正确的内容。 参考代码： Open App Path&” in4 txt”For Input As#1 s(i) = s(i) +a(i， j) s(i)=CInt(s(i) 10) Shapel(k-1) Top=m-Shapel(k-1)
10、_ Height Shapel(k-1) Visible=True 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 5 【正确答案】 步骤 1：打开考生文件夹下的本题工程文件 sjt5 vbp，如表 3-38所列在窗体上画出控件并设置它们的相关属性。步骤 2： 打开代码编辑窗口，在指定位置编写 ”统计 ”按钮的单击事件过程。参考代码： Private Sub Command2_Click( )需考生编写 n=Len(s)： t=“Dim Max_len As IntegerFor i=1 To nc=Mid(s， i， 1)If c“ Thent=t+cElseIf Len(t) Max_len ThenMa_len=Len(t)Max_word=tEnd Ift= “End IfNext iIf Len(t) Max_len ThenMax_len=Len(t)Max_word=tEnd If Text1 Text=Max_lenText2 Text=Max_wordEnd Sub步骤 3：按要求将文件保存至考生文件夹中。步骤 4：按 F5键运行程序，先单击 ”读数据 ”按钮，再单击 ”统计 ”按钮，最后单击窗体右上角的关闭 按钮结束程序。
