1、国家二级 VB机试（上机操作）模拟试卷 206及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)在标题为 “列表框 ”、名称为 Forml的窗体上画一个名称为 List1列表框，通过属性窗口输入四个列表项： “数学 ”、 “语文 ”、 “历史 ”、 “地理 ”，列表项采用 “复选框形式 ”，如图 2 203所示。列表框的宽为 1100，高不限。 注意：存盘时必须存放在考生文件夹下，工程文件名为 sjt1 vbp，窗体文件名为 sjt1 frm。 (2)在名称为 Form1的 窗体上建立一个名称为 “menu1”、标题为
2、 “文件 ”的弹出式菜单，含有三个菜单项，它们的标题分别为 “打开 ”、 “关闭 ”、 “保存 ”，名称分别为 “m1”、“m2”、 “m3”。冉画一个命令按钮，名称为 “Command1”、标题为 “弹出菜单 ”。要求：编写命令按钮的 Click事件过程，使程序运行时，单击 “弹出菜单 ”按钮即可弹出 “文件 ”菜单 (如图 2-204所示 )。 注意：程序中不得使用变量，事什过程中只能写一条语句。存盘时必须存放在考生文件夹下，工程文件名为 sjt2 vbp，窗体文件名为 sjt2 frm。 二、简单应用 题 2 (1)在考生文件夹下有一个工程文件 sjt3 vbp，其窗体上有一个名称为 L
3、abell的控件数组，含三个标签，标题分别是 “开始时间 ”、 “结束时间 ”和 “通话费用 ”；有一个名称为 Text1的控件数组，含三个初始值为空的文本框：此外还有两个名称分别为 Cmdl和 Cmd2的命令按钮，标题分别是 “通话开始 ”和 “通话结束 ”。其中通过属性窗口对 “通话结束 ”命令按钮的初始状态设置为禁用，如图 2228所示。该程序的功能是计算公用电话计时收费。计时收费标准为：通话时间存 3分钟以内时，收费 0 5元： 3分钟以上时，每超过 1分钟加收 0 15元，不足 1分钟按 1分钟计算。程序执行的操作如下： 如果单击 “通话开始 ”按钮，则在 “开始时间 ”右侧的文本框
4、中显示开始时间，且 “通话结束 ”命令按钮变为可用状态， “通话开始 ”命令按钮不可用： 如果单击 “通话结束 ”按钮，则 “结束时间 ”右侧的文本框中显示结束时间，同时计算通话费用，并将其显示在 “通话费用 ”右侧的文本框中， “通话开始 ”命令按钮变为可用状态， “通话结束 ”命令按钮不可用。 在窗体文件中已经给出了全部控件 (如图 2 228所示 )和程序，但程序不完整，要求去掉程序中的注释符，把 ?改为正确的内容 ，以实现上述功能。 注意：不得修改已经存在的内容和控件属性，最后将修改后的文件按原文件名存盘。 (2)存考生文件夹下有一个上程文件 sjt4 vbp，文件 in4 txt中有
5、 5组数据，每组 10个，依次代表语文、英语、数学、物理、化学这 5门课程 10个人的成绩。程序运行时，单击 “读入数据 ”按钮，可从文件 in4 txt中读入数据放到数组 a中。单击 “计算 ”按钮，则计算 5门课程的平均分 (平均分取整 )，并依次放入 Textl文本框数组中。单击 “显示图形 ”按钮则显示平均分的直方图，如图 2 229所示。窗体文件中已经有了伞部控 件，但程序不完整，要求去掉程序中的注释符，把程序中的 ?改为正确的内容。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp，窗口有
6、 2个名称分别为 Commandl和Command2、标题分别为 “读数据 ”和 “排序 ”的命令按钮，有 2个标题分别为 “数组A”和 “数组 B”的标签。请将窗体标题设置为 “完全平方数排序 ”；再画 2个名称分别为 Text1和 Text2、初始内容都为空的文本框，并且可多行显示，有垂直滚动条，如图 2 47所 示。程序功能如下： 1)单击 “读数据 ”按钮，则把考生文件 夹下：in5 dat文件中的 100个正整数读入数组 A，并将它们显示在 Text1文本框中； 2)单击 “排序 ”按钮，则首先将这 100个数中的所有完全平方数放入数组 B中，并将它们按降序排列显示在 Text2文本
7、框中。 提示：一个整数若是另一个整数的平方，那么它就是完全平方数。如 144=12，所以 144就是一个完全平方数。 要求：去掉注释符，把 ?改为正确内容，并添加代码使得 “排序 ”命令按钮的 Click事件过程可以实现上述功能。 提示： Sort过程可以把求出的完全平方数进行排序，可以直接调用。 注意：考生不得修改窗体文 件中已经存在的控件和程序，在结束程序运行之前，必须进行 “排序 ”，且须用窗体右上角的关闭按钮结束程序，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 206答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新
8、建一个 “标准 EXE”工程，如表3-107在窗体中画出控件并设置其相关属性。步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 3-108中的设置建立菜单项。 步骤 2：在窗体上画一个名为 Commandl，标题为 “弹出菜单 ”的命令按钮，打开代码编辑窗口，编写 “弹出菜单 ”按钮的单击事件过程。 参考代码： Private Sub CommandlClick() Forml，PopupMenu menul End Sub 步骤 3：按要求将文件保存至学生文件夹中。 二、简单
9、应用题 2 【正确答案】 第 1小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sjt3 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Textl(0) Text=Str(Time() S=S+(m一 3)*0 15 Cmdl Enabled=True Cmd2 Enabled=False 步骤 2：按要求将文件保存至考生文件央中。 第 2小题 【操作步骤】 步骤 1：打开考生文件下的本题工程文件 sit4 vbp，在代码编辑窗口，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Open App Path ” i
10、n4 txt”For Input As#1 S(i)=S(i)+a(i， j) S(i)=CInt(S(i) 10) Shapel(k一 1) Top=mShapel(k1) Height Shapel(k一 1) Visible=True 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生文件夹下的工程文件 sjt5 vbp，在码编辑窗口的指定位置输入以下代码： 参考代码： 考生编写的代码 n=0 For k=1 To 100 If a(k)0 Then d=Sqr(a(k) If Int(d)=d Then n=n+1 b(n)=a(k) End If End If Next 考生编写代码结束 步骤 2：在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Call Sort(b， n) 步骤 3：按 键运行程序单击 “读数据 ”按钮，然后单击 “排序 ”按钮，最后单击窗体右上角的关闭按钮结束程序。 步骤 4：按要求将文件保存至考生文件夹中。
