1、国家二级 VB机试（上机操作）模拟试卷 335及答案与解析 一、基本操作题 1 (1)在名称为 Form1的窗体上添加两个名称分别为 Frame1、 Frame2的框架，标题分别为 “字号 ”、 “修饰 ”；在 Frame1中添加两个单选按钮，名称分别为 Option1、Option2，标题分别为 “10号字 ”、 “20号字 ”，且标题显示在单选按钮的左边；在Frame2中添加一个名称为 Check1的复选框，标题为 “下划线 ”。程序运行后的窗体如图所示。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1 vbp，窗体文件 名保存为 sjt1 frm。(2)在名称为 Form1
2、的窗体上从上到下添加两个文本框，名称分别为 Text1、 Text2；再添加一个命令按钮，名称为Command1，标题为 “选中字符数是 ”。程序运行时，在 Text1中输入若干字符，选中部分内容后，单击 “选中字符数是 ”按钮，则选中的字符个数显示在 Text2中 (如图所示 )。请编写按钮的 Click事件过程。 要求：程序中不得使用变量，事件过程中只能写一条语句。 注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt2 vbp，窗体文件名保存为 sjt2 frm。二、简单应用题 2 (1)在考生文件夹下有工程文件 sjt3 vbp，其窗体上有 1个标题为 “计算 ”的命令按钮， 1
3、个标题为 “无理数 e的近似值 ”的标签。请再画 1个初始内容为空的文本框Text1，如图所示。程序功能为：单击 “计算 ”命令按钮，则计算无理数 e的近似值，并将结果显示在 Textl文本框中。近似公式如下： e=1+1 1!+1 2!+13!+1 n!+ 请将程序代码中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。 (2)在考生文件夹下有一个工程文件 sjt4 vbpo其窗体中有 1个名称为 Command1，标题为 “查找 ”的命令按钮； 3个初始内容为空的文本框 Text1、 Text2和 Text3
4、，其中 Text1允许显示多行内容，且有垂直滚动条，如图所示。程序功能为：首先在 Text1中输入原始字符串，在 Text2中输入要查找的单个字符，然后单击 “查找 ”按钮，则在 Text3中显示查找的结果。图示为某一次的运行效果。 请将 “查找 ”命令按钮 Click事件过程中的注释符去掉，把 ?改为正确内容，以实现上述程序功能。 注意：考生不得修改窗体文件中已经存在的控件和程序，最后，程序按原文件名存盘。三、综合应用题 3 在考生文件夹下有一个工程文件 sjt5 vbp。程序运行时，单击 “装入数据 ”按钮，则从考生文件夹下的 in5 txt文件中读入所有城市名称和距离，城市名称按顺序添加
5、到列表框 List1中，距离放到数组 a中；当选中列表框中的一个城市时，它的距离就在 Text1中显示，如图所示；此时，单击 “计算运费 ”按钮，则计算到该城市的每吨运费 (结果取整，不四舍五入 )，并在 Text2中显示。 每吨运费的计算方法是：距离 折扣 单价。 其中，单价为 0 3。折扣 为距离 500 折扣为 1 500距离1000 折扣为 0 98 1000距离 1500 折扣为 0 95 1500距离 2000 折扣为 0 92 2000距离 折扣为 0 9 单击 “保存 ”按钮，则把距离和每吨运费存到文件 out5 txt中。 已经给出了所有控件和部分程序，要求： 去掉程序中的注
6、释符，把程序中的 ?改为正确的内容。 编写 “计算运费 ”按钮的 Click事件过程。 编写列表框的Click事件过程。 注意：不得修改已经存在的程序；在退出程序之前，必须至少计算一次运费，且必须使用 “保存 ”按钮存储计算结果，否则无成绩。最后，程序按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 335答案与解析 一、基本操作题 1 【正确答案】 (1) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中的控件及属性见表 3 43。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：建立界面，添加相应的控件并设置控件的属性。程
7、序中涉及的控件及属性见表 3 44。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 PriVate sub Command2_Click() Text2 =Text1 SelLength End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 二、简单应用题 2 【正确答案】 (1) 【操作步骤】 步骤 1：打开本题项目工程，并在窗体中添加文本控件 Text1， 并按照表 4 6设置文本控件 Text1的属性，结果如图 4 5所示。步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Command1_Click() Dim
8、e As Single， x As Single Dim i As Integer e=0： i=0 x=1 Do While x 0 00001 e=e+x i=i+1 x1/jc(i) Loop Text1 Text=e End Sub Function jc(n As Integer)As Long Dim i As Integer Dim t As Long l=1 For i=1 To n t=t*i Next jc=1 End Function 步骤 3： 调试并运行程序，关闭程序后按题目要求存盘。 (2) 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去
9、掉程序中的注释符 “”，将问号改为正确的内容。 Private Sub Command1_Click() Dim X As String Dim num As Integer， i As Integer i=1 num=0 Do While i =Len(Text1) If Mid(Text1,i,1)=Text2 Then num=num+1 End If i=i+1 Loop If num=0 Then x=“没有找到 !“ Else x=”找到了 ”&num&”个 ”&Text2 End If Text3=x End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 三、综合
10、应用题 3 【正确答案】 【操作步骤】 步骤 1：打开本题工程文件。 步骤 2：打开代码编辑窗口，去掉程序中的注释符 “”，将问号改为正确的内容，并编写相应的代码。 Dim a(10)As Integer， n As Integer Private Sub Commandl_Click() Open App Path ” in5 txt”For Input AS#1 While Not EOF(1) n=n+1下标循环加 1 Input#1， ch$， a(n)将文件依次读入 ch， a(n)中 Listl AddItem ch将城市名添加到 Listl中 Wend Close#1 End S
11、ub Private Sub Command2 Click() 需要考生编写的内容 b=Val(Text1) If b =0 And b 500 Then判断 b的范围 m=0 3 * b ElseIf b =500 And b 1000 Then m=0 3 * b*0 98 Else If b =1 000 And b 1500Then m=0 3*b*0 95 Else If b =150 0 And b 2 000Then m=0 3*b*0 92 Else If b =20 00 Then m=0 3*b*0 9 End If Text2*int(m) End Sub Private Sub List1_Click() 需要考生编写的内容 Text1=a(Listl LiStIndex+1) 通过 Listl ListIndex+1来确定所选城市对应的距离 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。
