1、国家二级 VB机试（上机操作）模拟试卷 240及答案与解析 一、基本操作题 1 请根据以下各小题的要求设计 Visual Basic应用程序 (包括界面和代码 )。 (1)存名称为 Forml的窗体上画一个名称为 Listl的列表框，在属性窗口中为列表框添加三个选项：北京、上海、天津。再建立一个下拉菜单，菜单标题为 “文件 ”，名称为File，此菜单下含有一个子菜单项，标题为 “显示列表框 ”，名称为 Show，初始状态为选中，运行时的效果如图 2 130所示。 注意：存盘时，将文件保存至考生文件夹下，目窗体文件名为 sjtl frm，工程文件名为 sitl vbp。 (2)新建一个名称为 F
2、orml，标题为 “使用输入对话框 ”的窗体，该窗体上无任何控件。请编写适当的事件过程，使得运行程序并单击窝体时，出现输入对话框，该对话框的标题为 “等级考试 ”，提示信息为 “请输入 ”，默认值为 “Basic”。如图 2131所示。 注意：存盘时，将文件保存至考生文件夹下，且窗体文件名为 sjt2 frm，工程文件名为 sjt2 vbp。要求程序中不得使用变量，每个事件过程中只能写一条语句。 二、简单应用题 2 (1)在考生文件夹下有一个工程文件 sit3 vbp，相应的窗体文件为 sit3 frm。 在名称为 Forml的窗体上有一个名称为 Text1的文本框和名称为 Command1、
3、标题为“确定 ”的命令按钮，一个名称为 List1的列表框和两个名称分别为 Option1和Option2、标题分别为 “添加 ”和 “删除 ”的单选按钮，如图 2 3(a)所示。程序运行后，如果选择单选按钮 Optionl并在文本框中输入一个字符串，然后单击 “确定 ”命令按钮，则把文本框中的字符串添加到列表框中，并清除文本框，如图 23(b)所示；如果选择列表框中的一项和单选按钮 Option2，并单 击 “确定 ”命令按钮，则删除列表框中所选择的项目，如图 2 3(c)所示；如果不选择列表框中的项目，或者没有在文本框中输入字符串，则单击 “确定 ”命令按钮后，将显示一个信息框 “未输入或
4、未选择项目 ”，如图 23(d)所示。该程序不完整，请把它补充完整。 要求：去掉程序中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。(2)在考生文件夹下有一个工程文件 sjt4 vbp，相应的窗体文件为 sit4 frm。 在窗体上有一个命令按钮，其名称为 Commandl，标题为 “计算 ”。程序运行后，如果单击命令按钮，程序将根据下面的公式计算 的值： n 4=1 1 3+1 5 1 7+ ，所提供的窗体文件已给出了命令按钮的事件过程，程序运行结果如图 2 4所示。 该程序不完整，请把它补充完整。要求：去掉程序
5、中的注释符，把程序中的 ?改为正确的内容，使其能正确运行，但不能修改程序中的其他部分。最后用原来的文件名保存工程文件和窗体文件。 三、综合应用题 3 在考生文件夹下有一个工程文件 sit5 vbp。程序运行时，单击 “装入数据 ”按钮，则从考生目录下的 in5 txt文件中读入所有城市名称和距离，城市名称按顺序添加到列表框 List1中，距离放到数组 a中；当选中列表框中的一个城市；时，它的距离就显示在 Text1中，如图 2-157所示；此时，单击 “计算运费 ”按钮，则计算到该城市的每吨运费 (结果取整，不四舍五入 )，并显示在 Text2中。每吨运费的计算方法足：距离 折扣 单价。 其中
6、：单价为 0 3。距离国家二级 VB机试（上机操作）模拟试卷 240答案与解析 一、基本操作题 1 【正确答案】 第 1小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”工程，在窗体 Forml中画一个名为 Listl的列表框，在其 List属性中添加三个项目，依次为 “北京 ”、 “上海 ”和 “天津 ”，注意每输入完一项后按键换行再输入下一项。 步骤 2：新建一个 “标准 EXE”工程，选择【工具】 【菜单编辑器】命令，打开菜单设计器，如表 3 70中的设置建立菜单项。步骤 3：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：新建一个 “标准 EXE”上程，将窗
7、体FormI的 Caption属性设置为 “使用输入 对话框 ”。 步骤 2：打开代码编辑窗口，编写以下事什过程： 参考代码： Private Sub Form_Click() InputBox”请输入 ”， ”等级考试 ”， ”BasiC” End Sub 步骤 3：按要求将文件保存至考生文件夹中。 二、简单应用题 2 【正确答案】 第 l小题 【操作步骤】 步骤 l：打开考生文件夹中的本题丁程文件 sjs vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Listl AddItem Textl Text If Forml Option2 Val
8、ue=True And Listl LiStIndex=0 Then Listl RemoveItem Listl ListIndex 步骤 2：按要求将文件保存至考生文件夹中。 第 2小题 【操作步骤】 步骤 1：打开考生文件夹中的本题工程文件 sjt4 vbp，在代码编辑窗口中，去掉程序中的注释符 “”，将问号 “?”改为正确的内容。 参考代码： Result=Result+Sign*1 i Sign=一 Sign Text1 Text=ReSUlt*4 步骤 2：按要求将文件保存至考生文件夹中。 三、综合应用题 3 【正确答案】 【操作步骤】 步骤 1：打开考生义件灾下的奉题工程文件 s
9、it5 vbp。 步骤 2：在代码编辑窗口，去掉程序中的注释符 “*”，将问号 “?”改为正确的内容。 参考代码： n=n+1 Listl AddItem ch$ 步骤 3：编写 “计算运费 ”按钮和列表框的单击事件过程。 参考代码： Private Sub Command2一 Click() P=0 3 d=Int(Text1 Text 500) Select Case d Case 0 discount=1 Case 1 discount=0 98 Case 2 discount=0 95 Case 3 discount=0 92 Case Else discount=0 9 End Select Text2=Int(diScount*P*Text1) End Sub Private Sub ListlClick() Text1=a(Listl ListIndex+1) End Sub 步骤 4：运行程序，单击列表框中的某个列表项，并单击 “计算运费 ”按钮获得一个结果，然后单击 “保存 ”按钮保存计算结果。 步骤 5：按要求将文件保存至考生文件夹中。
