点击查看:2015计算机二级考试《VB》模拟练习题及解析汇总
1[简答题](1)在Form1的窗体上绘制一个命令按钮,其名称为Command1、标题为"隐藏";再画一个文本框,其名称为Text1、内容为"模拟考试"。编写适当的事件过程。程序运行后,在窗体加载时使文本框不可见,如果双击窗体,则文本框出现;此时如果单击命令按钮,则隐藏文本框,如图7-1所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj1.frm,工程文件名为sj1.vbp。
(2)在窗体Form1中绘制一个水平滚动条与一个标签,标签的名称为Label1,内容为空;水平滚动条的最大值为900,最小值为300,名称为HScroll1。要求编写适当的事件过程,只有当移动滚动条中的滚动块时,文本框才接收HScroll1的当前值,如图7-2所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj2.frm,工程文件名为sj2.vbp。
参考解析:
(1)本题考查控件画法、文本框和命令按钮的属性设置、窗体和命令按钮的事件。
文本框是否可见可通过其Visible属性设置,值为True表示显示,值为False表示不显示。文本框的Text属性用于设置或返回其显示的文本。
根据题意,新建"标准EXE"工程,将一个文本框控件和一个命令按钮添加到窗体中,文本框的名称为Text1、Text属性为"模拟考试",命令按钮的名称为Command1、Caption属性为"隐藏"。双击Command1进入代码窗口,编写如下代码:
(2)滚动条常用于取代数据的键盘输入,通过调整滚动条滑块的位置即可改变其Value属性的值。滚动条的Max属性、Min属性限定了滚动条所能表示的最大值和最小值,即Value属性值的取值范围。与滚动条有关的事件主要有Change事件和Scroll事件,在改变滚动框(即滑块)位置后触发Change事件;在拖动滚动框(即滑块)过程中触发Scroll事件。
根据题意,新建"标准EXE"工程,将一个标签和一个水平滚动条控件添加到窗体中,标签的名称为Label1、Caption属性为空,水平滚动条的名称为HScroll1、Min属性为300、Max属性为900。双击Command1进入代码窗口,编写如下代码:
2[简答题]请在名称为Form1的窗体上添加一个名称为H1的水平滚动条,并在属性窗口中设置它的属性值,使其满足下列要求:它的最小刻度值为l,最大刻度值为100,在程序运行时,用鼠标单击滚动条上滚动框以外的区域(不包括两边按钮),滚动框移动l0个刻度。再在滚动条下面画两个名称分别为Ll和I2的标签,并分别显示1和100,运行时的窗体如图所示。
注意:存盘时必须存放在考生文件夹下,工程文件名为sitl.vbp,窗体文件名为sitl.frm。
参考解析:
【考点分析】本题考点有:水平滚动条的Name、Min、Max和LargeChange属性以及标签的Name和Caption属性。
【解题思路】水平滚动条的最大刻度值和最小刻度值分别由Max和Min属性设置;单击滚动条上滚动框以外的区域移动刻度值大小由LargeChange属性设置,而单击滚动条两边按钮移动刻度大小由SmallChange属性设置,本题要求“单击滚动条上滚动框以外的区域移动刻度大小”,由Large.Change属性设置;标签标题显示由Caption属性设置。
【操作步骤】
步骤1:打开VisualBasic开发环境,按照题目的要求新建窗体并添加一个水平滚动条控件,如图3.1所示。
步骤2:在属性窗口中,按照题目的要求设置水平滚动条的相关属性,如图3.2所示。
步骤3:按照题目的要求,在窗体上添加两个标签控件,如图3.3所示。
步骤4:按照题目的要求没嚣两个标签的相关属性,如图3.4所示。
程序中用到的控件及属性见表3+1。
步骤5:按下键盘上的F5键运行程序。程序运行后的窗体界面如图3.5所示。
步骤6:按题目要求保存工程和窗体,如图3.6所示。
【易错提示】题目要求只在属性窗口设置属性值,请不要通过编写代码来达到要求。SmallChange为最小变动值属性,表示用户单击滚动条两端箭头时,滑块移动的增量值;LargeChange为最大变动值属性,表示用户单击滚动条的空白处时,滑块移动的增量值,要注意仔细区别。
3[单选题] 设R是一个二元关系,S是一个三元关系,则下列运算中正确的是( )。
A.R—SB.R×SC.R∩SD.R∪S
参考答案:B
参考解析:关系的交(∩)、并(∪)和差(-)运算要求两个关系是同元的,显然作为二元的R和三元S只能做笛卡儿积运算。
4[简答题] 在考生文件夹下有一个工程文件sit4.vbp,其窗体如图所示。该程序用来对在上面的文本框中输入的英文字母串(称为“明文”)加密,加密结果(称为“密文”)显示在下面的文本框中。加密的方法为:选中一个单选按钮,单击“加密”按钮后,根据选中的单选按钮后面的数字n,将“明文”中的每个字母改为它后面的第lt个字母(“z”后面的字母认为是“8t”,“Z”后面的字母认为是“A”),如图所示。窗体中已经给出了所有控件和程序,但程序不完整,请去掉程序中的注释符,把程序中的?改为正确的内容。
注意:不得修改程序中的其他部分和控件的属性。最后将修改后的文件按原文件名存盘。
参考解析:根据题意,首先要确定移动的位数,移动的位数是通过单选按钮来选择的,移动的值是由单选按钮的Caption属性值决定的,然后要确定循环的次数,循环的次数是由输入字母的个数决定的。使用Mid()函数取出字符串中的字符,利用Asc()函数返回字符的代码,利用String()函数将字符代码转换成字符。
Mid()函数的格式为Mid(字符串,P,n)。其中,Mid()函数从第P个字符开始,向后截取n个字符,P和n都是算术表达式。Mid()函数的第3个变量可以省,这样将从第P个字符开始向后截取到字符串的结尾。
String()函数用于重复指定字符串中的字符,返回新的字符串。
Asc()函数用于返回一个Integer,代表字符串中首字母的字符代码。
【操作步骤】
步骤1:打开本题工程文件。
步骤2:打开代码编辑窗口,去掉程序中的注释符“´”,将问号改为正确的内容。
参考答案(横线部分是需考生填入的内容)
Private Sub Command1_Click()
Dim n As Integer,k As Integer,m As Integer
Dim c As String,a As String
For k=0 To 2
If Op1(k).Value Then
n=Val(Op1(k).____Caption______)
End If
Next k
m=Len(Text1.Text)
a=""
Fork=1 To__m_______
c=Mid$(Text1.Text,_____k_____,1)
c=String(1,Asc(c)+n)
If c>"z"Or c>”Z”And c<"a"Then
e=String(1,Asc(c)一26)
End If
__________=a+c
Next k
Text2.Text=a
End Sub
步骤3:调试并运行程序,关闭程序后按题目要求存盘。
【易错提示】单选按钮数组的起始下标为0,而不是1,在循环和判断的时候要特别注意。
5[简答题](1)在考生文件夹下有工程文件sj3.vbp及窗体文件sj3.frm。该程序的窗体是不完整的,要求设计好窗体,并编写相应的程序,完成题目的要求。窗体上已有3个命令按钮,名称分别为Command1、Command2、Command3,标题分别为"修改"、"保存"、"添加";另有一文本框,名称为Text1。要求在窗体设计一组合框,名称为Combo1,初始表项内容如下:"北京010"、"天津022"、"上海021"。运行程序时,Combo1文本框中内容为"中国直辖市"。单击"添加"按钮,则可以把文本框中的内容添加到组合框中;当选中组合框的表项时,单击"修改"按钮,文本框中显示选中的表项,同时"保存"按钮变为可用。修改完毕,单击"保存",被选中项发生相应的变化,同时"保存"按钮变为不可用,如图9-3所示。
注意:保存时必须存放在考生文件夹下,窗体文件名为sj3.frm,工程文件名为sj3.vbp。
(2)在考生文件夹下有工程文件sj4.vbp及窗体文件sj4.frm,该程序是不完整的。窗体上有一个标签,名称为Label1。Label1上为提示文字和返回值。在窗体上画一个命令按钮,命名为Command1,标题为"判断"。程序运行后,如果单击命令按钮,则显示一个输入框,在该对话框中输入一个整数,并用这个整数作为实参调用函数过程Func1,在Func1中判断所输入的整数是否为偶数。如果是偶数,过程Func1返回1,否则返回0,并在标签上显示出来。程序运行时的窗体界面如图9-4所示。
注意:请在有"?"的地方填入正确内容,然后删除"?"及代码前的所有注释符"'",但不能修改其他部分。存盘时不得改变文件名和文件夹。
参考解析:
(1)根据题意,将一个ComboBox控件、一个文本框控件和三个命令按钮添加到窗体中,ComboBox的名称为Com-bol,在其List属性中添加"北京010"、"天津022"和"上海021",文本框的名称为Text1、Text属性为空,命令按钮的名称分别为Command1、Command2和Command3,Caption属性分别为"修改"、"保存"和"添加"。双击Command1进入代码窗口,编写如下代码:
(2)根据题意,将一个标签和一个命令按钮添加到窗体中,标签的名称为Label1,命令按钮的名称为Command1、Caption属性为"判断"。双击Command1,进入代码窗口,编写如下代码:
相关推荐:
北京 | 天津 | 上海 | 江苏 | 山东 |
安徽 | 浙江 | 江西 | 福建 | 深圳 |
广东 | 河北 | 湖南 | 广西 | 河南 |
海南 | 湖北 | 四川 | 重庆 | 云南 |
贵州 | 西藏 | 新疆 | 陕西 | 山西 |
宁夏 | 甘肃 | 青海 | 辽宁 | 吉林 |
黑龙江 | 内蒙古 |