江苏省计算机二级VB笔试题库含答案1

江苏省高等学校非计算机专业学生

计算机基础及应用能力等级考试试卷

二级VisualBasic全真模拟试卷

（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）

说明：

1.本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。

2.选择题用答题卡答题。每一项有A、B.C.D四个可供选择的答案，请选择其中一

个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选

或选错不得分。

3.填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,

不得换行。每填对一个答案得1分，不填或填错不得分。

4.请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正

确。

第一部分计算机基础知识

1.信息处理系统是综合使用信息技术的系统。下面有关信息处理系统的叙述中错误的

是1。

一11信息处理系统从自动化程度来看，有人工的、半自动化的和全自动化的

B.应用领域很广泛。例如银行是一种以感知与识别为主要目的的系统

C.信息处理系统是用于辅助人们进行信息获取、传递、存储、加工处理及控制的

一种系统

D.从技术手段上来看，有机械的、电子的和光学的;从通用性来看，有专片和通用

的

2.下面关于集成电路的叙述中，错误的是2。

A.集成电路是20世纪50年代出现的

B.现代集成电路使用的半导体材料通常是硅或碑化钱

C.集成电路的许多制造工序必须在恒温、恒湿、超洁净的无尘厂房内完成

D.集成电路按用途可分为通用和专用两大类。微处理器和存储器芯片都属于专用

集成电路

3.在通信系统的性能指标中，3是指数据传输中出错数据占被传输数据总数的

比例。

A.信道带宽B.误码率C.数据率D.端-端延

迟

4.以下数据最大的是4。

A.01110110BB.120DC.7DHD.177Q

5.从逻辑功能上来讲，计算机硬件主要包括中央处理器（CPU）、内存储器、外存储器、

输入设备和输出设备等，它们通过5互相连接。

A.总线B.控制线C.数据线D.地址线

6.6接口是,种新的I/O接口，它是一种可以连接多个设备的总线式串行接

口，2.0版的数据传输速率可高达480Mb/s（60MB/S）,最多可以连接127个设备。

A.USBB.IEEE1394C.SCSID.并行

7.下列不属于无线局域网设备的是

A.无线网卡B.蓝牙C.无线HUBD.无线网桥

8.FAT16、FAT32、NTFS是三种不同的文件系统，Windows2000/XP操作系统支持

8,

A.FAT32和FAT16文件系统B.NTFS文件系统

C.FAT32和NTFS文件系统D.FAT16、FAT32和NTFS文件系

统

9.下列关于CD-ROM存储器描述中，错误的是9。

A.CD盘上凹坑内表示0,凹坑外表示1

B.CD盘上记录数据的是一条山里向外连续的螺旋道

C.CD-ROM需要记录的信息实现要制作到光盘上，用户不能抹除，也不能再写入

D.CD-ROM成本低，可靠性好，非常耐用，即使盘面有指纹或灰尘存在，数据仍

能读出

10.10属于文字处理软件。

A.PageMarker和WordB.Word和3DMAX

C.Photoshop和WPSD.Paintbrush和Flash

11.下列属于自由软件的操作系统是11。

A.UNIXB.OS/2C.WINDOWSD.LINUX

12.下列关于操作系统任务管理的说法，错误的是12。

A.Windows操作系统支持多任务处理

B.分时是指将CPU时间划分成时间片，轮流为多个程序服务

C.分时处理要求计算机必须配有多个CPU

D.并行处理可以让多个处理器同时工作，提高计算机系统的效率

13.分析某个算法的优劣时♦，从需要占用的计算机资源角度，应考虑的两个方面是

A.正确性和简明性B.空间代价和时间代价

C.可读性和开放性D.数据复杂性和程序复杂性

14.下列关于病毒的描述中，正确的是14。

A.计算机病毒也称为木马

B.邮件病毒很厉害，只要收到带病毒的邮件，不管看不看，计算机都会染上病毒

C.如果一台计算机染上了病毒，它旁边的计算机很有可能被传染，因此两台计算

机之间要有一定的距离

D.计算机病毒是一些人蓄意编制的一种寄生性的计算机程序

15.不能作为广域网的数据传输介质的是15。

A.电话线B.微波C.双绞线D.光缆

16.下面对于WWW和Email的说法中，错误的是16。

A.网页是一种采用HTML超文本标记语言描述的超文本文档,HTML文档包括头

部和正文两大部分

B.电子邮件一般由三个部分组成：邮件的头部、邮件的正文、邮件的附件

C.现在的电子邮件正文中只能发送普通文本，图片等多媒体信息只能在附件中才

能发送

D.Web是按客户/服务器模式工作的

17.下面关于汉字编码标准的叙述中，正确的是17。

A.同一个汉字的不同造型（如宋体、楷体等）在计算机中的内码不同

B.Unicode是我国最新发布的也是收字最多的汉字编码国家标准

C.GB18030与GB2312和GBK汉字编码标准不兼容

D.在GB18030汉字编码国家标准中，共有2万多个汉字

18.适用于交互式多媒体应用，包括虚拟现实、远程教学、交互式电视等的视频压缩标

准是18°

A.MPEG-1B.MPEG-4C.MPEG-3D.MPEG-2

19.下列信息系统中19属于三次信息的处理系统。

A.管理层业务处理系统B.信息分析系统

C.专家系统D.信息检索系统

20.关于Excel97/2000/2003的数据筛选，下列说法中正确的是20。

A.筛选后的表格中只含有符合筛选条件的行，其它行被删除

B.筛选条件只能是一个固定的值

C.筛选后的表格中只含有符合筛选条件的行，其它行被暂时隐藏

D.筛选条件不能由用户自定义，只能由系统确定

第二部分VisualBasic程序设计

一、选择题(用答题卡答题，答案依次填在21〜30答题号内)

21.创建应用程序的界面时，在窗体上设置了一个文本框，运行程序后，文本框没有出

现在窗体上，可能的原因是。

A.该文本框的Value属性被设置为False

B.该文本框的Enabled属性被设置为False

C.该文本框的Visible属性被设置为False

D.该文本框的Default属性被设置为True

22.卜列不是VisualBasic事件名称的是22。

A.ChangeB.ClickC.ScrollD.ChDir

23.由系统提供的，可在任何一个VB程序中随时使用的程序段的函数是23。

A.内部函数B.公共函数C.逻辑函数D.关系函数

24.SQL缩写所表小的意思是24。

A.开放式容器B.结构查询语言

C.数据库联接D.数据库编程

25.Write#语句与Print#语句功能基本相同，它们之间的主要差别之一正确的是

25____。

A.Write#语句写数值型的，而Print#语句写非数值型的

B.如果是字符串数据，Write#语句写数据后在其两边加双引号，而Print#语句没

C.Write#语句按紧凑格式写文件，而Print#语句按标准格式写文件

D.Write#语句按标准格式写文件，而Print#语句按紧凑格式写文件

26.Datetime是Data类型的变量，以下赋侑语句中错误的是26。

A.Datetime=#5/8/03#B.Datetime=#September1,2003#

C.Datetime=#10:21:00AM#D.Datetime="5/6/03H

27.运行下列程序：

PrivateSubForm_Click()

DimsumAsInteger

DimiAsInteger

sum=0

Fori=12.4To3.1Step-3.8

sum=sum+i

Nexti

Dcbug.Printsum

EndSub

单击窗体后，则在立即窗口上输出结果是

A.15B.-0.7C.24D.0

28.运行下列程序：

PrivateSubCommand1_Click()

DimxAsInteger,nAsInteger

n=0

Do

n=n+2

x=x+n

LoopWhilen<10

Debug.Printx

EndSub

单击Commandl命令按钮后，则在立即窗口上输出结果是是o

A.2B.10C.12D.30

29.运行下列程序:

PrivateSubCommand1_Click()

a=100

b=24

a=aModb

b=b\a

a=b-a

Debug.Printa

EndSub

单击Command1命令按钮后，则在立即窗口上输出结果是29

A.2B.24C.50D.100

30.下列程序运行后，信息框显示的内容是—30

PrivateSubCommand1_Click()

DimsiAsString

Dims2AsInteger

si=HHello-World,2004n

s2=Len(s1)+InStr(l,si,n2")

MsgBoxs2

EndSub

A.Hello-WorldB.2003C.16D.29

二、填空题（请将答案填写在答题纸的相应答题号内，每个答案只占•行）（每空1分,

共30分）

1.freeze函数的作用是返回一个可供Open语句使用的，整型数据的（1）。

2.执行MyResult=12.6Mod5后，变量MyResult将返回结果是（2）。

3.菜单控件的Checked属性用于将复选标记放到菜单项的左侧，以便表示菜单项的

（3）o

4.数组组中的控件通过索引值来区别，设置索引号的属性是（4）o

5.InputBox函数来返回值的类型是」

6.运行下列程序：

PrivateSubForm_Click()

Sum=0

Fori=1To100

IfMid(CStr(i),1,l)=,,l,,Then

Sum=Sum+1

EndIf

Nexti

PrintSum

EndSub

单击窗体后，则在窗体上显示的结果是一(6)。

7.运行下列程序：

PrivateSubCommandl_Click()

b=1

DoWhileb<20

b=b*b+1

a=a+b

Loop

MsgBoxa

EndSub

单击Commandl命令按钮后，则弹出的消息对话框中显示」

8.窗体上有4个文本框控件数组textl()和一个命令按钮，程序运行前如图1所示，程

序运行后如图2所示。给定的程序不完整，将程序补充完整。

图1图2

Dimx(3)AsInteger

PrivateSubCommandl_Click()

Fori=0To3

x(i)=(8)

Nexti

Fori=0ToUBound(x)-1

Forj=iToUBound(x)

If(9)Then

t=x(i)

x(i)=x(j)

x(j)=t

EndIf

Nextj

Nexti

Fori=0To3

Textl(i).Text=Str(x(i))

Nexti

EndSub

9.下列程序是将两个文本框(tetxl和text2)的内容进行组合，组合后的结果在图片框(Piel)

显示出来，如图3所示。给定的程序不完整，将程序补充完整。

图3

PrivateSubCommand1_Click()

DimsiAsString,s2AsString

si=Text1.Text

s2=Text2.Text

Fori=(10)

s3=s3+Mid(sl,i,1)+Mid(s2,i,1)

Nexti

pic1.Prints3

EndSub

10.下列程序的功能是将数组中的奇数相加。给定的程序不完整，将程序补充完整。

OptionBase1

PrivateSubfbnn_Click()

DimkAsInteger

DimTotalAsInteger

Dimn

n=Array(l,2,3,4,5,6,7,8,9,10)

Fork=1ToUBound(n)

If(11)Then

Total=Total+n(k)

EndIf

Nextk

PrintTotal

EndSub

11.窗体.上有三个文本框Textl控件数组，两个按钮Commandl和Command2,一个图

片框Piclo程序功能是解一个一元二次方程(办2+云+c=0)。程序运行后如图4所示。

给定的程序不完整，将程序补充完整。

图4

PrivateSubCommand1_Click()

DimaAsSingle,bAsSingle,cAsSingle

DimxlAsSingle,x2AsSingle

DimstAsSingle

a=Val(Textl(O).Text)

b=VaI(Textl(1).Text)

c=Val(Textl(2).Text)

Ifa<>0Then

col=(12)

st=-b/(2*a)

If(13)Then

xl=st+Sqr(col)/(2*a)

x2=st-Sqr(col)/(2*a)

Piel.Print”方程有两个实根”;xl,x2

Elselfcol=0Then

PicLPrint”方程有两个相等实根”;st

Else

xl=Sqr(-col)/(2*a)

Piel.Print”方程有两个虚根”;st;”+i”;xl,st;xl,

EndIf

Else

If(14)Then

rootl=-b/c

Piel.Print”方程仅有一个根”;rootl

Else

Piel.Print”方程无意义”

EndIf

EndIf

EndSub

PrivateSubCommand2click()

Textl(O).Text=,n,

Textl(l).Text=,n,

Textl(2).Text=

Piel.(15)

EndSub

12.下列程序运行后如图5所示。给定的程序不完整，将程序补充完整。

图5

PrivateSubform_Click()

k=7

Fori=5To1Step-2

PrintTab(k);(16)

k=k+1

Nexti

EndSub

13.运行下列程序：

PrivateSubCommand1_Click()

DimsAsInteger,iAsInteger

s=0

Fori=5.8To0.3Step-1.3

s=s+1

Nexti

Prints

EndSub

单击Commandl命令按钮后，则在窗体上显示的结果是(17)。

14.下列程序中有一个按钮Commandl,一个文本框textl,其属性MultiLine=True。

当单击按钮后，文本框显示(18)行数据,其中第二行和第三行的数据分别是(19)

和(20)。

OptionExplicit

PrivateSubCommand1_Click()

DimaAsSingle,iAsInteger

a=1.2

Fori=1To3

a=a*i

Printfun1(a)

Nexti

EndSub

PrivateFunctionfunl(tAsSingle)AsSingle

StaticyAsSingle

y=y+t

t=y+i

funl=t

EndFunction

15.要打印出50个在-100〜100之间不同的随机整数，并找出第儿个是最大数。给定

的程序不完整，将程序补充完整。

OptionBase1

PrivateSubCommand1_C1ick()

Dimb()

Randomize

(21)

Do

x=Rnd

Ifx>0.5Theny=1Elsey=-l

t=y*Int(Rnd*100)+1

(22)

DoWhilek<j

Iftob(k)Then

k=k+1

Else

ExitDo

EndIf

Loop

Ifk=jThen

ReDimPreserveb(k)

b(k)=t

Printb(k);

j=j+1

EndIf

LoopUntilj>50

Print

(23)

Max=b(l)

Forn=2To50

Ifb(n)>MaxThen

(24)

p=n

EndIf

Nextn

Print”最大数是：”;Max

Print”位置在第”;p;“个“

EndSub

16.有下列程序，运行后变量xl、yl和zl的结果分别是(25)、(26)和(27)。

PrivateSubfiinl(s,m,n)

s=m+1

m=n+2

n=s+3

EndSub

PrivateSubfbrm_Click()

Dimxl,yl

xl=1

yl=1

zl=1

Callfunl(xl,yl+1,(zl))

Debug.Printxl;yl;zl

EndSub

17.编写一过程把C盘中的Config.sys文件内容读出，并在文本框中显示出来。在窗体

Forml上建立一个文本框Textl,将其MuhiLine属性设置为True,ScrollBars属性设置为

3-Both,给定的程序不完整，将程序补充完整。

OptionExplicit

PrivateSubForm_Click()

DimchiAsString,fhAsInteger

DimStrAsString

fh=(28)

OpennC:\Config.sys"ForInputAsfh

DoWhileNotEOF((29))

LineInput#fn,ch1

Str=Str+chl+vbCrLf

Loop

Text1.Text=(30)

EndSub

二级VisualBasic全真模拟试卷一参考答案

一、选择题：

1.B

2.D

3.B

4.C

5.A

6.A

7.B

8.D

9.A

10.A

11.D

12.C

13.B

14.D

15.C

16.C

17.D

18.B

19.B

20.C

21.C

22.D

23.A

24.B

25.B

26.B

27.C

28.D

29.A

30.D

二、填空题：

(1)文件号

(2)3

(3)开/关

(4)Index

(5)字符串

(6)12

(7)33

(8)Val(Textl(i).Text)

(9)x(i)>x(j)

(10)Len(sl)To1Step-1

(11)n(k)Mod2<>0

(12)bA2-4*a*c

(13)col>0

(14)b<>0

(15)Cis

(16)String(i,"*")

(17)7

(18)2.2

(19)6.6

(20)26.4

(21)j=l

(22)k=l

(23)p=l

(24)Max=b(n)

(25)3

(26)1

(27)1

(28)FreeFile

(29)fn

(30)Str

江苏省高等学校非计算机专业学生

计算机基础及应用能力等级考试试卷

二级VisualBasic全真模拟试卷二

（本试卷包括计算机基础知识部分和程序设计部分，考试时间共120分钟）

说明：

1.本试卷满分为60分，分选择题和填空题，试卷不分A、B类型。

2.选择题用答题卡答题.每一项有A、B、C、D四个可供选择的答案，请选择其中一

个你认为正确的答案，用HB铅笔涂写在答题卡的相应答题号内。每选对一项得1分，不选

或选错不得分。

3.填空题用答题纸答题。请将答案填写在答题纸的相应答题号内，每个答案只占一行,

不得换行。每填对一个答案得1分，不填或填错不得分。

4.请认真填写并仔细核对答题卡和答题纸上的学校名称、准考证号和姓名是否填写正

确。

第一部分计算机基础知识

1.下列关于“信息系统”的叙述中错误的是1。

A.图书馆是一种以信息收藏和检索为主的系统

B.雷达是一种以感知与识别为主要目的的系统

C.信息系统可以有人工的，也可以有自动的

D.电视系统是一种双向的、点到点的信息系统

2.下列叙述中，错误的是2。

A.微电子技术以集成电路为核心

B.硅是微电子产业中常用的半导体材料

C.现代微电子技术已经用神化钱取代了硅

D.制造集成电路都需要使用半导体材料

3.下面对于多路复用技术的说法中，正确的是3。

A.将同一信号沿多条线路传输，以提高可靠性

B.将同一信号多次传输，以提高正确率

C.将多路信号沿同一条线路传输，以提高利用率

D.可分为时分和频分多路复用两种

4.十进制算式3x512+7x64+5的运算结果对应的二进制数是一。

A.11111101001B.11111000101

C.11111100101D.11000111101

5.从逻辑功能上来讲，计算机硬件主要包括5、内存储器、外存储器、输入设

备和输出设备等，它们通过总线互相连接。

A.中央处理器B.控制器C.运算器D.寄存器

6.现在PC机上常用的总线是1991年开始使用的6局部总线。

A.ISAB.EISAC.PCID.AGP

7.7文档最重要的特性是它能支持超链。链源可以是文本中的任何•个字、词

或句子，甚至可以是一幅图象。链宿可以是另一个Web服务器上的某个信息资源，也可以

是文本内部标记书签的某个地方。

A.TELNETB.HTMLC.URLD.WWW

8.CPU中有一个程序计数器（又称指令计数器），它用于存放8。

A.下一条要执行的指令的内存地址B.正在执行的指令的内容

C.下一条要执行的指令的内容D.正在执行的指令的内存地址

9.关于PC机组成，下列说法错误的是9。

A.CPU和存储器芯片分别通过主板上的CPU插座和存储器插座安装在主板上

B.PC机常用的外围设备主要通过一些扩充卡（如声音卡、视频卡等）与主板相

连

C.CRT显示器通过插入AGP插槽的图形卡与主板相连

D.扩充卡的功能不能集成在主板上

10.10属于绘图软件。

A.Word和FrameMakerB.AutoCAD和Foxmail

C.Photoshop和CoreDrawD.PageMaker和Dreamweaver

11.下面对于操作系统的一些说法，正确的是11。

A.文件管理可以实现文件的共享、保密和保护

B.“虚拟内存”其实是外存

C.用户必须了解设备及接口的技术细节才能使设备和计算机协调工作

D.作业管理的任务主要是管理内存资源的合理使用

12.下面关于Windows的说法中，错误的是12。

A.Windows采用并发多任务方式支持系统中多个任务的执行

B.Windows可以在任何一台计算机上运行

C.Windows2000server不是目前Windows系列操作系统的最新版本

D.WindowsXP既适合家庭用户，也适合商业用户

13.实现算法所需的存储单元多少称为算法的13。

A.可实现性B.困难度C.空间复杂度D.时间复杂

度

14.适用于DVD、高清晰度电视的视频压缩标准是14。

A.MPEG-4B.MPEG-1C.MPEG-3D.MPEG-2

15.目前我国家庭计算机用户接入互联网的下述几种方法中，最快的是15。

A.电话拨号B.ADSLC.一线通D.光纤入户

16.已知接入Internet网的计算机用户为jkf,而连接的服务商主机名为,则

他相应的E-mail地址为16。

A.@jkfB.jkf@

C.@D.jkf.seu@

17.按照汉字的“输入-处理今输出打印”的处理流程，不同阶段使用的汉字编码分别

对应为17。

A.国标码少交换码今字形码B.输入码今国标码玲机内码

C.输入码玲机内码分字形码D.拼音码少交换码9字形码

18.下列关于图像的说法，错误的是18。

A.尺寸大的彩色图片数字化后，其数据量必定大于尺、J.小的图片的数据量

B.图像的数字化过程大体可分为四步：扫描、取样、分色、量化

C.像素是构成图像的基本单位

D.黑白图像或灰度图像只有一个位平面

19.计算机信息系统（简称“信息系统”）是一类以提供信息服务为主要目的的数据密

集型、人机交互的计算机应用系统。在下列有关信息系统的叙述中，错误的是19。

A.在信息系统中，绝大多数数据是持久的，不随程序运行的结束而失效

B.信息系统开发方法有多种，例如生命周期法、原型法等

C.MRP【1的英文说法是MaterialRequirementPlanningII,制造业物料需求计划

II

D.电子商务，简称EC,是指对整个贸易活动实现电子化

20.在使用Excel97/2000/2003处理数据时，下列叙述中正确的是20

A.单元格的引用分为绝对引用和相对引用两种

B.一个工作表最多有.65536行，256列

C.一个工作簿中可以无工作表

D.在Excel中输入公式后，该表达式的计算结果就被存储在单元格中

第二部分VisualBasic程序设计

一、选择题(用答题卡答题，答案依次填在21〜30答题号内)

21.若需要在同一窗口内安排两组相互独立的单选按钮(OptionButton),适当的控件将

它们分隔开。下列不能将单选按钮分组的控件是21。

①TexBox②PictureBox③Image④Frame⑤ListBox

A.①②③B.①③⑤C.@(4XS)D.@@(5)

22.VisualBasic指定参数x的自然对数值，返回一个Double的函数是22。

A.Log(x)B.Lg(x)C.Exp(x)D.Ln(x)

23.运行程序时，显示下图1内容的语句是23。

A.b=InputBox("输入一个整数",2003,"程序示例")

B.b=lnputBox("程序示例"，"输入个整数",2003)

C.b=MsgBox("输入•个整数",2003,"程序示例")

D.b=MsgBox("程序示例"，"输入一个整数",2003)

图1

24.各种运算符间的优先顺序，从高到低是24。

A.比较运算符一算术运算符一逻辑运算符

B.比较运算符T逻辑运算符T算术运算符

C.算术运算符-比较运算符一逻辑运算符

D.算术运算符一逻辑运算符一比较运算符

25.将表达式转换为Double类型的函数是25。

A.CboolB.CbyteC.CdblD.Cstr

26.运行下列程序：

PrivateSubForm_Click()

DimsumAsDouble,iAsInteger

Fori=1To20

IfiMod5=0Then

sum=sum+i

EndIf

Nexti

Printsum

EndSub

单击窗体后，则在窗体上显示的结果是一260

A.50B.100C.4D.5050

27.如果在立即窗口中执行以下操作：

x=l<CR>'vCR>表示回车，下同

y=2<CR>

Printx>y<CR>

则输出结果是一270

A.-1B.1C.FalseD.True

28.运行下列程序：

PrivateSubForm_Click()

a=32:b=5

Do

a=a/2

b=b+1

LoopWhileb<10

Printa

EndSub

单击窗体后，则在窗体上显示的结果是.28。

A.1B.2C.5D.11

29.运行下列程序：

OptionBase1

PrivateSubFonn_Click()

y=43

x=Array(21,4,50,18,23,44,87,32,67,70)

Fori=1To10

Ifx(i)<yThen

z=x(i)+1

y=x(i)

Else

z=z+y

EndIf

Nexti

Printz

EndSub

单击窗体后，则在窗体上显示的结果是.290

A.43B.21C.37D.44

30.运行下列程序：

PrivateSubfonTi_Click()

t=Val(InputBox("请输入一个数：”))

x=t-1

SelectCaset

Case1To10

y=4*t

CaseIs>10

y=3*t

CaseElse

y=2*t

EndSelect

Printx;y

EndSub

运行时，从键盘输入4,输出的结果是30°

A.316B.44C.34

D.410

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

共30分）

1.在创建菜单时，如果命令在完成之前还需要附加信息，则在其名称后面应当有一个

（1）,

2.VB6.0集成开发环境中，功能键Ctrl+F5的功能是对（2）。

3.在VB6.0中定义变量时，通过在变量名后加一个用于规定变量类型的说明字符，来

规定变量的类型。当变量名后加时，则表明该变量为（3）。

4.将表达式的结果为非零的值返回True；否则返回F表se的函数是一（4）。

5.为了在TextBox控件中显示多行文本，要将（5）属性设置为True。

6.运行下列程序,单击窗体后，则在窗体上显示的第四行和最后一行的结果分别是」

和⑺。

PrivateSubForm_Click（）

n=0

a=1:b=2:c=3

Fori=1To4

Forj=0Toi

a=b+1:b=c+2:c=a+2

n=n+1

Printc

Nextj

Nexti

Printn

EndSub

7.在窗体有有一文本框，名为textl,则执行如下事件过程后，文本框中的输出为

（8）o

PrivateSubfbrm_Click（）

Fori=1To3

a=1

Forj=1To3

a=a+4

Nextj

Nexti

Text1.Text=Str（a）

EndSub

8.下列程序运行后，在窗体上打印的结果是

PrivateSubtest(a,b,c)

a=a+l:b=b+2:c=c+3

EndSub

PrivateSubCommandl_Click()

x=1:y=2:z=3

Calltest(x,y+3,⑵)

Print"Main:”；x;y;z

EndSub

9.下列程序的执行结果是(10)。

PrivateSubForm_Click()

s=50:n=2

Do

s=s-n

n=n+1

LoopUntiln>8

Prints

EndSub

10.运行下列程序：

PrivateSubForm_Click()

Do

ForI=1To100

m=Int(Rnd*100)+1

SelectCasem

Case13:ExitFor

Case78:ExitDo

EndSelect

n=n+1

NextI

Loop

Printm

EndSub

单击窗体后，则在窗体上显示的结果是(11)。

11.下列程序的功能是计算两个自然数的最大公约数，如图2所示。给定的程序不完整,

将程序补充完整。

图2

PrivateSubCommand1Click()

DimxAsLong,yAsLong,iAsLong

x=Val(Textl.Text)

y=Val(Text2.Text)

Text3.Text=Str((12))

EndSub

Functionfunl(aAsLong,bAsLong)AsLong

DimrAsLong

DimtAsLong

If(13)Then

t=a

a=b

b=t

EndIf

r=aModb

DoWhiler<>0

a=b

b=r

r=aModb

Loop

(14)

EndFunction

12.试求出所有满足下述条件的二位数：当它们乘以数字2,3,4,5,6,7,8,9时,

其数字之和不变。给定的程序不完整，将程序补充完整。

PrivateSubCommand1_Click()

DimmAsInteger,sumAsInteger

DimaAsInteger,bAsInteger,cAsInteger

Fora=1To9

Forb=(15)

(16)

Forc=2To9

m=c*(a*10+b)

sum=0

Do

sum=sum+mMod10

m=m\10

LoopWhilem>0

If(17)Thenfig=0:ExitFor

Nextc

If(18)Then

Printa;b

EndIf

Nextb

Nexta

EndSub

13.下列程序的功能是计算圆周率开（计算精度到第n项减1的绝对值小于IO-'为止）。请完善下列

程序。

Opti