[计算机类试卷]国家二级VB机试(上机操作)模拟试卷438及答案与解析.doc

上传人:eastlab115 文档编号:499861 上传时间:2018-11-29 格式:DOC 页数:10 大小:273.50KB
下载 相关 举报
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷438及答案与解析.doc_第1页
第1页 / 共10页
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷438及答案与解析.doc_第2页
第2页 / 共10页
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷438及答案与解析.doc_第3页
第3页 / 共10页
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷438及答案与解析.doc_第4页
第4页 / 共10页
[计算机类试卷]国家二级VB机试(上机操作)模拟试卷438及答案与解析.doc_第5页
第5页 / 共10页
点击查看更多>>
资源描述

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中。

展开阅读全文
相关资源
猜你喜欢
相关搜索

当前位置:首页 > 考试资料 > 职业资格

copyright@ 2008-2019 麦多课文库(www.mydoc123.com)网站版权所有
备案/许可证编号:苏ICP备17064731号-1