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