1、国家二级 VB机试（上机操作）模拟试卷 438及答案与解析 一、基本操作题 1 (1)在名称为 Form1，标题为 “框架 ”的窗体上添加一个名称为 Framel，且标题为空的框架。框架内含有两个单选按钮，名称分别为 Optl和 Opt2，其标题分别为 “字体 ”、 “大小 ”。注意：存盘时必须存放在考生文件夹下，工程文件名保存为sjt1 vbp，窗体文件名保存为 sjt1 frm。 (2)考生文件夹下的工程文件 sjt2 vbp中有一个由直线 Line1、 Line2和 Line3组成的三角形，直线 Line1、 Line2和 Line3的坐标值如下所示： 名称 X1 Y1 X2 Y2 Li
2、ne1 600 1200 1600 300 Line2 600 1200 2600 1200 Line3 1600 300 2600 1200 要求添加一条直线 Line4以构成三角形的高，且该直线的初始状态为不可见。再添加两个命令按钮，名称分别为 Cmd1、 Cmd2，标题分别为 “显示高 ”、 “隐藏高 ”，如图所示。请编写适当的事件过程使得在程序运行时，单击 “显示高 ”按钮，则显示三角形的高；单击 “隐藏高 ”按钮，则隐藏三角形的高。 注意：要求程序中不得使用变量 ，每个事件过程只能写一条语句。不得修改已经存在的控件，最后将修改后的文件按原文件名存盘。 二、简单应用题 2 (1)在名称
3、为 Form1的窗体上添加一个名称为 Label1、标题为 “添加项目 ”的标签；添加一个名称为 Text1的文本框，初始内容为空；添加一个名称为 Combol的下拉式组合框，并通过属性窗口输入若干项目 (不少于 3个，内容任意 )；再添加两个命令按钮，名称分别为 Cmnmandl、 Cmnmand2，其标题分别为 “添加 ”、 “统计 ”。在程序运行时，向 Text1中输入字符，单击 “添加 ”按钮后，则将 Text1中的内容作为一个列表项被添加到组合框的列表中；单击 “统计 ”按钮，则在窗体空白处显示组合框中列表项的个数，如图所示。请编写两个命令按钮的 Click事件过程。注意：程序中不得
4、使用变量，也不能使用循环结构，存盘时必须存放在考生文件夹 F，工程文件名保存为 sjt3 vbp窗体文件名保存为 sjt3 frm。(2)在考生文件夹下有一个工程文件sjt4 vbp其窗休如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为 “明文 ”)加密，加密结果 (称为 “密文 ”)显示在下面的文本框中。加密的方法为：选中一个单选按钮， 单击 “加密 ”按钮后，根据选中的单选按钮后面的数字 n，将 “明文 ”中的每个字母改为它后面的第 n个字母 (“z”后面的字母认为是 “a”， “Z”后面的字母认为是 “A”)，如图所示。窗体中已经给出了所有控件和程序，但程序不完整，请去掉程序
5、中的注释符，把程序中的 ?改为正确的内容。注意：不得修改程序中的其他部分和控件的属性。最后将修歧后的文件按原文件名存盘。 三、综合应用题 3 在考生目录下有工程文件 sjt5 vbp和文本文件： in5 txt， in5 txt中有不超过100个 4位正整数。窗体上有 2个命令按钮，其功 能是：单击 “读入数据 ”按钮，可以读入 in5 txt文件中的所有数，并显示在文本框中。单击 “计算并保存 ”按钮，能够把满足下述条件的整数的个数，以及这些数的累加和存入 out5 txt文件。这些数需满足的条件是：数中各位数字累加后能够被 5整除 (例如： 5235各位数字累加和是 15，能够被 5整除，
6、所以是满足条件的数 )。 要求： 1)把 “读入数据 ”按钮的 Click事件过程中的 ?改为正确的内容； 2)为 “计算并保存 ”按钮的 Click事件过程编写代码。 (事件过程的最后一行用于存盘，已经给出，考生不得 修改，否则无成绩 !)。 注意：不能修改程序的其他部分和控件属性。最后把修改后的文件按原文件名存盘。 国家二级 VB机试（上机操作）模拟试卷 438答案与解析 一、基本操作题 1 【正确答案】 (1)步骤 1：建立界面，添加相应的控件并设置控件的属性。程序中涉及的控件及属性见表 3 56。步骤 2：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 l：打开 sjt2工程，
7、按照题目要求建立 Line控件并设置其属性，如图 3 33所示。步骤 2：按照步骤 1建立其他控件并设置相关属性，程序中涉及的控件及属 性见表 3 57。步骤 3：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private Sub Cmdl_Click() Line4 Visible=True将 Line4显示 End Sub Private Sub Cmd2_Click() Line4 Visible-False将 Line4隐藏 End Sub 步骤 4：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 (1)通过窗体的 Caption属性设置窗体的标题，通过框架的 Na
8、me和Caption属性设置框架的名称和标题，通 过单选按钮的 Name和 Caption属性设置单选按钮的名称和标题。 (2)通过对直线 Line1、 Line2和 Line3的坐标值的计算，确定线条的 X1、 X2、Y1和 Y2属性的值，画出线段 Line4，并将其 Visible属性设置为 False，使得在初始状态下为不可见。再通过命令按钮的 Name和 Caption属性设置命令按钮的名称和标题。在 Cmdl_Click事件过程中将 Line4的 Visible属性设置 True，则可以显示高，在 Cmd2_Click事件过程中把 Line4的 Visible属性设置 False，则
9、可以隐藏高。 二、简单应用题 2 【正确答案】 (1)步骤 1：新建一个窗体，按照题目要求建立控件并设置控件属性，如图 3 22所示。 程序中用到的控件及属性 设置见表 3 15。步骤 2：打开代码编辑窗口，在指定位置编写如下代码。 参考答案 Private sub Command1_Slick() Combol AddItem Text1 End Sub PriVate Sub Command2_Slick() Print Combol ListCount End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 (2)步骤 l：打开本题工程文件。 步骤 2：打开代码编辑窗口，去
10、掉程序中的注释符 “”，将问号改为正确的内容。 参考答案 Private Sub Command1 Click() Dim n As Integer， k As Integer， m As Integer Dim c As String， a As String F0r k=0 To 2 If Op1(k) Value Then n=Val(Op1 (k) Caption) End If Next k m=Len(Text1 Text) a=“ For k=1 To m c =Mid$(Text1 Text， k， 1) c=String(1， Asc(c) +n) If c“z“ Or c
11、“Z“And c 【试题解析】 (1)命令按钮和标签的标题用属性窗口中的 Caption属性设置。要使Text1的文本框没有初始内容，需要将属性窗口中的 Text属性设为空。要在下拉式组合框中输入内容，可以在属性窗口中对下拉式组合框的 List属性进行设置。 AddItem方法用来向组合框中添加一个列表项，其格式为： 组合框 AddItem列表项 索引 ListCount属性用来返回组合框中列表项的个数。 (2)根据题意，首先要确定移动的位数，移动的位数是通过单选 按钮来选择的，移动的值是由单选按钮的 Caption属性值决定的，然后要确定循环的次数，循环的次数是由输入字母的个数决定的。使用
12、Mid()函数取出字符串中的字符，利用Asc()函数返回字符的代码，利用 String()函数将字符代码转换成字符。 Mid()函数的格式为 Mid(字符串， p， n)。其中， Mid()函数从第 p个字符开始，向后截取 n个字符， p和 n都是算术表达式。 Mid()函数的第 3个变量可以省略，这样将从第 p个字符开始向后截取到字符串的结尾。 String()函数用于重复指定字符串中的字 符，返回新的字符串。 Asc()函数用于返回一个 Integer，代表字符串中首字母的字符代码。 三、综合应用题 3 【正确答案】 步骤 1：打开本题项目工程。 步骤 2：打开代码编辑窗口，去掉程序中的注
13、释符 “”，将问号改为正确的内容，并在 “考生编写的代码 ”区域填入相应的代码以实现题目的功能。 参考答案 Option Base 1 Dim a(100)As Integer， num As Integer Private Sub Command1_Click() Dim k As Integer k=1 Open App Path &“ in5 txt“For Input As #1 Do While Not EOF(1) Input #1， a(k) k=k+1 Loop Close #1 hum=k-1 For k=1 To RUm Text1=Text1&a(k)&“ Next k
14、End Sub Private Sub Command2_Click() Dim sum As Long， n As Integer， s As Integer Dim j As Integer sum=0： n=0 For i=1 T0 num s=a(i)Mod 10+a(i) 10 Mod 10+a(i) 100 Mod 10+a(i) 1000 If s Mod 5=0 Then sum=sum+a(i) n=n+1 End If Next i Call SaveFile(sum， n)此行用于存盘，考生不得修改，否则无成绩 ! End Sub Private Sub SaveFile
15、(sum As Long， n As Integer) Open App Path&“ out5 txt“For Output As #l Print #1， n， sum Close #1 End Sub 步骤 3：调试并运行程序，关闭程序后按题目要求存盘。 【试题解析】 Command1_Click事件过程中使用 Open语句打开文件，并通过Do While循环依次将文件中的数据读入到数组中，并保存读入元素的个数；Command2_Click事件 过程中通过 For循环取出每个元素，然后拆分出每个数组元素的个位，十位，百位和千位，并将各位数字累加到变量 s中，再通过 If语句判断 s能否被 5整除，并将满足条件的元素累加到变量 slim中。
