2012全国计算机二级VB机试模拟题 (13)
- 格式:doc
- 大小:154.50 KB
- 文档页数:6
全国计算机二级《VB》练习题及答案全国计算机二级《VB》练习题及答案9月计算机等级考试将于9月23日-26日举行,目前处于紧张的备考阶段,以下是店铺搜索整理的一份全国计算机二级《VB》练习题及答案,供参考练习,预祝考生们考出自己理想的成绩!想了解更多相关信息请持续关注我们店铺!1.双击窗体中的对象后,VB将显示的窗口是(C)(单)A.工具箱B.项目(工程)窗口C.代码窗口D.属性窗口2.下述选项中,VB的程序设计方法是(B)(单)A.面向对象、顺序驱动B.面向对象、事件驱动C.面向过程、事件驱动D.面向过程、顺序驱动3.在VB中,要将一个窗体装载到内存进行变量初始化等预处理,但没有显示该窗体,应使用的方法或语句是(C)(单)A.ShowB.UnloadC.LoadD.Hide4.文本框的默认属性是(B)(单)A.CaptionB.TextD.Top5.标签默认属性是(A)(单)A.CaptionD.Top6.执行以下程序段:a$="abbacddcba"For I=6 To 2 Step -2X=Mid(a,I,I)Y=Left(a,I)z=Right(a,I)z=Ucase(X&Y&z)Next IPrint z输出结果为(B)(单)A.ABAB.BBABBAC.ABBABAD.AABAAB7.在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:Option Base 1Private Sub Command1_Click( )Dim a As Varianta=Array(1,2,3,4,5)Sum=0For I=1 To 5Sum = sum+a(I)Next Ix=Sum/5For I =1 To 5If a(I)>x Then Print a(I);End Sub程序运行后,单击命令按钮,在窗体上显示的内容是(D)(单)A.1 2B.1 2 3C.3 4 5D.4 58.假定一个工程由一个窗体文件Form1和两个标准模块文件Model1及Model2组成。
2012年3月全国计算机等级考试《二级VisualBasic语言程序设计》真题及答案2012年3月全国计算机等级考试二级笔试试卷Visual Basic 语言程序设计(考试时间90分钟,满分100分)一、选择题(每小题2分,共70分)下列各题A )、B )、C )、D )四个选项中,只有一个选项是正确的。
请将正确选项填涂在答题卡相应位置上,答在试卷上不得分。
(1)下列叙述中正确的是A )循环队列是队列的一种链式存储结构B )循环队列是队列的一种顺序存储结构C )循环队列是非线性结构D )循环队列是一种逻辑结构(2)下列叙述中正确的是A )栈是一种先进先出的线性表B )队列是一种后进先出的线性表C )栈与队列都是非线性结构D )以上三种说法都不对(3)一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为A )16B )10C )6D )4(4)在下列模式中,能够给出数据库物理存储结构与物理存取方法的是A )外模式B )内模式C )概念模式D )逻辑模式(5)在满足实体完整性约束的条件下A )一个关系中应该有一个或多个候选关键字B )一个关系中只能有一个候选关键字C )一个关系中必须有多个候选关键字D )一个关系中可以没有候选关键字(6)有三个关系R 、S 和T 如下:R ST 则由关系R 和S 得到关系T 的操作是A )自然连接B )并C )交D )差(7)软件生命周期中的活动不包括A )市场调研B )需求分析C )软件测试D )软件维护(8)下面不属于需求分析阶段任务的是A )确定软件系统的功能需求B )确定软件系统的性能需求C )需求规格说明书评审 A B Ca 1 2b 2 1c 3 1 A B C a 1 2d 2 1 A B C b 2 1 c 3 1整理:陈远跃D)制定软件集成测试计划(9)在黑盒测试方法中,设计测试用例的主要根据是A)程序内部逻辑B)程序外部功能C)程序数据结构D)程序流程图(10)在软件设计中不适用的工具是A)系统结构图B)PAD图C)数据流图(DFD图)D)程序流程图(11)以下合法的VB变量名是D)x*y A)case B)name10 C)t-name(12)设x是小于10的非负数。
2012年全国计算机等级《二级VB》全真模拟试题(2)总分:100分及格:60分考试时间:90分一、选择题(每题2分,共35题,70分)(1)如果在定义过程时使用了Static关键字,则表明(2)根据数据编码方式的不同,文件可以分为(3)在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:<Ahref="javascript:;"></A>程序运行后,如果单击命令按钮,则在窗体上输出的内容为()。
(4)下列程序段的执行结果为()。
(5)目录列表框的Path属性的作用是(6)在窗体上画1个名称为Command1的命令接钮,然后编写如下事件过程<Ahref="javascript:;"></A>程序运行后,单击命令按钮,输出结果是()。
(7)在窗体上画一个命令按钮Command1,然后编写如下事件过程:(8)设有如下关系表,由关系R和S通过运算得到关系T,则所使用的运算为()。
A.B.C.D.(9)下列操作不能触发Unload事件的是(10)以下叙述中错误的是(11)执行下列语句strlnput=InputBox(“请输入字符串”,“字符串对话框”,“字符串。
”)将显示输入对话框。
此时如果直接单击“确定”按钮,则变量strlnput的内容是()。
(12)某程序列表框中有许多项,现在用Timer控件控制时间,0.1秒删除一项,直到删完为止,用一滚动条来显示删除的项目,请选择合适的语句,完成此程序()。
Private Sub command2_click()HScroll1.Min=0HScroll 1.Max=List 1.ListcountHScroll1.Value =0Timer1.Interva1=Timer1.Enabled=TrueEnd SubPrivate Sub Timer1_Timer()If List1.Listcount>0 ThenListl.Removeltem 0HScroll1.Value=HScroll1.Max.List1.ListcountElseTimer1.Enabled=MsgBox“全部删除!”EndIfEnd SubA. 100 FalseB. 0.1 TrueC. 100 TrueD. 0.1 False(13)窗体的MouseDown事件过程(14)运行下面的程序,单击命令按钮,输出结果为()。
全国计算机二级VB模拟试题及答案全国计算机二级VB模拟试题及答案计算机二级考试是全国计算机等级考试(National Computer Rank Examination,简称NCRE)四个等级中的一个等级,考核计算机基础知识和使用一种高级计算机语言编写程序以及上机调试的基本技能。
那么全国计算机二级VB考试怎么考?以下仅供参考!1.在待排序的元素序列基本有序的前提下,效率最高的排序方法是(C)A)冒泡排序B)选择排序C)快速排序D)归并排序2.非空的循环单链表head的尾结点(由p所指向),满足(A)A)p->next==NULLB)p==NULLC)p->next=headD)p=head3.线性表的顺序存储结构和线性表的链式存储结构分别是(C)A)顺序存取的存储结构、顺序存取的存储结构B)随机存取的存储结构、顺序存取的存储结构C)随机存取的存储结构、随机存取的存储结构D)任意存取的存储结构、任意存取的存储结构4.结构化程序设计所规定的三种基本控制结构是(D)A)输入、处理、输出B)树形、网形、环形C)顺序、选择、循环D)主程序、子程序、函数5.下列不属于软件调试技术的是(D)A)强行排错法B)集成测试法C)回溯法D)原因排除法6.软件生命周期中花费时间最多的阶段是(B)A)详细设计B)软件编码C)软件测试D)软件维护7.软件设计中,有利于提高模块独立性的一个准则是(A)A)低内聚低耦合B)低内聚高耦合C)高内聚低耦合D)高内聚高耦合8.数据库的故障恢复一般是由(D)A)数据流图完成的B)数据字典完成的C)DBA完成的D)PAD图完成的9.下列关系运算的叙述中,正确的是(B)A)投影、选择、连接是从二维表行的方向进行的运算B)并、交、差是从二维表的列的方向来进行运算C)投影、选择、连接是从二维表列的方向进行的运算D)以上3种说法都不对10.在关系数据库中,对一个关系做投影操作后,新关系的元组个数将(A)A)等于原来关系中的'元组个数B)大于原来关系中的元组个数C)小于原来关系中的元组个数D)不能确定元组个数11.以下不具有Picture属性的对象是(B)A)窗体B)图片框C)图像框D)文本框12.双击窗体中的对象后,Visual Basic将显示的窗口是(D)A)项目(工程)窗口B)工具箱C)代码窗口D)属性窗口13.若要将窗体从内存中卸载,其实现的方法是(A)A)ShowB)UnLoadC)LoadD)Hide14.要使目录列表框(名称为Dirl)中的目录随着驱动器列表框(名称为Drivel)中所选择的当前驱动器的不同而同时发生变化,则应:(A)A)在Dirl中的Change事件中,书写语句 Dirl.Drive=Drivel.DriveB)在Dirl中的Change事件中,书写语句 Dirl.Path=Drivel.DriveC)在Drivel中的Change事件中,书写语句Dirl.Path=Drivel.DriveD)在Drivel中的Change事件中,书写语句Dirl.Drive=Drivel.Drive15.设有如下声明:Dim x As Integer如果Sgn(x)的值为-1,则表示x的值是(A)A)整数B)大于0的整数C)等于0的整数D)小于0的数16.下述说法不正确的是(B)A)变量名的长度不能超过255个字符B)变量名可以包含小数点或者内嵌的类型声明字符C)变量名不能使用关键字D)变量名的第一个字符必须是字母17.下列可作为Visual Basic变量名的是(A)A)FilenameB)A(A+B)C)A%DD)Print18.语句Print Sgn(-6^2)+Abs(-6^2)+Int(-6^2)的输出结果是(BD)A)-36B)1C)-1D)-7219.下面说法中,不正确的是(D)A)Cls清除由Print方法显示的文本或在图片框中显示的图形,并把光标移到对象的左上角(0,0)B)当前窗体是用Picture属性装入的图形时,也可以用Cls方法清除C)Move方法用来移动窗体和控件,并改变其大小D)Cls方法中的对象,可以是窗体或图片框,如果省略则清除当前窗体中显示的内容20.假定在图片框Picturel中装入了一个图形,为了清除该图形(注意,清除图形,而不是删除图片框),应采用的正确方法是(D)A)选择图片框,然后按Del键B)执行语句 Picturel.picture=LoadPicture("")C)执行语句 Picturel.picture=""D)选择图片框,在属性窗口中选择Picture属性条,然后按回车键21.线性表L=(a1,a2,a3,…ai,…an),下列说法正确的是(D)A)每个元素都有一个直接前件和直接后件B)线性表中至少要有一个元素C)表中诸元素的排列顺序必须是由小到大或由大到小D)除第一个元素和最后一个元素外,其余每个元素都有一个且只有一个直接前件和直接后件22.设树T的度为4,其中度为1,2,3,4的结点个数分别为4,2,1,1。
2012年全国计算机等级《二级VB》考前预测试卷(1)总分:100分及格:60分考试时间:90分一、选择题(每题2分,共35题,70分)(1)在软件开发中,需求分析阶段产生的主要文档是()。
A. 数据字典B. 详细设计说明书C. 数据流图说明书D. 软件需求规格说明书(2)在数据库管理技术的发展中,数据独立性最高的是()。
A. 人工管理B. 文件系统C. 数据库系统D. 数据模型(3)在窗体上有两个文本框:Textl和Text2,然后编写如下事件过程:程序运行后,如果在Text2文本框中输入“ertyu”,则Textl文本框中的内容为()。
A.B.C.D.(4)设有变量声明为“Dim aDateAsDate”,则能为变量aDate正确赋值的表达方式是()。
A.B.C.D.(5)下列叙述中,不属于设计准则的是()。
A. 提高模块独立性B. 使模块的作用域在该模块的控制域中C. 设计成多入口、多出口模块D. 设计功能可预测的模块(6)窗体上有1个名称为Textl的文本框;1个名称为Thnerl的计时器控件,其Interval属性值为5000,Enabled属性值是True。
timer事件过程如下:以下叙述中正确的是()。
A. 每次执行此事件过程时,flag的初始值均为0B. flag的值只可能取0或1C. 程序有逻辑错误,Else分支总也不能被执行D. 程序执行后,文本框中的文字每5秒改变一次颜色(7)以下能从字符串“VisualBasic’’中直接取出子字符串“Basic”的函数是()。
A. LeRB. MidC. StringD. Instr(8)设窗体上有1个垂直滚动条,已经通过属性窗口把它的Max属性设置为1,Min属性设置为100。
下面叙述中正确的是()。
A. 程序运行时,若使滚动块向左移动,滚动条的Value属性值就减少B. 由于滚动条的Max值小于Min值,程序运行时滚动条的长度会缩为一点,滚动块无法移动C. 程序运行时,若使滚动块向左移动,滚动条的Value属性值就增加D. 由于滚动条的Max属性值小于Min属性值,程序会出错(9)在窗体上有一个名称为Commandl的命令按钮,并有如下程序:程序执行时,单击命令按钮Commandl 三次后,窗体上显示的结果为()。
1第1小题【知识点播】文本框控件的MultiLine属性设置文本框是否能以多行显示文本,值为True表示允许,值为False表示不允许;ScrollBars属性设置文本框是否有水平或垂直滚动条,它的值为:0表示没有滚动条(默认值),1表示只有水平滚动条、2表示只有垂直滚动条,3表示有水平和垂直滚动条,设置0以外的值时MultiLine属性值必须为True。
【审题分析】本题只需按要求画出控件并设置其相应属性即可。
【操作步骤】步骤1:新建一个"标准EXE"工程,在窗体Form1中画两个文本框,并分别设置它们的相关属性,其属性及值如表97-1所示。
表97-1步骤2:按要求将文件保存至考生文件夹中。
第2小题【审题分析】要在程序运行时,移动滚动条上的滑块就能改变文本框的高度,只需在滚动条的Change事件过程中编写利用滚动条的V alue属性值来决定文本框Height属性值的语句即可,同时将文本框Width属性值设置为其Height属性值的1.5倍。
【操作步骤】步骤1:新建一个"标准EXE"工程,在窗体Form1中画一个文本框和一个水平滚动条,在属性设置窗口中设置其相关属性,其属性及值如表97-2所示。
表97-2步骤2:双击窗体Form1上的水平滚动条,打开代码编辑窗口,在其Change 事件过程中输入以下代码:参考代码:Private Sub Hsb1_Change()Txt1.Height = Hsb1.ValueTxt1.Width = Txt1.Height * 1.5End Sub步骤3:按要求将文件保存至考生文件夹中。
【主要考点】水平滚动条控件、Change事件过程。
2第1小题【审题分析】在本题源码“修改”按钮的单击事件过程中,通过语句“txtData = Cbo1.Text”将组合框中当前选择内容显示到文本框中,同时通过设置“确定”按钮的Enabled属性值为True使其可用;在“确定”按钮的单击事件过程中,通过语句“Cbo1.List(ListIndex) = txtData”把修改后的文本框内容替换组合框中该列表项的原有内容,并清空文本框,使“确定”按钮不可用;在“添加”按钮的单击事件过程中,用组合框的AddItem方法将文本框中的内容添加为组合框的一个项目。
全国计算机等级考试二级VISUAL BASIC真题2012年3月(总分:100.00,做题时间:90分钟)一、选择题(每小题2分,共70分) (总题数:35,分数:70.00)1.下列叙述正确的是()。
(分数:2.00)A.循环队列是队列的一种链式存储结构√B.循环队列是队列的一种顺序存储结构C.循环队列是非线性结构D.循环队列是一种逻辑结构解析:解析:循环队列是一种顺序存储的线性结构,所以,“循环队列是队列中的一种链式存储结构,”“循环队列是非线性结构”和“循环队列是一种逻辑结构”的说法都是错误的。
2.下列叙述正确的是()。
(分数:2.00)A.栈是一种先进先出的线性表B.队列是一种后进后出的线性表C.栈和队列都是非线性结构D.以上三种说法都不对√解析:解析:栈和队列都是线性结构,并且栈是后进先出,队列是先进先出,所以三种说法都不对。
3.一棵二叉树共有25个结点,其中5个是叶子结点,则度为1的结点数为()。
(分数:2.00)A.16 √B.10C.6D.4解析:解析:根据公式n0=n2+1,叶子节点个数为5,则度为2的结点书为4,那么度为1的结点数n1=n-n0-n2=25-4-5=16.4.在下列模式中,能够给出数据库物理存储结构与物理存取方法的是()。
(分数:2.00)A.外模式B.内模式√C.概念模式D.逻辑模式解析:解析:数据库系统在气内部都具有三级模式:概念模式、内部模式与外部模式。
其中,内模式(又称物理模式)给出了数据库物理存储结构与物理存取方法,如数据存储的文件结构、索引、集簇及hash等存取方式与存取路径,内模式的物理特性主要体现在操作系统及文件级上,它还为深入到设备及上。
概念模式是数据库系统中全局数据逻辑结构的描述。
是全体用户(应用)的go公共数据师徒,主要描述数据的概念记录类型一级他们之间的广西,它还包括一些数据间的语意约束。
外模式(子模式货用户模式)是用户的数据师徒,也就是用户缩减到的数据模式,它由概念模式推到而出的,在一般的DBMS中都提供相关的外模式描述语言(外模式DDL)5.在满足实体完整性约束的条件下()。
2012年9月全国计算机等级考试二级笔试试卷Visual Basic语言程序设计一、选择题1、下列链表中,其逻辑结构属于非线性结构的是A、二叉链表B、循环链表C、双向链表D、带链的栈2、设循环队列的存储空间为Q(1:35),初始状态为front=rear=35。
现经过一系列入队与退队运算后,front=15,rear=15,则循环队列中的元素个数为A、15B、16C、20D、0或353、下列关于栈的叙述中,正确的是A、栈底元素一定是最后入栈的元素B、栈顶元素一定是最先入栈的元素C、栈操作遵循先进后出的原则D、以上三种说法都不对4、在关系数据库中,用来表示实体间联系的是A、属性B、二维表C、网状结构D、树状结构5、公司中有多个部门和多名职员,每个职员只能属于一个部门,一个部门可以有多名职员,则实体部门和职员间的联系是A、1:1联系B、m:1联系C、1:m联系D、m:n联系6、有两个关系 R和S如下:则由关系R得到关系S的操作是A、选择B、投影C、自然连接D、并7、数据字典(DD)所定义的对象都包含于A、数据流图(DFD图)B、程序流程图C、软件结构图D、方框图8、软件需求规格说明书的作用不包括A、软件验收的依据B、用户与开发人员对软件要做什么的共同理解C、软件设计的依据D、软件可行性研究的依据9、下面属于墨盒测试的方法是A、语句覆盖B、逻辑覆盖C、边界值分析D、路径覆盖10、下面不属于软件设计阶段任务的是A、软件总体设计B、算法设计C、制定软件确认测试计划D、数据库设计11、以下叙述中错误的是A、.vbp文件是工程文件,一个工程可以包含.bas文件B、.frm文件是窗体文件,一个窗体可以包含.bas文件C、.vbp文件是工程文件,一个工程可以由多个.frm文件组成D、.vbg文件是工程组文件,一个工程组可以由多个工程组成12、以下叙述中错误的是A、在Visual Basic的窗体中,一个命令按钮是一个对象B、事件是能够被对象识别的状态变化或动作C、事件都是由用户的键盘操作或鼠标操作触发的D、不同的对象可以具有相同的方法13、设x=3.3,y=4.5,表达式x-Int(x)+Fix(y)的值是A、3.5B、4.8C、4.3D、4.714、窗体上有一个名称为Command1的命令按钮,其中部分代码如下:Private Sub Command1_Click( )Dim a(10) As IntegerDim n As Integer……Call calc(a,n)……End Subcalc过程的的首行应该是A、Sub calc(x() As Integer,n As Integer)B、Public Sub calc(x() As Integer)C、Private Sub calc(a(n) As Integer,n As Integer)D、Public Sub calc(a As Integer, n As Integer)15、设有如下程序Sub f(x As Integer,ByVal y As Integer)x=2*xy=y+xEnd SubPrivate Sub Command1_Click()Dim a As Integer , b As Integera=6 ; b=35call f(a,b)print a,bEnd Sub程序运行后,单击命令按钮Command1,输出结果为A、6 47B、12 47C、6 35D、12 3516、以下叙述中正确的是A、窗体及窗体上所有控件的事件过程代码都保存在窗体文件中B、在工程中只有启动窗体可以建立菜单C、窗体名称必须与窗体文件的名称相同D、程序一定是从某个窗体开始执行的17、窗体上有一个名称为Command1的命令按钮,其单击事件过程代码如下:Private Sub Command1_Click()Static x As Variantn=0x=array(1,2,3,4,5,6,7,8,9,10)While n<=4x(n)=x/(n+5)Print x(n);N=n+1WendEnd Sub运行程序,单击命令按钮Command1,窗体上显示的是A、12345B、678910C、23456D、6234518、窗体上有一个名称为Label1的标签和一个名称为Command1的命令按钮,命令按钮的单击事件过程如下:Private Sub Command1_click()x=InputBox(“输入x: ”,,0)y=InputBox(“输入y: ”,,0)Label1.caption=x+yEnd Sub运行程序后,单击命令按钮,在输入对话框中分别输入2,3,运行的结果是A、程序运行有错误,数据类型不匹配B、程序运行有错误,InputBox函数的格式不对C、在Label1中显示5D、在Label1中显示2519、窗体上有一个名称为Shape1的形状控件和由三个命令按钮组成的名称cmdDraw的控件数组。
⼀、单选题 1.在⼀⾏内写多条语句时,每个语句之间⽤________来分隔。
A), B): C)、 D); 2.下⾯________是合法的变量名。
A) X_yx B) 123abc C) integer D) X-Y 3.下⾯________是不合法的整常数。
A) 100 B) &O100 C) &H100 D) 0 4.下⾯________是合法的字符常数。
A) ABC$ B) "ABC" C) ’ABC’ D) ABC 5.下⾯________是合法的单精度型变量。
A) num! B) sum% C) xint$ D) mm# 6.下⾯________是不合法的单精度常数。
A) 100! B) 100.0 C) 1E+2 D) 100.0D+2 7.表达式16/4-2^5*8/4 MOD 5\2的值为________。
A) 14 B) 4 C) 20 8.数学表达式3≤x<10在VB中的逻辑表达式为________。
A) 3<=x<10 B) 3<=x AND x<10 C) x>=3 OR x<10 D) 3<=x AND <10 9.与数学表达式ab/3cd对应,不正确的VB表达式为________。
A) a*b/(3*c* D) B) a/3*b/c/d C) a*b/3/c/d D) a*b/3*c*d 10. RND函数不可能是下列________值。
A) 1 B) 0 C) 0.123 D)0.00005 11. Int(198.55*100+0.5)/100的值为________。
A) 198 B) 199.6 C) 198.55 D)200 12. Int(198.555*100+0.5)/100的值为_______。
A)198 B)199.6 C)198.56 D)200 13. Print DateAdd("m",1,#1/30/2000#)语句显⽰的结果为________。
1
第1小题
【知识点播】复选框(CheckBox)组常用于提供多个选项间的多重选择,Value属性值决定每个复选框的选中状态:0-Unchecked为未选,1-Checked 为选中,2-Grayed为禁用(以灰色呈现)。
选择某复选框后,该复选框将显示"√",而取消选择后,"√"消失。
【审题分析】本题只需按要求画出控件数组,并设置其Value属性。
【操作步骤】
步骤1:新建一个"标准EXE"工程。
步骤2:在窗体Form1中加入一个复选框,并用"复制"和"粘贴"的方法,生成包含4个元素的复选框数组。
步骤3:分别设置窗体和复选框数组中各元素的相关属性,其属性及值如表96-1所示。
表96-1
步骤4:按要求将文件保存至考生文件夹中。
【主要考点】复选框控件数组。
第2小题
【审题分析】双击列表框中的某个项目,将触发其DblClick事件,要实现双击列表框中的某一项,即在标签中显示出列表框中的所有项目数,只需在DblClick事件过程中编写代码,将Lst1.ListCount的值显示在标签上即可。
【操作步骤】
步骤1:新建一个"标准EXE"工程。
步骤2:在窗体Form1中加入一个标签和一个列表框,并分别设置它们的相关属性,其属性及值如表96-2所示。
表96-2
步骤3:打开代码编辑窗口,从窗口上方的"对象"下拉列表中选择Lst1;从"过程"下拉列表中选择DblClick,在该事件过程中输入如下代码:参考代码:
Private Sub Lst1_DblClick()
Lbl1.Caption = Lst1.ListCount
End Sub
步骤4:按要求将文件保存至考生文件夹中。
【主要考点】列表框控件、简单事件编程。
2
第1小题
【知识点播】①鼠标事件分点击事件和状态事件。
点击事件有单击事件(Click)和双击事件(DblClick),不区分左右键;状态事件有按下事件(mousedown)、移动事件(mousemove)和弹起事件(mouseup)。
状态事件涉及Button、Shift两个参数:Button参数是一个整数,值可能为1(左键)、2(右键)或4(中间键);Shift参数也是一个整数,用来代表用户是否按下<Shift>键(值为1)、<Ctrl>键(值为2)、<Alt>键(值为4)或这些键的组合。
②弹出式菜单是显示于窗体之上,独立于菜单栏的浮动式菜单。
PopupMenu方法可在对象上的当前鼠标位置或指定的坐标位置显示弹出式菜单。
【审题分析】要创建本题的弹出式菜单需先用菜单编辑器来建立菜单,并将其主菜单项的可见(即Visible)属性值设置为False,然后在窗体的MouseDown(或MouseUp)事件过程中,判断该事件的Button参数值是否为2,若是则执行窗体的PopupMenu方法来显示菜单。
在相应菜单项的Click事件过程中,通过设置文本框的FontBold属性值、FontItalic属性值、FontStrikethru属性值和FontUnderline属性值为True,可分别将文本框中文本样式显示为加粗、斜体、删除线和下划线。
【操作步骤】
步骤1:新建一个"标准EXE"工程,选择【工具】→【菜单编辑器】命令,
打开菜单设计器,按表96-3中的设置建立菜单项。
表96-3
步骤2:在窗体中画一个文本框,取名为Txt1。
步骤3:打开代码编辑窗口,分别编写"加粗"、"斜体"和"下划线"菜单项的事件过程。
参考代码:
Private Sub Txt1_MouseDown(Button As _
Integer, Shift As Integer, X As _
Single, Y As Single)
If Button = 2 Then
Me.PopupMenu mnuFormat
End If
End Sub
Private Sub mnuFormat1_Click()
Txt1.FontBold = True
End Sub
Private Sub mnuFormat2_Click()
Txt1.FontItalic = True
End Sub
Private Sub mnuFormat3_Click()
Txt1.FontUnderline = True
End Sub
步骤4:按要求将文件保存至考生文件夹中。
【特别提示】文本框不具有PopupMenu 方法。
【主要考点】弹出式菜单、文本框。
第2小题
【审题分析】本题程序运行时,单击命令按钮,通过Array()函数返回一个以4个文本框中的数值为元素的数组,并赋值给数组arr1,然后使用For语句将数组arr1中每个元素的数据类型转换为整型并赋给数组arr2具有相同下标的元素,最后以数组arr2为参数调用求最大值的函数过程FindMax。
在FindMax过程中,首先用变量Start 和Finish分别记录下数组a的下界和上界,用变量Max记录下数组a第1个元素的值。
然后通过For循环让数组a中的每一个元素逐一与变量Max比较大小,当有数组元素的值大于变量Max时,将其赋值变量Max,最后将变量Max的值作为函数返回值。
【操作步骤】
步骤1:打开考生文件夹下的本题工程文件vbsj4.vbp,在代码编辑窗口,去掉程序中的注释符"'",将问号"?"改为正确的内容。
参考代码:
Start = LBound(a)
Finish = UBound(a)
Max = a(Start)
If a(i)> Max Then Max = a(i)
M = FindMax(arr2)
步骤2:按要求将文件保存至考生文件夹中。
【特别提示】调用自定义Function过程FindMin需传递参数为数组变量。
【主要考点】数组、过程调用。
3
【审题分析】7*7数组四周元素的特点:第一维下标为1(或7)或第二维下标为1(或7)。
根据题意,可通过一个嵌套的For循环,将满足前述条件的数组元素累加入变量Sum,若该数组元素能被7整除,则记录个数的变量Num 增1。
【操作步骤】
步骤1:打开考生文件夹下的本题工程文件vbsj5.vbp,在代码编辑窗口的指定位置编写以下代码:
参考代码:
Dim Num As Integer
For i = 1 To 7
For j = 1 To 7
If i = 1 Or i = 7 Or j = 1 Or _
j = 7 Then
Sum = Sum + a(i, j)
If a(i, j) Mod 7 = 0 Then _
Num = Num + 1
End If
Next
Next
lblNum.Caption = Num
lblSum.Caption = Sum
步骤2:按<F5>运行程序,然后单击“计算”按钮。
步骤3:按要求将文件保存至考生文件夹中。