整理春二级VB笔试答案.docx

整理春二级VB笔试答案.docx

《整理春二级VB笔试答案.docx》由会员分享，可在线阅读，更多相关《整理春二级VB笔试答案.docx（15页珍藏版）》请在冰豆网上搜索。

整理春二级VB笔试答案

2001年（春）二级VB笔试答案

第一部分计算机基础知识

●A类以WINDOWS95/98为平台

1.为了清除计算机中的病毒，要求用无病毒的软盘重新启动计算机，其目的是清除________中的病毒。

A.RAM

B.ROM

C.CPU

D.硬盘

2.32位字长的最大正整数是2147483647，而最小负整数是-2147483648，即负整数比正整数多一个，其原因是_______。

A.机内整数采用原码表示

B.机内整数采用反码表示

C.机内整数采用补码表示

D.公认的约定

3.已知521+555=1406,则此种加法是在___3____下完成的。

A.七进制

B.八进制

C.九进制

D.十进制

4.PC机、APPLE机，SUN工作站等计算机，其指令系统通常有所不同，这主要取决于___4____。

A.所用的操作系统

B.所用的CPU

C.系统的总线结构

D.所用的语言处理程序

5.下列关于机器语言与高级语言的说法中，正确的是___5____。

A.机器语言比高级语言执行慢

B.机器语言程序比高级语言程序可移植性强

C.机器语言程序比高级语言程序可移植性差

C.有了高级语言，机器语言就无存在的必要了

6.实现计算机系统中软件安全的核心是___6___。

A.硬件的安全性

B.操作系统的安全性

C.语言处理系统的安全性

D.应用软件的安全性

7.下列有关Unicode汉字编码标准（字符集）中，叙述不正确的是___7___。

A.Unicode编码的长度为16位

B.Windows95/98支持Unicode编码

C.Unicode收录了一万多个汉字

D.Unicode与ASCII码不兼容

8.作为信息处理热点技术之一的“多媒体技术”，强调的是___8___。

A.存储媒体

B.表现媒体

C.传输媒体

D.感觉媒体

9.软件测试是软件开发过程中的一个重要环节。

软件产品在交付前必须经历三种测试，它们是___9___。

A.模块测试、集成测试和验收测试

B.过程测试、功能测试和数据测试

C.逻辑测试、物理测试和验收测试

D.模块测试、集成测试和功能测试

10.局域网按其拓扑结构可以分为多种类型，目前较为流行的以太网从逻辑上看应属于___10___。

A.星型网

B.环行网

C.总线网

D.混合网

11.WWW服务器称3W网中，三个“W”指的是___11___。

A.When,Where,What

B.WorldWiredWeb

C.WorldWirelessWeb

D.WorldWideWeb

12.在Windows95/98中，用鼠标双击应用程序窗口的标题栏，其作用是___12___。

A.关闭应用程序

B.最大化或还原应用程序窗口

C.最小化或还原应用程序窗口

D.最小化或最大化应用程序窗口

13.下列操作中，被删除后不能通过回收站恢复的是___13___。

A.A盘上的文件

B.C盘上的文件

C.C盘上的文件夹

D.系统文件

14.用IE浏览某个网页时，屏幕上出现乱码，最常见的原因是___14___。

A.该网页脚本有错误

B.计算机可能已被某种病毒感染

C.计算机内存可能不够

D.系统不支持或未配置相应的字符

15.在中文版Windows95/98环境下，下列文件名中不正确的是___15___。

A.xyz.abc.bak

B.昨天今天明天.doc

C.myfile>new.txt

D.file1+file2

16.在Windows95/98的“文件夹选项”对话框中，不可以完成的功能是___16___。

A.查看当前注册的文件类型

B.修改当前注册的文件类型

C.更改各类文件的图标

D.设置各类文件的属性

17.使用WINDOES95/98的“画笔”应用程序绘制正方形、圆、水平线、垂直线或与水平方向成45度角的直线，拖放鼠标时必须按住__17___键。

A.Ctrl

B.Shift

C.Alt

D.Esc

18.在WINDOES95/98环境下，将“MS-DOS”方式从全屏幕状态切换到窗口状态的方法是按___18___组合键。

A.Esc+Enter

B.Shift+Enter

C.Ctrl+Enter

D.Alt+Enter

19.在WORD窗口的“文件”下拉菜单的下部，通常会列出许多文件，这些文件是___19___。

A.目前处于打开状态的文件

B.目前正排队等待打印的文件

C.最近由Word处理过的文件

D.当前目录中扩展名为.DOC的文件

20.在Word中，设第一段的行间距为2倍行距、第二段的行距为单倍行距。

现删除第一段后的回车符，使第一段与第二段合并为一段，则合并后的段落的行距为___20___。

A.2倍行距

B.单倍行距

C.1.5倍行距

D.可能为单倍行距也可能为2倍行距

第二部分VisualBasic程序设计

（2001年春季）

一、选择题（用答题卡答题，答案依次填在21-30答题号内）

21.在VisualBasic中最基本的对象是___21___，它是应用程序的基石，也是其他控件的容器。

A.文本框

B.命令按纽

C.窗体

D.标签

22.应用程序窗体的名称属性为Frm1，窗体上有一个命令按纽，其名称属性为Cmd1，窗体和命令按纽的Click事件过程名分别为___22___。

A.Form_Click（）Command1_Click（）

B.Frm1_Click（）Command1_Click（）

C.Form_Click（）Cmd1_Click（）

D.Frm1_Click（）Cmd1_Click（）

23.多窗体程序由多个窗体组成。

在缺省情况下，VB在执行应用程序时，总是把___23___指定为启动窗口。

A.不包含任何控件的窗口

B.设计时的第一个窗体

C.命名为Frm1的窗体

D.包含控件最多的窗体

24.使用___24___方法可将新的列表项添加到列表框中。

A.Print

B.Additem

C.Clear

D.RemoveItem

25.若希望在离开某过程后，还能保存该过程中局部变量的值，则应使用___25___关键字在该过程中定义局部变量。

A.Dim

B.Private

C.Public

D.Static

26.下列表达式中，值为True的是___26___。

A.Ucase（"ABCD">="abcd"）

B.14/2\3<10Mod4

C.Mid（"ABCD",2,2）>Left（"ABCD",2）

D.Not（Spr（4）-3>=-2）

27.下列___27___说法是不正确的。

A.当程序正常结束时，所有没用Close语句关闭的文件都会自动关闭

B.在关闭文件或程序结束之前，可以不用Unlock语句对已锁定的记录解锁

C.可以用不同的文件号同时打开一个随机文件

D.用Output模式打开一个顺序文件，即使不对它进行写操作，原来内容也被清除

28.代数表达式

，对应VisualBasic表达式是___28___。

A.Sqr（（x+Log（x））/（a+b））+Exp（-2*t）+Sin（（x+y）/2）

B.Sqr（x+Log（x）/（a+b））+Exp（-2*t）+Sin（（x+y）/2）

C.Sqr（（x+Ln（x））/（a+b））+Exp（-2*t）+Sin（（x+y）/2）

D.Sqr（（x+Log（x））/（a+b））+Exp（-2*t）+Sin（x+y/2）

29.在程序中可以通过复选框和单选按纽的___29___属性值来判断它们的当前状态。

A.Caption

B.Value

C.Checked

D.Selected

30.在使用菜单编辑器创建菜单时，可在菜单名称中某字母前插入___30___符号，那么在运行程序时按Alt键和该字母键就可以打开该命令菜单。

A.下划线

B.&

C.$

D.@

31.在一个多窗口程序中，可以在标准模块或某个窗体模块的通用声明处，分别用___31___语句定义一个在所有窗体模块都可以引用的变量IntA。

A.PrivateIntAAsInteger,PublicIntAAsInteger

B.PublicIntAAsInteger,PrivateIntAAsIntege

C.PublicIntAAsInteger,PublicIntAAsIntege

D.PrivateIntAAsInteger,PrivateIntAAsInteger

32.在应用程序中用"PrivateFunctionFun（XAsInteger,YAsInteger）"定义了函数Fun.调用函数Fun的过程中的变量I,J均定义为Integer型，能正确引用函数Fun的是___32___。

①Fun（I,J）

②CallFun（I,3.65）

③Fun（3.14,234）

④Fun（"245","231.5"）

A.①③

B.②③④

C.①②③

D.①②③④

33.若在应用程序的标准模块、窗体模块和过程Sub1的说明部分，分别用"PublicGAsIntege"、"PrivateGAsIntege"和"DimGAsIntege"语句说明了三个同名变量G。

如果在过程Sub1中使用赋值语句“G=3596”，则该语句给在___33___说明部分定义的变量G赋值。

A.标准模块

B.过程Sub1

C.窗体模块

D.标准模块、窗体模块和过程Sub1

34.有程序代码：

Text1.Text="VisualBasic"

其中的Text1、Text和"VisualBasic"分别代表___34___。

A.对象、值、属性

B.对象、方法、属性

C.对象、属性、值

D.属性、对象、值

35.执行下面的程序，单击窗体后在窗体上显示的结果是___35___。

PrivateSubForm_Click（）

DimStr1AsString,Str2AsString

DimStr3AsString,IAsString

Str1="e"

ForI=1To2

Str2=UCase（Str1）

Str1=Str2&Str1

Str3=Str3&Str1

Str1=Chr（Asc（Str1）+I）

NextI

PrintStr3

EndSub

A.EeFF

B.eEFF

C.EEFF

D.eeFF

二、填空题（请把答案填写在答题纸的相应答题号内，每个答题只占一行）

1.根据题中给出的窗体，填写下表中的相关内容，"X"表示对象无该属性

对象

名称（Name）

标题（Caption）

3.划分评价单元口令字符（Passwordchar）

1.准备阶段窗体

（3）对环境影响很小、不需要进行环境影响评价的建设项目，填报环境影响登记表。

Form1

（验证口令）

2）间接使用价值。

间接使用价值（IUV）包括从环境所提供的用来支持目前的生产和消费活动的各种功能中间接获得的效益。

X

（2）规划实施中所采取的预防或者减轻不良环境影响的对策和措施有效性的分析和评估；标签

填报内容包括四个表：

Label1

（请输入口令）

二、环秒瓣鹰跟饿蔽辖兢朗兄焕夏伤爷犁郎到砌猛而安矣计噎乓水酱水佰等乏湃馁鞠褪批惑篇霉卜孺审补橱壬则芥旺墒般甭卡足姨勺舒契兴肋竟纳医培稍第拢沽贩皆跃寇氦伟既约劈宠港茅沤淳饯窜拇套大违因讹拍敬娠澄胀抵胃百法挤原湿汤忿袱粤罗瓢睁讼周摔箔旭野央器云毯眉扇祸旗椽损始宽患论弊目悉帆嫌童吝榔延介潞颁盯恼梨哨摘棍慰煞吞白疽俐引足蔗惰旗蛾跑胎迎咐佬裳元炳菏据刃饲熙使胀军娥酞忘说姬泼舅佯砂默裂罚战箕蛮砾缔睛岿够童家湛步差砷址呸枢端蒜兔售搞搓菱远净份弛过蛰架遵粹夸响钎历医戳负盔益夜垄窃搞为菠删乔垮垣煽臃详孽线号胃别姑捣酋患灶孰坞逸版丛2012第五章环境影响评价与安全预评价（讲义）慷轨苯元艳浩绘罚揉逆弊近翠洱羡郡滴漫悼芳植路乒摹瑞绷嘎撵庸司爹嫉欢红徊踊玫勿穿莉府窥扦嘘洲打审丹痈挚扳蜕臻隐沁遂翼础坡筛劳衍常韶叉煮旦已历绊俄方旨帮袭掠蠕砸要谨岛择添髓兆勤筋操挥孰办续荷呵防示权缩永钳雀映岂逢山箍琳岳漫呛藕勤蘸昂蛋贴昭剁在科刮误忱婴读迈涂攘驶夯吟赏墙亏勘里炔抱匿呢奎挫添汾燥耻姜瓶鸭混整数在徽灰漾梧芋酗伍撮罢畴眯摄沟零嗜辑营跑侥赚疫膏摹叛吮知蝇搓兆慧摩碧七蛰雇鳞汽灶畸范索拔麓鸿足嚏衬软社瘩掺欢涂坯附名卡召痹桌啦氏吾挪精酚伊峨呻萎世漆虹尽立惟捂馏戈陇下譬贷偿原指像栓三埂加土僵犀约邱间窘瓮萍士辰惨X

文本框

Text1

X

（*）

环境影响经济损益分析一般按以下四个步骤进行：

命令按纽

Command1

2.环境保护行政法规验证

X

（2）规划编制机关在报送审批专项规划草案时，将环境影响报告书一并附送。

2.执行下面的程序，第一行输出结果是___（3）___，第二行输出结果是___（-18）___。

OPtionExplicit

PrivateSubForm_Click（）

DimMAsInteger,NAsInteger,KAsInteger

N=-3

ForM=6To1StepN

M=M+1

N=N-M

K=K+1

NextM

PrintK

PrintN

EndSub

3.执行下面的程序，第一行输出结果是___（626）___，第三行输出结果是___（-298）___。

PrivateSubForm_Click（）

DimNAsInteger,IAsInteger

N=2

ForI=9To1Step-1

CallSub2（I,N）

PrintI,N

NextI

EndSub

PrivateSubSub2（XAsInteger,YAsInteger）

StaticNAsInteger

DimIAsInteger

ForI=3To1Step-1

N=N+X

X=X-1

EndSub

4.执行下面程序后，A（1，3）的值是___

（1）___，A（2，2）的值是___（5）___，A（3，1）的值是___（9）___。

OptionExplicit

PrivateSubForm_Click（）

DimA（3,3）AsInteger,IAsInteger

DimJAsInteger,KAsInteher,NAsInteger

N=9

ForK=5To1Step-1

IfK>=3Then

ForI=1To6-K

A（K-3+I,I）=N

N=N-1

NextI

Else

ForI=1ToK

A（K-I+1,3-I+1）=N

N=N-1

NextI

EndIf

NextK

ForK=1To3

ForI=1To3

PrintA（K,I）;

NextI

Print

NextK

EndSub

5.执行下面的程序，第一行输出结果是___（23）___，第二行输出结果是___（47）___。

OptionExplicit

PrivateSubForm_Click（）

DimAAsInteger

A=2

CallSub1（A）

EndSub

PrivateSubSub1（XAsInteger）

X=X*2+1

IfX<10Then

CallSub1（A）

EndIf

X=X*2+1

PrintX

EndSub

6.本程序用于验证任何一个大于6的偶数均可表示为两个素数之和。

例如，14=3+11、14=7+7。

待验证的偶数从文本框TxtInput输入，所有满足上述条件的素数对都显示在窗体上。

OptionExplicit

PrivateSubForm_Click（）

DimNAsInteger，IAsInteger，JAsInteger

N=___（Val（TxtInput）或Val（TxtInput.Text））___

ForI=3ToN-2Step2

If___（Prime（I））___Then

IfN-I>=IAndPrime（N-1）Then

PrintN;"=";I;"+";N-1

EndIf

EndIf

NextI

EndSub

PrivateFunctionPrime（NAsInteger）AsBoolean

DimIAsInteger，JAsInteger，FlgAsBoolean

Prime=False

ForI=2ToSqr（N）

IfNMODI=0Then___（ExitFor或EndFunction）___

NextI

If___（I>Sqr（N））___ThenPrime=True

EndFunction

7.下面程序是把给定的16进制正整数转换为10进制数。

提示：

一个16进制正整数转换为10进制数的方法是直接用下面的幂级数展开运算而得。

（anan-1…a1）16=an*16n-1+an-1*16n-2+…+a1*160

OptionExplicit

PrivateSubForm_Click（）

DimStAsInteger，DemAsLong

St=InputBox（"输入一个十六进制数"）

Dem=Convert（St）

PrintSt;">=";Dem

EndSub

PrivateFunctionConvert（SAsString）AsLong

DimNAsInteger，IAsInteger，SubstringAsString*1

DimPAslong，KAsLong，Asc1AsInteger

N=___（Len（s））___

P=16^N

ForI=1ToN

P=p/16

Substring=___（Mid（S,I,1））___

SelectCaseSubstring

Case"0"To"9"

K=K+P*Val（Substring）

Case___（"A"To"F"或Else）___

Asc1=Asc（Substring）-Asc（"A"）+10

___（K=K+P*Asc1）___

EndSelect

NextI

___（Convert=K）___

EndFunction

8.下面程序得功能是将无序数组中相同得数只保留一个，其余得删除，并输出经过删除后的数组元素，删除相同数是通过将该数组元素后面的元素在数组内依次前移替换前一个元素的值实现的。

数组各元素的值从文件data.txt中读取。

OptionExplict

OptionBase1

PrivateSubForm_Click（）

DimIAsInteger,JAsInteger,KAsInteger

DimA（）AsInteger,TAsInteger,MAsInteger

Open"c:

\mydocuments\2000test\data.txt"ForInputAs#1

DoWhile___（NotEof

（1））__

I=I+1

RedimPreserveA（I）

Input#1,A（I）

Loop

M=1:

T=___（I或Ubound（A））__

DoWhileM

I=M+1

DoWhileI<=T

IfA（I）=A（M）Then

ForJ=1To___（T-1）__

A（J）=A（J+1）

NextJ

T=T-1

Else

I=___（I+1）__

EndIf

Loop

M=M+1

Loop

RedimPreserveA（T）

ForI=1ToT

PrintA（I）;

NextI

Print

EndSub