计算机二级vb试题（2009年3月全国计算机二级VB上机试题内容）

本文目录

• 2009年3月全国计算机二级VB上机试题内容
• 2018年3月计算机二级考试VB语言程序设计试题
• 计算机二级VB笔试试题及答案,QQ1244130334，谢谢
• vb二级考试范围

2009年3月全国计算机二级VB上机试题内容

第1题：　　在考生文件夹下有一个工程文件sjt5.vbp，其窗体上有一个文本框，名称 为Text1；还有两个命令按钮，名称分别为C1、C2，标题分别为"计算"、 "存盘"，如图所示。并有一个函数过程 isprime可以在程序中直接调用， 其功能是判断参数 a 是否为素数，如果是素数，则返回 True，否则返回 False。 请编写适当的事件过程，使得在运行时，单击"计算"按钮，则找出小于 18000的最大的素数，并显示在Text1中；单击"存盘"按钮，则把 Text1 中的计算结果存入考生文件夹下的out5.txt文件中。 　　 　　本题的考查主要有两个,一个是循环,一个是文件的访问。 　　由于在小于18000中寻找最大素数,并且判断素数的函数已经给出,只要使用一个循环在18000以下寻找,没有找到减一再寻找,找到记录在Text1.Text中,在结构化的程序中不再提倡GoTo以及从结构体中退出（例如Exit For等）,使用While判断是一个较好的选择。 第2题：　　在考生文件夹下有一个工程文件sjt4.vbp，窗体上已经有两个文本框，名 称分别为Text1、Text2；和一个命令按钮，名称为C1，标题为"确定"； 请画两个单选按钮，名称分别为 Op1、Op2，标题分别为 "男生"、"女 生"；再画两个复选框，名称分别为 Ch1、 Ch3，标题分别为"体育"、 "音乐"。请编写适当的事件过程，使得在运行时，单击"确定"按钮后实 现下面的要求： 　　 1）根据选中的单选按钮，在Text1中显示"我是男生"或"我是女生"。 　　 2）根据选中的复选框，在Text2中显示"我的爱好是体育"或"我的爱好是 音乐"或"我的爱好是体育音乐"。如图所示。 　　 注意： 不得修改已经给出的程序和已有控件的属性。在结束程序运行之前，必 须选中一个单选按钮和至少一个复选框，并单击"确定"按钮。必须使用 窗体右上角的关闭按钮结束程序，否则无成绩。　　分析：单选按钮OptionButton和选择框CheckBox的简单应用OptionButton控件和CheckBox控件功能相似，但是二者间也存在着重要差别。在选择一个OptionButton时，同组中的其它OptionButton控件自动无效。相反，可以选择任意数量的CheckBox控件。 　　只要注意了这一点本题可以在C1_Click事件中判断他们的选中情况OptionButton的Value为True表示选中,CheckBox的Value=1时表示选中。 第3题： 　　在名称为 Form1 的窗体上画一个标签，名称为 L1，标签上显示"请输入 密码"， 在标签的右边画一个文本框，名称为 Text1 ，其宽、高分别为 2000和300，设置适当的属性使得在输入密码时，文本框中显示"*"字符， 此外再把窗体的标题设置为"密码窗口"，以上这些设置都只能在属性窗 口中进行设置，运行时的窗体如图所示。 *注意： 存盘时必须存放在考生文件夹下，工程文件名为 sjt1.vbp，窗体文件 名为sjt1.frm。　　分析：创建的对象设置属性。属性窗口（选中对按调出）给出了设置所有的窗体对象属性的简便方法。在"视图"菜单中选择"属性窗口"命令、单击工具栏上的"属性窗口"按钮或使用控件的上下文菜单，都可以打开属性窗口。在本题中要求对于密码框的设定,只要为Text1的PasswordChar属性设置为*即可完成　　第4题：　　在考生文件夹下有一个工程文件 sjt3.vbp，窗体上已经有一个标签 L1， 请画一个单选按钮数组，名称为Op1， 含三个单选按钮，它们的Index属性 分别为0、1、2，标题依次为"飞机"、"火车"、"汽车"，再画一个名 称为Text1的文本框。窗体文件中已经给出了Op1的Click事件过程，但不完 整，要求去掉程序中的注释符，把程序中的 ？改为正确的内容，使得在运 行时单击"飞机"或"火车"单选按钮时，在Text1中显示"我坐飞机去"或"我坐火车去"，单击"汽车"单选按钮时，在Text1中显示"我开汽车 去"，如图所示。 注意：不能修改程序中的其他部分。最后把修改后的文件按原文件名存盘。 本题考查对于OptionButton 控件的了解,OptionButton控件显示一个可以打开或者关闭的选项,判断它是否被选中使用的是value属性,选中为True,反之为False。 　　一般在使用OptionButton控件使大多数人喜欢使用控件数组,在第一题中Select Cas 语句是根据表达式的值，来决定执行几组语句中的其中之一。根据后续的语句我们可以知道,这里需要根据用户的选择进行分流,分流的依据是用户选择了那一个OptionButton,这个可以由Index得到,这里填入Index,第二个空白,我们只要知道OptionButton数组从零开始,不难判断Op1（1).Caption是"火车",我们只能"坐",填入a即可。 第5题：　　在考生文件夹下有一个工程文件sjt5.vbp，窗体上有两个图片框，名称为 　　 P1、P2，分别用来表示信号灯和汽车，其中在 P1 中轮流装入"黄灯.ico"、 "红灯.ico"、"绿灯.ico"文件来实现信号灯的切换；还有两个计时器Timer1 和Timer2，Timer1用于变换信号灯，黄灯1秒，红灯2秒，绿灯3秒；Timer2用于 控制汽车向左移动。运行时，信号灯不断变换，单击"开车"按钮后。 汽车开 始移动，如果移动到信号灯前或信号灯下，遇到红灯或黄灯，则停止移动， 当 变为绿灯后再继续移动。在窗体中已经给出了全部控件和程序，但程序不完整， 　　 要求阅读程序并去掉程序中的注释符，把程序中的 ？改为正确的内容，使其实 现上述功能，但不能修改程序中的其他部分，也不能修改控件的属性。 最后把 修改后的文件以原文件名存盘。　　本题中涉及三个事件 　　点击开车按钮C1_Click,汽车开始启动,由题面知道汽车的开动由Timer2控制,那么这里必须启动Timer2,所以填入Timer2.Enable=True 　　红绿灯由Timer1控制,在Timer1的事件Timer1_Timer中根据时间a来更换P1.Picture的图像,达到红绿灯转换的效果,如果看到其他灯已经有了,这里填入"绿灯.ioc"是简单的选择,仔细分析要在绿灯有三秒,也必须这样填写 　　最后是汽车的移动,已知是由Timer2操作的,在它的事件Timer2_Timer中要移动汽车,使用了picture的Move方法,平行向右移动,改变Left值,这里填入picture1.Left即可实现。 　　其他关于Timer控件以及picture控件的属性方法事件请自己参阅有关资料。　　第6题： 　　 　　在考生文件夹下有一个工程文件sjt5.vbp，请在窗体上画两个框架，其名 称分别为F1和F2，标题分别为"交通工具"和"到达目标"。在F1中画两 个单选按钮，名称分别为Op1和Op2，标题分别为"飞机"和"火车"。在 F2中画两个单选按钮，名称分别为Op3和Op4，标题分别为"广州"和"昆 明"。画一个文本框，其名称为Text1。编写适当事件过程。程序运行后， 选择不同单选按钮时产生的显示结果见下表 　　 　　 程序的运行情况如图所示。存盘时，工程文件名为sjt5.vbp，窗体文件名 为sjt5.frm。 　　 　　单选按钮的Value属性： 　　Value属性用来表示单选按钮的状态，可以取True和False两种值，取值为True时，单选按钮是"打开"的，按钮中心有一个圆点；取值为False时，单选按钮是"关闭"的，按钮是一个圆圈。 　　设置单选按钮Value属性的语法是： 　　单选按钮名.Value = True（-1)或False（0) 　　由于Value属性是单选按钮的缺省属性，因此在设置该属性的值的时候，可以省略属性名。 　　解题方法： 　　打开工程文件sjt5.vbp，点击工具箱中的Frame控件图标，然后在窗体上拖拉出两个框架，通过属性窗口分别设置其Name属性为"F1"和"F2"，Caption属性为"交通工具"和"到达目标"。 　　点击工具箱中的OptionButton控件图标，然后在F1中拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为"Op1"和"Op2"，Caption属性为"飞机"和"火车"。 　　点击工具箱中的OptionButton控件图标，然后在F2中拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为"Op3"和"Op4"，Caption属性为"广州"和"昆明"。 　　点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。 　　打开代码窗口，输入如下的代码： 　　Private Sub Form_Click（) 　　If Op1.Value = True Then 　　 If Op3.Value = True Then 　　 Text1.Text = "坐飞机去广州" 　　 ElseIf Op4.Value = True Then 　　 Text1.Text = "坐飞机去昆明" 　　 End If 　　 ElseIf Op2.Value = True Then 　　 If Op3.Value = True Then 　　 Text1.Text = "坐火车去广州" 　　 ElseIf Op4.Value = True Then 　　 Text1.Text = "坐火车去昆明" 　　 End If 　　 End If 　　End Sub　　第7题： 　　在考生文件夹下有一个工程文件sjt6.vbp，请在窗体上画三个文本框，其 名称分别为Text1、Text2和Text3，文本框内容分别设置为"等级考试"、 "计算机"和空白。然后画两个单选按钮，其名称分别为Op1和Op2，标题 分别为"交换"和"连接"（如图所示），编写适当的事件程序。程序运 行后，如果选中"交换"单选按钮并单击Text3文本框，则Text1文本框中 内容与Text2文本框中内容进行交换，并在Text3文本框中显示"交换成 功"；如果选中"连接"单选按钮并单击 Text3 文本框，则把 Text1 和 Text2的内容按Text1、Text2的顺序连接起来，并在Text3文本框中显示连 接后的内容。存盘时，工程文件名为sjt6.vbp，窗体文件名为sjt6.frm。 　　解题方法： 　　打开工程文件sjt6.vbp，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出三个文本框，通过属性窗口分别设置其Text属性为"等级考试"、"计算机"和""。 　　点击工具箱中的OptionButton控件图标，然后在窗体中拖拉出两个单选按钮，通过属性窗口分别设置其Name属性为"Op1"和"Op2"，Caption属性为"交换"和"连接"。 　　打开代码窗口，输入如下的代码： 　　Private Sub Text3_Click() 　　 If Op1.Value Then 　　 Text1.Text = "计算机" 　　 Text2.Text = "等级考试" 　　 Text3.Text = "交换成功" 　　 Else 　　 Text3.Text = Text1.Text + Text2.Text 　　 End If 　　End Sub　　第8题：　　在Form1的窗体上画一个文本框，其名称为Text1；再画两个命令按钮， 　　 其名称分别为C1和C2，标题分别为"显示"和"退出"，编写适当的事件 过程。程序运行后，在窗体加载时使"退出"按钮不可用，如果单击"显 示"按钮，则在文本框中显示"等级考试"，并使"退出"按钮可用，此 时如果单击"退出"按钮，则结束程序，程序运行情况如图所示。 解题方法： 　　新建一个名为Form1的窗体，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出两个命令按钮，通过属性窗口分别设置其Name属性为"C1"和"C2",Caption属性为"显示"和"退出"。 　　点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。 　　打开代码窗口，输入如下的代码： 　　Private Sub C1_Click（) 　　C2.Enabled = True 　　Text1.Text = "等级考试" 　　End Sub 　　Private Sub C2_Click（) 　　End 　　End Sub　　第9题：　　在Form1的窗体上画一个命令按钮，其名称为C1，标题为"显示"；再画 　　 一个文本框，其名称为Text1，编写适当的事件过程。程序运行后，在窗 体加载时使文本框不可见，如果双击窗体，则文本框出现；此时如果单击 命令按钮，则在文本框中显示"等级考试"。程序运行情况如图所示。　　解题方法： 　　新建一个名为Form1的窗体，点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出一个命令按钮，通过属性窗口设置其Name属性为"C1"，Caption属性为"显示"。 　　点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框。 　　打开代码窗口，输入如下的代码： 　　Private Sub C1_Click（) 　　Text1.Text = "等级考试" 　　End Sub 　　Private Sub Form_DblClick（) 　　Text1.Visible = True 　　End Sub 　　Private Sub Form_Load（) 　　Text1.Visible = False 　　End Sub　　第10题： 　　在窗体上画一个文本框，其名称为Text1，Text属性为空白。再画一个命 令按钮，其名称为C1，Visible属性为False。编写适当的事件过程。程序 运行后，如果在文本框中输入字符，则命令按钮出现。程序运行情况如图 所示。 　　解题方法： 　　新建一个窗体，点击工具箱中的TextBox控件图标，然后在窗体上拖拉出一个文本框，通过属性窗口设置其Text属性为""。 　　点击工具箱中的CommandButton控件图标，然后在窗体上拖拉出一个命令按钮，通过属性窗口设置其Name属性为"C1",Visible属性为False。 　　打开代码窗口，输入如下的代码： 　　Private Sub Text1_Change（) 　　C1.Visible = True 　　End Sub 　　按要求保存文件即完成本题。

2018年3月计算机二级考试VB语言程序设计试题

　　 2018年3月计算机二级考试VB语言程序设计试题

　　2013年3月全国计算机等级考试二级笔试试卷

　　Visual Basic语言程序设计

　　一、单选题。

　　(1)下列数据结构中，属于非线性结构的是

　　(2)在下列链表中，能够从任意一个结点出发直接访问到所有结点的是

　　(3)下列与栈结构有关联的是

　　(4)下面对软件特点描述不正确的是

　　(5)下面属于黑盒测试方法的是

　　(6)下面不属于软件设计阶段任务的是

　　(7)数据库管理系统是

　　(8)在E-R图中，表示实体的图元是

　　(9)有两个关系R和T 如下

　　R T

　　A B C A C

　　a 1 2 a 2

　　b 4 4 b 4

　　c 2 3 c 3

　　d 3 2 d 2

　　则由关系R得到关系T的操作是

　　(10)对图书进行编目时，图书有如下属性：ISBN书号，书名，作者，出版社，出版日期。能作为关键字的是

　　(11)下列关于Visual Basic标准模块的描述中，错误的是

　　(12)下列变量名中合法的是

　　(13)表达式 66 \ 8 mod 5 & "avg" 的值是

　　(14)下列能正确计算s=1+2+…… +100的程序段是

　　(15)设有如下程序：

　　Private Sub Form_Click()

　　a = 10: b = 20

　　x = a = b

　　Print x

　　End Sub

　　程序运行后，单击窗体，输出结果为

　　(16)在面向对象的程序设计中，对象可以执行的操作和可被对象识别的动作分别被称为

　　(17)下列说法中，错误的是

　　(18)设有如下程序：

　　Private Sub Command1_Click()

　　Dim i As Integer, j As Integer

　　For i = 1 To 10

　　i = i + j

　　j = j + 1

　　Next i

　　End Sub

　　程序运行后，单击命令按钮Command1，循环执行的次数为

　　(19)设有如下程序：

　　Private Sub Command1_Click()

　　Dim m As Integer, n As Integer

　　m = 1

　　For n = 1 To 5

　　m = m * n

　　If m 》 15 Then

　　Exit For

　　Else

　　n = n + 1

　　End If

　　Next n

　　Print m; n

　　End Sub

　　程序运行后，单击命令按钮Command1，输出结果为

　　(20)设有如下程序：

　　Private Sub Form_Click()

　　Dim a, k As Integer

　　Dim n As Integer, s As Integer

　　a = Array(1, 1, 1, 2, 2, 2)

　　For k = LBound(a) To UBound(a)

　　n = n + k

　　s = s + a(k)

　　Next

　　Print n; s

　　End Sub

　　程序运行后，如果单击窗体，则在窗体上输出的内容为：

计算机二级VB笔试试题及答案,QQ1244130334，谢谢

、1．Visual Foxpro6.0的变量分为内存变量和字段变量两种。2．STORE  6  TO  A 的等价表达式是： A=6            。3. VFP报表页面定义最大长度 20英寸.4.在VFP中,每一个数据库表最多可以容纳 65535条记录,而字符型字段的最大长度  254     字节。5.在命令窗口中退出VFP系统应使用的命令是  QUIT    。6．程序设计中常用的三种基本结构是   顺序  、分支和  循环  。7.将数学表达式{-20}÷10转换成VFP表示的表达式   (((53+80)*6-20)/10)8.表达式(5+2*3)/6是  数值型 表达式.9.视图可分为  本地视图 和远程视图两种.10.Visual Foxpro6.0的数据类型有:字符型、数值型  、日期型和日期时间型 、逻辑型 、货币型、和备注型、通用型等。 1．视图中的数据取自数据库中的（ B    ）。A．表         B.视图和表        C.视图        D.以上答案都不对2.下列命令序列输出结果为（ C    ）。 USE  工资表 GO BOTTOM SKIP –1` ?EOF() A.  .T.     B.  T        C. .F.        D.   F        3.顺序执行下面VFP命令之后,屏幕所显示的记录号顺序是(   C   ). USE  XSDA   GO  6  LIST  NEXT  4     A. 1～4      B. 4～7      C. 6～9      D. 7～104.如果当前打开表的文件结构为:商品名(   C型3个汉字)、单价(N型宽度是6)、进货日期（D型）、是否在保质期（L）四个字段，执行LIST   STRUCTURE命令后，显示的总计字节数是（  C     ） A. 18      B. 19      C. 21       D.  225. 关系数据库系统中所使用的数据结构是（  D    ）。 A．树     B.图     C.表格     D.二维表6.如果某数据库表中有20条记录,当打开表后,记录的指针指向第( D )号记录,执行的SKIP 6后,当前记录应是第( )号记录． A.20  6    B.1   6    C.20  7     D.1    77.执行LIST  NEXT 1 命令之后，记录指针的位置指向（   A   ）。 A．原来记录   B．下一条记录    C．尾记录    D．首记录8.要想对一个打开的表增加新字段，应当使用的命令（   B  ）。 A.APPEND     B.MODIFY  STRUCTURE    C.INSERT   D.CHANGE9.在下面Visual FoxPro命令中,不能修改数据记录的命令是(   C   ). A. BROWSE    B.EDIT    C.MODIFY      D.CHANGE10. 查询设计器和视图设计器的主要不同表现在(  B     ). A.    查询设计器有”更新条件”选项卡，没有“查询去向”选项。 B.    查询设计器没有”更新条件”选项卡，有“查询去向”选项。 C.    视图设计器没有“更新条件”选项卡，有“查询去向”选项。 D.    视图设计器有”更新条件”选项卡，也有“查询去向”选项。1.根据要求写命令: (1)列表显示工资表中的所有记录。  Use 工资表 List (2)显示工资表中的第8条记录。 Use 工资表 Go 8 Display (3)将工资表中基本工资低于900元的记录增加100元 Use 工资表 replace all 工资 with 工资+100 for 工资《900(4)逻辑删除工资表中的第5条记录Use 工资表 Delete record 5 (5)显示人事档案表中基本工资高于2000元且已婚的记录。 Use 人事档案表 list for 基本工资》2000 and 婚姻状况=’已婚’ 2.写出下列命令的功能: (1)LOCATE  FOR  性别=”男”  .OR.  职称=”教授”   使纪录指针指向性别是”男”或者 职称是”教授”的纪录 (2)REPLACE   ALL   奖金  WITH   奖金+50   FOR  性别=”女” 把所有纪录中性别为“女”的奖金值加50  (3)ZAP 物理删除当前表中的所有纪录，相当于执行delete all 和pack 两条命令  (4)LIST   STRUCTURE 显示表结构 (5)COUNT 计数表中的纪录数求下列函数的值  1.? ABS(2*3-7) =1      2. ? SQRT(9*4)=6 3. STORE  5.8  TO  A                4.  X=256.965 ? INT (A)                                 ? ROUND(X,-1) A=5                            260 5.? MOD(20,-6)                          6.? MAX(21,-30) -4 21 7.? LEN(“THIS  IS  A  BOOK”)          8. ?UPPER(“Good  morning”) 17  GOOD MORMING 9.STORE  “GOOD  AFTERNOON!”  TO  X   10.? MIN(10,-6)+LEN(“上海”) ? SUBSTR(X,1,2) -2   GO  写出程序运行后的结果 1．store  2  to   x                      2. store  15  to  A store  x+1  to  y                       store  20  to  B store  y+1  to  z                        if  A》B store  z+1  to  x                         ? A,B ? x,y,z 5,3,4                                    else ?”A小于B” Endif A小于B   3. X=1                                      4.SET TALK OFF DO WHILE X《50                               CLEAR ? X                                         FOR I=1 TO  9  STEP 2 X=3*X                                       ?? I ENDDO                                       ENDFOR 1                                            SET TALK ON 3 1 3 5 7 9 9 27 1、编程序求圆的面积.要求圆的半径从键盘输入. (4分) Modify command ymj.prg Ymj=0 Input “请输入半径:” to bj Do js with bj,ymj ?”ymj=”,ymj Return 子程序： Js.prg Parameters r,s S=PI()*r*r return编程序比较两个数的大小,并按从大到小的顺序输出.要求两个数均从键盘输入. (5分) Modify command 2 Input “请输入一个数:” to a Input “请输入另一个数:” to b If a》b ??a,b Else ??b,a  endif  3.编程显示”学生成绩.DBF”中,数学成绩优秀的学生名单(高于90分的视为优秀).(6分)  Use 学生成绩 List 学生 for 成绩》90 4.编程序,根据用户从键盘输入一个成年人的身高和体重，来判断是否是标准体型.标准体型的公式：体重（kg）=身高（cm）-105,当身高低于150(cm)时,输出”特殊体型!”；当身高超过150cm时，再根据体重和身高来判断“过胖！”还是”过瘦！”。(7分) Input “请输入成年人的身高:” to sg Input “请输入成年人的体重:” to tz If sg《=150 ?”特殊体型” else If tz=sg-105 ?”此人身体是标准体型” Else If tz》sg-105 ?”过胖！” endif If tz《sg-105 ?”过瘦！” Endif endif Endif 5.编一个程序求S=1+(1+2)+(1+2+3)+···+(1+2+3+4+···+10)          (8分) a=1 s=1 For i=2 to 10 a=a+i s=s+a endfor ?”s=”,s 表单设计题  1、设计一个用标签空件实现滚动字幕的程序 添加一个标签对象，标签的Timer事件： If thisform.label1.left+thisform.label1.width《0 Thisform.label1.left=thisform.width Else Thisform.label1.left=thisform.label.left-10 endif06.4份试题1-5DADBA 6-10DCDAC 11-15DCDAC 16-20ADDDA 21-25CDCDD 26-30BDAAB 31-35DDCDC填空：1)45 2)类3)关系4)静态分析5)物理独立性6)数值型7)局部变量8)order by 9)逻辑型10)实体11)union 12)数据查询13)sum(工资) 14)insert into 15)rightclick06.9份试题1-5DACBD 6-10CDBBA 11-15AACBD 16-20DDBDA 21-25BCDCA 26-30CDBBA 31-35DBABD1)3 2)程序调试3)元组4)栈5)线性结构6)代码7)数据库8)当9)into table 10)is null 11)远程12)更新条件13)布局14)标签15)column07.4份试题1-5BDACD 6-10CABCA 11-15ACBCD 16-20DBDAC 21-25CBBCC 26-30DCACA 31-35DDBAB1)63 2)黑3)数据库管理系统4)开发5)数据字典6).T. 7)2 8)逻辑9)实体10)KROW 11)top 10 12)desc 13)alter 14)exe 15)modify07年9月份试题1-5DBCAA 6-10DCABC 11-15BADCA 16-20 AAABC 21-25BDCAB 26-30BCADA 31-35DBDAB填空：1)无歧义性2)白盒3)顺序4)ACBDFEHGP 5)实体集6)is null 7)group by 8)distinct 9)modify structure 10)load 11).T. 12)click 13)1 14)value 15)update08年4月份试题1-5CABBA 6-10 DBCDC 11-15DDBCD 16-20BBABA 21-25CBACB 26-30CDBAC 31-35CDCDA填空：1)输出2)16 3)24 4)关系5)数据定义语言6)不7)distinct 8)like 9)数据库管理系统 10)primary key 11)age is null 12).T. 13)do mymenu.mpr 14)local 15)pack08年9月份试题1-10 BDCAD BABCD 11-20DACAD BBDBC 21-30 AABCA DACBC 31-35BDAAC填空：1.DBXEAYFZC 2.单元 3.过程4.逻辑设计5.分量 6. to 7.“1234”8.全部9.into cursor 10主 11.视图 12.零 13.多14.passwordchar 15.排除09年3月试题1-10DACDCABABC 11-20ADBBCDABBC21-30BBADBAAACD 31-35CAACD填空20，白盒，顺序结构，DBMS，菱形，数据库，日期时间型，primary key，.Prg，联接，.T.，replace all，数据库系统，having，avg（成绩） 09年9月试题CBDAB ACBCD ADABD ACDBD DDBAB DCDBC ADCAD14 逻辑条件 需求分析 多对多 身份证号 .f. 选择 {^2009-03-03} 忽略 drop view myview group by 自由表 enabled alter set check 10年3月试题CDBAC BADBA DADDD BBBCC BCBDB CADBB CADBD ABCDEF54321 15 EDBGHFCA 程序 课号 实体 do queryone.qpremp.fpt 域 多对一 关系 count() distinct check having

vb二级考试范围

2007年9月全国计算机二级VB试题一、选择题（每小题2分，共70分） 下列各题A) 、B) 、C) 、D)四个选项中，只有一个选项是正确的。请将正确选项填涂在答题卡相应位置上，答在试卷上不得分。 （1）软件是指 A）程序 B）程序和文档 C）算法加数据结构 D）程序、数据与相关文档的完整集合 （2）软件调试的目的是 A）发现错误 B）改正错误 C）改善软件的性能 D）验证软件的正确性 （3）在面向对象方法中，实现信息隐蔽是依靠 A）对象的继承 B）对象的多态 C）对象的封装 D）对象的分类 （4）下列叙述中，不符合良好程序设计风格要求的是 A）程序的效率第一，清晰第二 B）程序的可读性好 C）程序中要有必要的注释 D）输入数据前要有提示信息 （5）下列叙述中正确的是 A）程序执行的效率与数据的存储结构密切相关 B）程序执行的效率只取决于程序的控制结构 C）程序执行的效率只取决于所处理的数据量 D）以上三种说法都不对 （6）下列叙述中正确的是 A）数据的逻辑结构与存储结构必定是一一对应的 B）由于计算机存储空间是向量式的存储结构，因此，数据的存储结构一定是线性结构 C）程序设计语言中的数组一般是顺序存储结构，因此，利用数组只能处理线性结构 D）以上三种说法都不对 （7）冒泡排序在最坏情况下的比较次数是 A）n(n＋1)/2 B）nlog2 n C）n(n－1)/2 D）n/2 （8）一棵二叉树中共有70个叶子结点与80个度为1的结点，则该二叉树中的总结点数为 A）219 B）221 C）229 D）231 （9）下列叙述中正确的是 A）数据库系统是一个独立的系统，不需要操作系统的支持 B）数据库技术的根本目标是要解决数据的共享问题 C）数据库管理系统就是数据库系统 D）以上三种说法都不对 （10）下列叙述中正确的是 A）为了建立一个关系，首先要构造数据的逻辑关系 B）表示关系的二维表中各元组的每一个分量还可以分成若干数据项 C）一个关系的属性名表称为关系模式 D）一个关系可以包括多个二维表 （11）要使一个文本框可以显示多行文本，应设置为True的属性是 A）Enabled B）MultiLine C）MasLenfth D）Width （12）在窗体上有一个名为Text1的文本框。当光标在文本框中时，如果按下字母键“A”，则被调用的事件过程是 A）Form_KeyPress() B）Text1_LostFocus() C）Text1_Click() D）Test1_Change() （13）设在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。要求单击Command1按钮时可把光标移到文本框中。下面正确的事件过程是 A）Private Sub Command1_Click() B）Private Sub Text1.GotFocus Command1.GotFocus End Sub EndSub C）Private Sub Command1_Click() D）Private Sub Text1.SetFocus Command1.SetFocus End Sub End Sub （14）执行以下程序后输出的是 Private Sub Command1_Click() Ch$=”AABCDEFGH” Print Mid(Righ(ch$,6),Len(left(ch$,4)),2) End Sub A)CDEFGH B)ABCD C)FG D)AB （15）设在窗体Form1上有一个列表框List1，其中有若干个项目。要求单击列表框中某一项时，把该项显示在窗体上，正确的事件过程是 A)Prvate Sub List1_Click() B)Private Sub Form1_Click() Print List1.Text Print List1.Text End Sub End Sub C)Private Sub List1_Click() D)Private Sub Form1_Click() Print Form1.Text List1.Print List1.Text End Sub End Sub （16）若窗体上的图片框中有一个命令按钮，则此按钮的Left属性是指 A)按钮左端到窗体左端的距离 B)按钮左端到图片框左端的距离 C)按钮中心点到窗体左端的距离 D)按钮中心点到图片框左端的距离 （17）为使程序运行时通用对话框CD1上显示的标题为“对话框窗口”，若通过程序设置该标题，则应使用的语句是 A)CD1.DialogTitle=“对话框窗口” B)CD1.Action=“对话框窗口” C)CD1.FileName=“对话框窗口” D)CD1.Filter=“对话框窗口” （18）在窗体上有如右图所示的控件，各控件的名称 与其标题相同，并有如下程序： Private Sub Form_Load() Command2.Enabled=False Check1.Value=1 End Sub 刚运行程序时，看到的窗体外观是： （19）设在窗体中有一个名称为List1的列表框，其中有若干个项目（如图）。要求选中某一项后单击Command1按钮，就删除选中的项，则正确的事件过程是 A)Private Sub Command1_Click() List1.Clear End Sub B) Private Sub Command1_Click() List1.Clear List1.ListIndex End Sub C) Private Sub Command1_Click() List1.Removeltem List1.ListIndex End Sub D) Private Sub Command1_Click() List1.Removeltem End Sub （20）某人设计了如下程序用来计算并输出7!（7的阶乘） Private Sub Command1_Click() t=0 For k=7 To 2 Step -1 t=t*k Next Print t End Sub 执行程序时，发现结果是错误的，下面的修改方案中能够得到正确结构的是 A）把t=0改为t=1 B）把For k = 7 To 2 Step -1改为For k =7 To 1 Step -1 C）把For k = 7 To 2 Stip-1改为Fork=1 To 7 D）把Next改为Nexi k （21）若窗体中已经有若干个不同的单选按钮，要把它们改为一个单选按钮数组，在属性窗口中需要且只需要进行的操作是 A）把所有单选按钮的Index属性改为相同值 B）把所有单选按钮的Index 属性改为连续的不同值 C）把所有单选按钮的Caption属性值改为相同 D）把所有单选按钮的名称改为相同，且把它们的Index属性改为连续的不同值。 （22）窗体上有文本框Text1和一个菜单，菜单标题、名称如表，结构见图。要求程序执行时单击“保存”菜单项，则把其标题显示在Text1文本框中。下面可实现此功能的事件过程是： 标题 名称 文件 file 新建 new 保存 save A）Private Sub save_Click() B）Private Sub save_Click() Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub C）Private Sub file_Click() D）Private Sub file_Click() Text1.Text=file.save.Caption Text1.Text=save.Caption End Sub End Sub（23）某人在窗体上画了一个名称为Timer1的计时器和一个名称为Lab 的属性设置为Enabled=True, Interval=0,并编程如下。希望在每2秒在标签上显示一次系统当前时间。 Private Sub Timer1_Timer() Label1.Caption=Time$ End Sub 在程序执行时发现未能实现上述目的，那么，他应做的修改是 A）通过属性窗口把计时器的Interval属性设置为2000 B）通过属性窗口把计时器的Enabled属生设置为False C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Tims$ D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time （24）形状控件的Shape属性有6种取值，分别代表6种几何图形。下列不属于这6种几何图形的是 （25）下面关于文件的叙述中错误的是 A）随机文件中各条记录的长度是相同的] B）打开随机文件时采用的文件存取方式应该是Random C）向随机文件中写数据应使用语句Print#文件号 D）打开随机文件与打开顺序文件一样，都使用Open语句 （26）设窗体上有一个图片框Picture1，要在程序运行期间装入当前文件夹下的图形文件File1.jpg，能实现此功能的语句是 A）Picture1.Picture=”Flie1.jpg B）Picture1.Picture=LoadPicture(“File1.jpg”) C) LoadPicture(“File1.jpg”) D）Call LoadPicture(“File1.jpg”) （27）下面程序执行时，在窗体上显示的是 Private Sub Command1_Click() Dim a(10) For k = 1 To 10 a(k) = 11 – k Next k Print a(a(3)\a(7) Mod a(5)) End Sub A）3 B）5 C）7 （28）为达到把a、b中的值交换后输出的目的，某人编程如下： Private Sub Command1_Click() a% = 10:b% = 20 Call swap(a,b) Print a,b End Sub Private Sub swap(ByVal a As Integer,ByVal b As Integer) c= a:a=b:b=c End Sub 在运行时发现输出结果错了，需要修改。下面列出的错误原因和修改方案中正确的是 A）调用swap过程的语句错误，应改为Call swap a,b B）输出语句错误，应改为：Print ”a”,”b” C）过程的形式参数有错，应改为：swap(ByRef a As Integer,ByRef b As Integer) D）swap中3条赋值语句的顺序是错误的，应改为a=b:b=c:c=a （29）有如下函数： Function fun(a As Integer,n As Integer) As Integer Dim m As Integer While a 》=n a=a-n m= m+1 Wend fun=m End Function 该函数的返回值是 A）a乘以n的乘积 B）a加n的和 C）a减n的差 D）a除以n的商（不含小数部分） （30）下面程序的输出结果是 Private Sub Command1_Click() ch$=”ABCDEF” proc ch Print ch End Sub Private Sub proc(ch As String) S=”” For k=Len(ch) To 1 Step-1 s=s&Mid(ch,k,1) Next k ch=s End Sub A）ABCDEF B）FEDCBA C）A D）F （31）某人编写了一个能够返回数组a中10个数中最大数的函数过程，代码如下： Function MaxValue(a() As Integer) As Integer Dim max% max=1 For k = 2 To 10 If a(k)》a(max) Then max = k End If Next k MaxValue = max End Function 程序运行时，发现函数过程的返回值是错的，需要修改，下面的修改方案中正确的是 A）语句max = 1应改为max = a(1) B）语句For k = 2 To 10应改为For k = 1 To 10 C）If语句中的条件a(k)》a(max)应改为a(k)》max D）语句MaxValue = max 应改为MaxValue = a(max) （32）在窗体上画一个名称为Command1的命令按钮，并编写以下程序： Private Sub Command1_Click() Dim n%,b,t t = 1:b = 1:n = 2 Do b = b*n t = t + b n = n +1 Loop Until n》9 Print t End Sub 此程序计算并输出一个表达式的值，该表达式是 A）9！ B）10！ C）1！+2！+…+9！ D）1！+2！+…+10！ （33）有一个名称为Form1的窗体，上面没有控件，设有以下程序（其中方法Pset(X,Y)的功能是在坐标X，Y处画一个点）： Dim cmdmave As Boolean Private Sub Form_MouseDown(Button As Integer,Shift As Integer, X As Single,Y As Single) cmdmave = True End Sub Private Sub Form_MouseMove(Button As Integer,Shift As Integer, X As Single, Y As Single) If cmdmave Then Form1.Pset(X,Y) End If End Sub Private Sub Form_MouseUp(Button As Integer, Shift As Integer, X As Single,Y As Single) cmdmave = False End Sub 此程序的功能是 A）每按下鼠标键一次，在鼠标所指位置画一个点 B）按下鼠标键，则在鼠标所指位置画一个点；放开鼠标键，则此点消失 C）不按鼠标键而拖动鼠标，则沿鼠标拖动的轨迹画一条线 D）按下鼠标键并拖动鼠标，则沿鼠标拖动的轨迹画一条线，放开鼠标键则结束画线 （34）某人设计了下面的函数fun，功能是返回参数a中数值的位数 Function fun(a As Integer) As Integer Dim n% n = 1 While a \ 10 》= 0 n = n + 1 a = a \ 10 Wend fun = n End Function 在调用该函数时发现返回的结果不正确，函数需要修改，下面的修改方案中正确的是 A）把语句n = 1改为n = 0 B）把循环条件a \ 10 》= 0改为a \ 10 》 0 C）把语句 a = a \ 10改为a = a Mod 10 D）把语句fun = n改为 fun = a （35）在窗体上有一个名称为Check1的复选框数组（含4个复选框），还有一个名称为Text1的文本框，初始内容为空。程序运行时，单击任何复选 框，则把所有选中的复选框后面的方字罗列在文本框中（见图）。下面能实现此功能的事件过程是 A）Private Sub Check1_Click(Indes As Integer) Text1.Text ="" For k = 0 To 3 If Check1(k).value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " ’双引号中是空格 End If Next k End Sub B）Private Sub Check1_Click(Index As Integer) For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " ’双引号中是空格 End If Next k End Sub C）Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(Index).Caption & " " ’双引号中是空格 End If Next k End Sub D）Private Sub Check1_Click(Index As Integer) Text1.Text = "" For k = 0 To 3 If Check1(k).Value = 1 Then Text1.Text = Text1.Text & Check1(k).Caption & " " ’双引号中是空格 Exit For End If Next k End Sub 二、填空题（每空2分，共30分） 请将每空的正确答案写在答题卡序号的横线上，答在试卷上不得分。 (1)软件需求规格说明书应具有完整性，无岐义性、正确性、可验证性、可修改性等特征，其中最重要的是【1】 。 (2)在两种基本测试方法中，【2】 测试的原则之一是保证所测模块中每一个独立路径至少执行一次。 (3)线性表的存储结构主要分为顺序存储结构和链式存储结构。队列是一种特殊的线性表，循环队列是队列的【3】 存储结构。 (4)对下列二叉树进行中序遍历的结果为【4】 。 （5）在E-R图中，矩形表示【5】 。 （6）窗体上有一个组合框，其中已输入了 若干个项目。程序运行时，单击其中一 项，即可把该项与最上面的一项交换。 例如：单击图1中的“重庆”，则与“北 京”交换，得到图2的结果。下面是可 实现此功能的程序，请填空。 Private Sub Combo1_Click() Dim temp temp = Combo1.Text = Combo1.List(0) Combo1.List(0) = temp End Sub （7）设窗体上有一个名称为HScroIII的水平滚动条，要求当滚动块移动位置后，能够在窗体上输出移动的距离（即新位置与原位置的刻度值之差，向右移动为正数，向左移动为负数）。下面是可实现此功能的程序，请填写。 Dim As Integer Private Sub Form_Load() pos=HScroIII.Value End Sub Private Sub HScroIII_Change() Print -pos pos=HScroIII.Value End Sub （8）设窗体上有一个名称为CD1的通用对话框，一个名称为Text1的文本框和一个名称为Command1的命令按钮。程序执行时，单击Command1按钮，则显示打开文件对话框，操作者从中选择一个文本文件，并单击对话框上的“打开”按钮后，则可打开该文本文件，并读入一行文本，显示在Text1中。下面是实现此功能的事件过程，请填空。 Private Sub Command1_Click() CD1.Filter ="文本文件1*.txt(Word 文档)*.doc" CD1.Filterinder = 1 CD1.ShowOpen If CD1.FileName《》""Then Open For Input As #1 Line Input #1,ch$ Close #1 Text1.Text = End If End Sub （9）下面的程序执行时，可以从键盘输入一个正整数，然后把该数的每位数字按逆序输出。例如：输入7685，则输出5867，输入1000，则输出0001。请填空。 Private Sub Command1_Click() Dim x As Integer x=InputBox(“请输入一个正整数”) While x》_____ Print x Mod 10; x=x\10 Wend Print____ End Sub （10）有如图所示的窗体。程序执行时先在Text1文本框中输入编号，当焦点试图离开Text1时，程序检查编号的合法性，若编号合法，则焦点可以离开Text1文本框；否则，显示相应错误信息，并自动选中错误的字符，且 焦点不能离开Text1文本框（见图）。 合法编号的组成是：前2个字符是大写英文 字母，第3个字符是“-”，后面是数字字符 （至少1个）。下面程序可实现此功能，请 填空。 Private Sub Text1_Lostfocus() Dim k%,n% n=Len( ) For k=1 to if (n》3,n,4) c=Mid(Text1. Text,k,1) Select Case k Case 1,2 If c《"A" Or c》"Z" Then MsgBox("第"&k&"个字符必须是大写字母！") SetPosition k Exit For End If Case 3 If c《》"-" Then MsgBox("第"&k&"个字符必须是字符"’"-"’") SetPosition k Exit For End If Case Else If c《"0" Or c》"9" Then MsgBox("第"&k&"个字符必须是数字！") SetPosition k Exit For End If End Select Next k End Sub Private Sub SetPosition(pos As Integer) Text1.SelStart=pos-1 Text.SelLength= Text1. End Sub 2007年9月全国计算机等级考试二级VB参考答案 一、选择题 1-5 DBCAA 6-10 CCABA 11-15 BDCCA 16-20 BAACA 21-25 DBABC 26-30 BDCDB 31-35 DCDBA 二、填空题 1、无歧义性 2、白盒测试 3、顺序 4、ACBDFEHGP 5、实体集 6、Combol1.List(Combol1.ListIndex) 7、pos 8、HScroll1.value 9、CD1.FileName 10、ch 11、10 12、x 13、Text1.Text 14、1 15、SetFocus***隐藏网址***