1、国家二级 VB机试（上机操作）模拟试卷 335及答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加两个名称分别为 Frame1、Frame2 的框架，标题分别为“字号”、“修饰”；在 Frame1中添加两个单选按钮，名称分别为 Option1、Option2，标题分别为“10 号字”、“20号字”，且标题显示在单选按钮的左边；在 Frame2中添加一个名称为 Check1的复选框，标题为“下划线”。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1vbp，窗体文件名保存为
2、sjt1frm。 (2)在名称为 Form1的窗体上从上到下添加两个文本框，名称分别为 Text1、Text2；再添加一个命令按钮，名称为 Command1，标题为“选中字符数是”。程序运行时，在 Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则选中的字符个数显示在 Text2中(如图所示)。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_二、简单应用题(总题数：1，分数：2.00)2.(1)在考生文件夹下
3、有工程文件 sjt3vbp，其窗体上有 1个标题为“计算”的命令按钮，1 个标题为“无理数 e的近似值”的标签。请再画 1个初始内容为空的文本框 Text1，如图所示。程序功能为：单击“计算”命令按钮，则计算无理数 e的近似值，并将结果显示在 Textl文本框中。近似公式如下：e=1+11!+12!+13!+1n!+请将程序代码中的注释符去掉，把?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbpo 其窗体中有 1个名称为 Command1，标题为“查找”的命令按钮；3 个初始内容
4、为空的文本框 Text1、Text2 和 Text3，其中 Text1允许显示多行内容，且有垂直滚动条，如图所示。程序功能为：首先在 Text1中输入原始字符串，在 Text2中输入要查找的单个字符，然后单击“查找”按钮，则在 Text3中显示查找的结果。图示为某一次的运行效果。 请将“查找”命令按钮Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。 （分数：2.00）_三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。程序运行时，单击“装入数据”按钮
5、，则从考生文件夹下的 in5txt 文件中读入所有城市名称和距离，城市名称按顺序添加到列表框 List1中，距离放到数组 a中；当选中列表框中的一个城市时，它的距离就在 Text1中显示，如图所示；此时，单击“计算运费”按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)，并在 Text2中显示。 每吨运费的计算方法是：距离折扣单价。 其中，单价为 03。折扣 为距离500 折扣为 1 500距离1000 折扣为 098 1000距离1500 折扣为 095 1500距离2000 折扣为 092 2000距离 折扣为 09 单击“保存”按钮，则把距离和每吨运费存到文件 out5txt 中。
6、已经给出了所有控件和部分程序，要求： 去掉程序中的注释符，把程序中的?改为正确的内容。 编写“计算运费”按钮的 Click事件过程。 编写列表框的 Click事件过程。 注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须使用“保存”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_国家二级 VB机试（上机操作）模拟试卷 335答案解析(总分：6.00，做题时间：90 分钟)一、基本操作题(总题数：1，分数：2.00)1.(1)在名称为 Form1的窗体上添加两个名称分别为 Frame1、Frame2 的框架，标题分别为“字号”、“修饰”；在
7、Frame1中添加两个单选按钮，名称分别为 Option1、Option2，标题分别为“10 号字”、“20号字”，且标题显示在单选按钮的左边；在 Frame2中添加一个名称为 Check1的复选框，标题为“下划线”。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1vbp，窗体文件名保存为 sjt1frm。 (2)在名称为 Form1的窗体上从上到下添加两个文本框，名称分别为 Text1、Text2；再添加一个命令按钮，名称为 Command1，标题为“选中字符数是”。程序运行时，在 Text1中输入若干字符，选中部分内容后，单击“选中字符数是”按钮，则
8、选中的字符个数显示在 Text2中(如图所示)。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为 sjt2vbp，窗体文件名保存为 sjt2frm。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中的控件及属性见表 343。 步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 344。)解析：二、简单应用题(总题数：1，分数：
9、2.00)2.(1)在考生文件夹下有工程文件 sjt3vbp，其窗体上有 1个标题为“计算”的命令按钮，1 个标题为“无理数 e的近似值”的标签。请再画 1个初始内容为空的文本框 Text1，如图所示。程序功能为：单击“计算”命令按钮，则计算无理数 e的近似值，并将结果显示在 Textl文本框中。近似公式如下：e=1+11!+12!+13!+1n!+请将程序代码中的注释符去掉，把?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4vbpo 其窗体中有 1个名称为 Command1，标题为
10、“查找”的命令按钮；3 个初始内容为空的文本框 Text1、Text2 和 Text3，其中 Text1允许显示多行内容，且有垂直滚动条，如图所示。程序功能为：首先在 Text1中输入原始字符串，在 Text2中输入要查找的单个字符，然后单击“查找”按钮，则在 Text3中显示查找的结果。图示为某一次的运行效果。 请将“查找”命令按钮Click事件过程中的注释符去掉，把?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：(1) 【操作步骤】 步骤 1：打开本题项目工程，并在窗体中添加文本控
11、件Text1， 并按照表 46 设置文本控件 Text1的属性，结果如图 45 所示。 )解析：三、综合应用题(总题数：1，分数：2.00)3.在考生文件夹下有一个工程文件 sjt5vbp。程序运行时，单击“装入数据”按钮，则从考生文件夹下的 in5txt 文件中读入所有城市名称和距离，城市名称按顺序添加到列表框 List1中，距离放到数组 a中；当选中列表框中的一个城市时，它的距离就在 Text1中显示，如图所示；此时，单击“计算运费”按钮，则计算到该城市的每吨运费(结果取整，不四舍五入)，并在 Text2中显示。 每吨运费的计算方法是：距离折扣单价。 其中，单价为 03。折扣 为距离500
12、 折扣为 1 500距离1000 折扣为 098 1000距离1500 折扣为 095 1500距离2000 折扣为 092 2000距离 折扣为 09 单击“保存”按钮，则把距离和每吨运费存到文件 out5txt 中。 已经给出了所有控件和部分程序，要求： 去掉程序中的注释符，把程序中的?改为正确的内容。 编写“计算运费”按钮的 Click事件过程。 编写列表框的 Click事件过程。 注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须使用“保存”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 （分数：2.00）_正确答案：(正确答案：【操作步骤】 步骤 1
13、：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符“”，将问号改为正确的内容，并编写相应的代码。 Dim a(10)As Integer，n As Integer Private Sub Commandl_Click() Open AppPath”in5txt”For Input AS#1 While Not EOF(1) n=n+1下标循环加 1 Input#1，ch$，a(n)将文件依次读入 ch，a(n)中 ListlAddItem ch 将城市名添加到 Listl中 Wend Close#1 End Sub Private Sub Command2 Click() 需
14、要考生编写的内容 b=Val(Text1) If b=0 And b500 Then判断 b的范围 m=03 * b ElseIf b=500 And b1000 Then m=03 * b*098 Else If b=1 000 And b1500Then m=03*b*095 Else If b=150 0 And b2 000Then m=03*b*092 Else If b=20 00 Then m=03*b*09 End If Text2*int(m) End Sub Private Sub List1_Click() 需要考生编写的内容 Text1=a(ListlLiStIndex+1) 通过ListlListIndex+1 来确定所选城市对应的距离 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。)解析：
