2007年4月全国计算机二级考试VB语言笔试真题

Size: px

Start display at page:

Download "2007年4月全国计算机二级考试VB语言笔试真题"

姿旺危
7 years ago
Views:

1 2007 年 4 月全国计算机二级考试 VB 语言笔试真题一选择题 ( 每题 2 分, 共计 70 分 ) 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)DYBEAFCZX B)YDEBFZXCA C)ABDYECFXZ D)ABCDEFXYZ 7) 某二叉树中有 n 个度为 2 的结点, 则该二叉树中的叶子结点数为 () A)n+1 B)n-1 C)2n D)n/2 8) 在下列关系运算中, 不改变关系表中的属性个数但能减少元组个数的是 () A) 并 B) 交 C) 投影 D) 笛卡儿乘积 9) 在 E R 图中, 用来表示实体之间联系的图形是 () A) 矩形 B) 椭圆形 C) 菱形 D) 平行四边形 10) 下列叙述中错误的是 () A) 在数据库系统中, 数据的物理结构必须与逻辑结构一致 B) 数据库技术的根本目标是解决数据共享问题 C) 数据库技术是指己有数据管理系统的基础上建立数据库

D) 模块内具有高内聚度模块间具有低耦合度 3) 下列叙述中正确的是 () A) 软件测试的主要目的是发现程序中的错误 B) 软件测试的主要目的是确定程序中错误的位置 C) 为了提高软件测试的效率, 最好由程序编制者自己来完成软

2 D) 数据库系统需要操作系统的支持 11) 下面可以正确定义 2 个整形变量和 1 个字符串变量的语句的是 () A)Dim n,m AS Interger,s AS String B)Dim a%,b$,c AS String C)Dim a AS Integer,b,c AS String D)Dim x%,y AS Integer,z AS String 12) 下列表述中不能判断 x 是否为偶数的是 () A)x/2=Int(x/2) B)x Mod 2=0 C)Fix(x/2)=x/2 D)x\2=0 13) 设在名称为 Myform 的窗体上只有 1 个名称为 C1 的命令按钮, 下面叙述中正确的是 () A) 窗体的 Click 事件过程的过程名是 Myform_Click B) 命令按钮的 Click 事件过程名是 C1_Click C) 命令按钮的 Click 事件过程的过程名是 Command1_Click (14) 设窗体上有 1 个滚动条, 要求单击滚动条右端的按钮一次, 滚动条移动一定的刻度值, 决定此刻度的属性是 () A)Max B)Min C)SmallChange D)LargeChang 15)1 个二维数组可以存放 1 个矩形. 在程序开始有语句 Option Base 0, 则下面定义的数组中正好可以存放 1 个 4*3 矩阵 ( 即只有 12 个元素 ) 的是 () A)Dim a(-2 To 0,2) AS Integer B)Dim a(3,2) AS Ingeger C)Dim a(4,3)as Ingeger D)Dim a(-1 To -4,-1 To -3)AS Ingeger 16) 若设置了文本框的属性 PasswordChar= $, 则运行程序时向文本框中输入 8 个任意字符后, 文本框中显示的是 () A)8 个 $ B)1 个 $ C)8 个 * D) 无任何内容 17) 设在窗体上有 1 个名称为 Combo1 的组合框, 含有 5 个项目, 要删除最后一项, 正确的语句是 () A)Combo1.RemoveItem Combo1.Text B) Combo1.RemoveItem4 C) Combo1.RemoveItem Combo1.ListCount D) Combo1.RemoveItem5 18) 工程中有 2 个窗体, 名称分别为 Form1.Form2,Form1 为启动窗体, 该窗体上有命令按钮 Command1, 要求程序运行后单击该命令按钮时显示 Form2, 则按钮的 Click 事件过程应该是 () A)Private Sub Command1_Click( ) B) Private Sub Command1_Click( ) Form2.Show Form2.Visible C) Private Sub Command1_Click( ) D)Private Sub Command1_Click( ) Load Form2 Form2.Load 19) 若在某窗体模块中有如下事件过程 () Private Sub Command1_Click(Index AS Integer)

Click 事件过程的过程名是 Myform_Click B) 命令按钮的 Click 事件过程名是 C1_Click C) 命令按钮的 Click 事件过程的过程名是 Command1_Click (14) 设窗体上有 1 个滚动条, 要求单击滚动条右端的按钮一次, 滚动条移动一定的

3 则以下叙述中正确的是 A) 此事件过程与不带参数的事件过程没有区别 B) 有 1 个名称为 Command1 的窗体, 单击此窗体则执行此事件过程 C) 有 1 个名称为 Command1 的空件数组, 数组中有多个不同类型控件 D) 有 1 个名称为 Command1 的空件数组, 数组中有多个相同类型控件 20) 以下循环语句中在任何情况下都至少执行一次循环体的是 () A)Do While < 条件 > B)While < 条件 > 循环体循环体 Loop Wend C)Do D)Do Until < 条件 > 循环体循环体 Loop Until < 条件 > Loop 21) 在窗体上有 1 个名为 Cd1 的通用对话框, 为了在运行程序时打开保存文件对话框, 则在程序总应使用的语句是 () A)Cd1.Action=2 B)Cd1.Action=1 C)Cd1.ShowSave=Ture D)Cd1.ShowSave=0 22) 下面关于菜单的叙述中错误的是 () A) 各级菜单中的所有菜单项的名称必须唯一 B) 同一子菜单中的菜单项名称必须唯一, 但不同子菜单中的菜单项名称可以相同 C) 弹出式菜单也用菜单编辑器编辑 23) 已知有下面的过程 () Private Sub proc1(a As Integer,b As String,Optional x As Boolean) 正确调用此过程的语句是 A)Call procl(5) B)Call proc1 5, abc,false C)proc1(12, abc,true) D)proc1 5, abc 24) 在窗体上有一个文件名称为 Text1 的文本框和 1 个名称为 Command1 的命令按钮, 要求在程序执行时, 每单击命令按钮一次, 文本框向右移动一定距离下面能够正确实现上述功能的程序是 () A) B) Text1.Left=100 T ext1.left= Text1.Left-100 C) D) Text1.Move.Text.Left+100 Text1.Move.Text.Left 25) 某人创建了 1 个工程, 其中的窗体名称为 Form1; 之后又添加了 1 个名为 Form2 的窗体, 并希望程序执行时先显示 Form2 窗体, 那么, 他需要做的工作是 () A) 在工程属性对话框中把启动对象设置为 Form2 B) 在 Form1 的 Load 事件过程中加入语句 Load Form2 C) 在 Form2 的 Load 事件过程中加入语句 Form2.Show D) 在 Form2 的 TabIndex 属性设置为 1, 把 Form1 的 TabIndex 属性设置为 2 26) 窗体上有 1 个名称为 Text1 的文本框和 1 个名称为 Command1 的命令按钮要求程序运行时,

Until < 条件 > Loop 21) 在窗体上有 1 个名为 Cd1 的通用对话框, 为了在运行程序时打开保存文件对话框, 则在程序总应使用的语句是 () A)Cd1.Action=2 B)Cd1.Action=1 C)Cd1.ShowSave=Ture D)Cd1.

4 单击命令按钮, 就可以把文本框中的内容写到文件 out.txt 中, 每次写入的内容附加到文件原有内容之后下面能够实现上述功能的程序是 () A) B) Open out.txt For Inpit As#1 Open out.txt For Outpit As#1 Print#1,Text1.Text Print#1,Text1.Text Close#1 Close#1 C) D) Open out.txt For Append As#1 Open out.txt For Random As#1 Print#1,Text1.Text Print#1,Text1.Text Close#1 Close#1 (27) 为计算的值, 某人编程如下 k=1 s=0 While k<=99 k=k+2 : s=s+k Wend Print s 在调试时发现运行结果有错误, 需要修改下列错误原因和修改方案中正确的是 () A)While Wend 循环语句错误, 应改为 For k=1 To 99 Next k B) 循环条件错误, 应改为 Whlie k<99 C) 循环前的赋值语句 k=1 错误, 应改为 k=0 D) 循环中两条赋值语句的顺序错误, 应改为 s=s+k : k=k+2 28) 下面程序在调试时出现了死循环 n=inputbox( 请输入一个整数 ) Do If n Mod 2=0 Then n=n+1 n=n+2 If Loop Until n=1000 下面关于死循环的叙述中正确的是 () A) 只有输入的 n 是偶数时才会出现死循环, 否则不会 B) 只有输入的 n 是奇数时才会出现死循环, 否则不会 C) 只有输入的 n 是大于 1000 的整数时才会出现死循环, 否则不会 D) 输入任何整数都会出现死循环 29) 在窗体上有 1 个名称为 CommonDialog1 的通用对话框和 1 个名称为 Command1 的命令按钮, 以及其他一些控件要求在程序运行时, 单击 Command1 按钮, 则显示打开文件对话框, 并在选择或输入了 1 个文件名后, 就可以打开该文件以下是 Command1_Click 事件过程的两种算法

Text Close#1 Close#1 C) D) Open out.txt For Append As#1 Open out.txt For Random As#1 Print#1,Text1.

5 算法 1: CommonDialog1.ShowOpen Open CommonDialog1.FileName For Input As#1 算法 2: CommonDialog1.ShowOpen IfCommonDialog1.FileName<> Then Open CommonDialog1.FileName For Input As#1 下面关于这两种算法的叙述中正确的是 () A) 显示打开文件对话框后若未选择或输入任何文件名, 则算法 2 会出错, 算法 1 不会 B) 显示打开文件对话框后若未选择或输入任何文件名, 则算法 1 会出错, 算法 2 不会 C) 两种算法的执行结果完全一样 D) 算法 1 允许输入的文件名中含有空格, 而算法 2 不允许 30) 窗体上有 1 个名称为 List 的列表框, 其中已经输入了若干个项目 ( 如图所示 ): 还有 2 个文本框, 名称分别为 Text1 Text2, 1 个名称为 Command1 的命令按钮, 并有以下程序 Dim str As String, s As String, k As Integer s=text1 Str= For k=list1.listcount-1 to 0 Step-1 If InStr(List.List(k),s)>0 then str=str&list.list(k)& Next k If str= Then Text2= 没有匹配的项目 Text2=str 程序运行时, 在 Text1 中输入京, 单击命令按钮, 则在 Text2 中显示的内容是 () A) 京 B) 北京南京 C) 南京 D) 没有匹配的项目 31) 在窗体上画 1 一个名称为 Command1 的命令按钮, 并编写以下程序 Print fun( ABCDEFG ) Function fun(st As String) As String stlen=len(st) temp=

法 2 不会 C) 两种算法的执行结果完全一样 D) 算法 1 允许输入的文件名中含有空格, 而算法 2 不允许 30) 窗体上有 1 个名称为 List 的列表框, 其中已经输入了若干个项目 ( 如图所示 ): 还有 2 个文本框, 名称分别为 Text1 Text2, 1

6 For k fun=temp End Function 程序运行时, 单击命令按钮, 则窗体上显示的是 () A)ABCDEFG B)AGBFCE C)GFEDCBA D)AGBFCED 32) 在窗体上先后画 2 个图片框, 名称分别为 Picture1 和 banana,banana 中添加了香蕉图片 ( 见图 1), 且将 banana.dragmode 属性设置为 1 要求程序运行时, 可以用鼠标把 banana 拖拽到 Picture1 中 ( 见图 2) 能实现此功能的事件过程是 () A) Priate Sub Form_DragDrop(Source As Control,X As Single,Y As Single banana.move Picture1.Left+X,Picture1.Top+Y) B)Private Sub banana _DragDrop(Source As Control,X As Single,Y As Single ) Source.Move Picture1.Left+X.Picture1.Top+Y C) B)Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single ) Source.Move Picture1.Left+X.Picture1.Top+Y D) B)Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single ) banana.move banana.left+x, banana.top+y 33) 在窗体上画 1 个名称为 Command1 的命令按钮, 然后编写如下事件过程 Option Base 1 Pribate Sub Command1_Click() Dim a(5.5) As Integer For i=1 To 5 a(i,j)*5\10 Next j Next i S=0 For i=1 To 5 S=s+a(i,i) Next i Print s 程序运行后, 单击命令按钮, 输出结果是 () A) 15 B)13 C)11 D)9 34) 在窗体上从左到右有 Text1 Text2 两个文本框 ( 见图 ), 要求程序运行时, 在 Text1 中输入 1 个分数后按回车键, 则判断分数的合法性, 若分数为 0~100 中的 1 个数, 周围光标移到 Text2 中 ; 否则光标不动, 并弹出对话框显示分数错, 下面程序中正确的是 () A)Private Sub Text1 KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then 回车符的 ACSII 码是 13 a=val(text1) If a>=0 or a<=100 Then

move Picture1.Left+X,Picture1.Top+Y) B)Private Sub banana _DragDrop(Source As Control,X As Single,Y As Single ) Source.Move Picture1.Left+X.Picture1.Top+Y C) B)Private Sub Picture1_DragDrop(Source As Control,X As Single,Y As Single ) Source.

7 Text2.SetFocus Text1. SetFocus ; MsgBox( 分数错 ) B) Private Sub Text1 KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then 回车符的 ACSII 码是 13 a=val(text1) If a>=0 And a<=100 Then Text1.SetFocus Text2. SetFocus ; MsgBox( 分数错 ) C) Private Sub Text1 KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then 回车符的 ACSII 码是 13 a=val(text1) If a<0 And a>100 Then Text2.SetFocus Text1. SetFocus ; MsgBox( 分数错 ) D) Private Sub Text1 KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then 回车符的 ACSII 码是 13 a=val(text1) If a>=0 And a<=100 Then Text2.SetFocus Text1. SetFocus ; MsgBox( 分数错 ) 35) 在窗体上画 2 个命令按钮, 名称分别为 Command1 command2, 并编写如下程序 Const n=5,m=4 Dim a(m,n) K=1 For i=1 To m For j=1 To n a(i,j)=k

SetFocus ; MsgBox( 分数错 ) C) Private Sub Text1 KeyPress(KeyAscii AS Integer) If KeyAscii=13 Then 回车符的 ACSII 码是 13 a=val(text1) If a<0 And a>100 Then SetFocus ; MsgBox( 分数

8 k=k+1 Next j Next i Private Sub Command2_Click() Summ=0 For i=1 To m For j=1 To n If i=1 Or i=m Then Summ=summ+a(i,j) If j=i Or j=n Then Summ=summ+a(i,j) Next j Next i Print summ 过程 Command1_Click() 的作用是二维数组 a 中存放 1 个 m 行 n 列的矩阵 ; 过程 Command2_Click() 的作用是 () A) 计算矩阵外围一圈元素的累加和 B) 计算矩阵除外一圈以外的所有元素的累加和 C) 计算矩阵第 1 列和最后一列元素的累加和 D) 计算矩阵第 1 行和最后一行元素的累加和二填空题 ( 每空 2 分, 共计 30 分 ) 1) 在深度为 7 的满二叉树中, 度为 2 的结点个数为 1 2) 软件测试分为白箱 ( 盒 ) 测试和黑箱 ( 盒 ) 测试, 等价类划分法属于 2 测试 3) 在数据库系统中, 实现各种数据管理功能的核心软件称为 3 4) 软件生命周期可分为多个阶段, 一般分为定义阶段开发阶段和维护阶段编码和测试属于 4 阶段 5) 在结构化分析使用的数据流图 (DFD) 中, 利用 5 对其中的图形元素进行确切解释 6) n 最大的 n 请填空 Private Sub Command1 Click() Dim s,m,n AS Integer m=val(inputbox( 请输入一个大于 100 的整数 )) n= 6 s=0 Do While s N=n+1 S=s+n*n Loop Print " 满足不等式的最大 n 是 " 7

1 行和最后一行元素的累加和二填空题 ( 每空 2 分, 共计 30 分 ) 1) 在深度为 7 的满二叉树中, 度为 2 的结点个数为 1 2) 软件测试分为白箱 ( 盒 ) 测试和黑箱 ( 盒 ) 测试, 等价类划分法属于 2 测试 3) 在数据库系统中, 实现各种数据

9 7) 下面程序的功能是把文件 file11.txt 中重复字符去掉后 ( 即若有多个字符相同, 则只保留 1 个 ) 写入文件 file2.txt 请填空 Private Sub Command1 Click() Dim inchar AS String,temp AS String,outchar AS String Outchar= Open= file1.txt For Input AS #1 Open= file2.txt For Output AS 8 n=lof( 9 ) inchar=input$(n,1) For k=1 To n temp=mid(inchar,k,1) If InStr(outchar,temp)= 10 Then outchar=outchar & temp Next k print #2, 11 close #2 close #1 8) 在窗体上先画 1 个名为 Text1 的文本框和平个名为 Label1 的标签, 再画 1 个名为 OP1 的有 4 个单选按钮数组, 其 Index 属性按季度顺序为 0 3( 见图 1) 在文件 sales.txt 中按月份顺序存有某企业某年 12 个月的销售额要求在程序执行时, 鼠标单击 1 个单选按钮, 则 Text1 中显示相应季度的销售总额, 并把相应的文字显示在标签上图 2 是单击第 3 季度单选按钮产生的结果请填空 Dim sales(12) As Long Private Sub Form Load() open sales.txt For Input AS #1 For k=1 To 12 Input #1,sales(k) Next k Close #1 Private Sub 12 (Index, AS Integer) Dim sum AS Long,k AS Ingeger,month AS Ingeger sum=0 month=index* 13 For k=1 To 3 month=month+1 sum=sum+sales(month) Next k Label1.Caption=Opl(Index). 14 & 销售总额 : Text1=sum

txt For Output AS 8 n=lof( 9 ) inchar=input$(n,1) For k=1 To n temp=mid(inchar,k,1) If InStr(outchar,temp)= 10 Then outchar=outchar & temp Next k print #2, 11 close #2 close #1 8) 在窗体上先画 1 个名为

10 9) 某人编写如下函数来判断 a 是否为素数, 若是, 则函数返回 True; 否则返回 False Function Prime(a As Integer)AS Boolean Dim k As Interger,isprime AS Boolean If a<2 Then isprime=false isprime=true k=2 Do While k If a Mod k=0 Then isprime=false ELSE k=k+1 End IF LOOP prime=isprime End Function 在测试时发现有 1 个非素数也被判断为素数, 这个错判的数是 15

isprime=false isprime=true k=2 Do While k If a Mod k=0 Then isprime=false ELSE k=k+1

修改版-操作手册.doc

修改版-操作手册.doc 职称信息系统升级指南须使用 IE9 及其以上版本浏览器或谷歌浏览器登录 www.njrs.gov.cn 南京市职称 ( 职业资格 ) 工作领导小组办公室 2016 年 5 月目录一申报人员操作指南...1 1.1 职称初定申报...1 1.1.1 职称初定基础信息填