二级VB笔试模拟考试试题

荷山中学二级VB笔试模拟试题

(考试时间：60分钟；满分：50分)

班级：姓名：座号：成绩：

注意事项：

一、答卷前考生务必将自己的姓名、准考证号、信息技术考试类型涂写在答题卡上。考试结束，

监考人员将试题卷和答题卡一并收回。

二、先审题后作答，答案一定要填涂在答题卡上，凡是写在试卷上的答案一律无效。

三、试卷上括弧【】内的序号与答题卡的答案序号一致，请选择正确的答案填涂在答题卡的相应位

置。

四、如果要改动答案，必须先用橡皮擦净原来选定的答案，然后再重新填涂。

五、全卷均为单项选择题。

第一部分VB基础知识([1]—[30]每项1分，共30分)

一、变量声明采用的类型说明符中，数据类型为单精度的类型说明符是【1】。

【1】A、％B、一C、！D、#

二、用流惮图(季序框用)来眄述算法,根据框内的条件成立与否决定程序流向的判断框是【2】。

[2]A.||B>||D、//

三、下列选项中，属于面向对象的程序设计语言是【31

【3】A、PASCAL语言B、VisualBasic语言C、机器语言D、汇编语言

四、逻辑表达式的值的类型为141

[4]A、整型B、单精度型C、字符串型D、逻辑型

五、在VB中使用变量前，一般应该先声明变量，一条DIM语句可以定义多个变量，两个变量间应

用【5】分隔。

[5]A、逗号B、冒号C、分号D、空隔符

六、VB的工程文件的扩展名为[61

[6]A、.frmvbpC、.exeD、.doc

七、下图列出了VB工具箱中常用的控件，从左边算第六个控件是【7】控件。

♦匾A国门_1歹6封图"卷白㈢口周日、国1@|1

[7]A、LabelB、TextBoxC、CommandButtonD、PictureBox

八、在Timer控件中，若要设置相邻两次的触发时间为01秒，则Interval属性的值应为【8】。

【8】A、0.1B、1C、10D、100

九、VB允许一行书写多个语句，每两句之间的分隔符为[91

[9]A、逗号B、冒号C、分号D、空隔符

十、表达式4+5\6*7/8Mod9的值是【1()，

[10]A、4B、5C、6D、7

十一、下列选项中，【11】是窗体载入事件过程的过程名。

[11]A、Commandl_Click()B>Form_Load()C、Textl_Click()D、Timerl_Timer()

十二、利用Timer控件实现Label1在窗体上显示的内容从上往下移动，则下列代码中正确的是【12】。

[12]A、Label1.Left=LabelI.Left+50B、Label1.Left=Label1.Left-50

C、Label1.Top=Label1,Top+50D、Label1.Top=Label1.Top-50

十三、若要把文本框Textl中的字体改为楷体，则必须修改属性[13]的设置。

[13]A、EnabledB、FontC>LockedD>Text

十四、为了在按下回车键时执行某个命令按钮的事件过程，需要把该命令按钮的一个属性设置为

True,这个属性是[141

[14]A、ValueB^DefaultC>CancelD、Enabled

十五、下列选项中，不属于文本框Text的事件的选项是【15】。

[151A、ChangeB、GotfocusC、ClickD、Timer

十六、变量名的长度最多不超过[16]个字符。

[16]A、64B、128C、255D、256

十七、下列各属性选项中，不是对象Label的属性的是【17】。

[17]A、CaptionB、FontC、PasswordCharD、Backcolor

十八、执行语句X=Int(10*Rnd()诟整数x的取值范围是【18】。

[18]A、0WXW10B、0VXW10C、0WXV10D,0<X<10

十九、下列关于变量声明中，【19]不能把X,Y都声明为字符串类型。

[19]A、Dimx,yAsStringB>DimxAsString,yAsString

C、Dimx$,y$D、Dimx$,yAsString

二十、VB提供了丰富的数据类型，其中单精度型要占用【20】个字节的存储空间。

[20]A、2B、4C、8D、16

二十一、下列关于VB不同类型的运算符之间的优先次序的描述中，正确的是【21】。

[21]A、字符串运算符>逻辑运算符>关系运算符

B、逻辑运算符>关系运算符>算术运算符

C、关系运算符>算术运算符>字符串运算符

D、算术运算符>关系运算符>逻辑运算符

二十二、下列各选项中，属于合法的VB的变量名的是【22】。

[22]A^ForB^3DC、Numl_2D、Name+3

二十三、用逻辑表达式表示“x不大于15且x不小于10”，正确的是【23】。

【23】A、10<=x<=15B、(10<x)And(xW15)

C、(x210)And(xW15)D、(x>=10)And(x<=15)

二十四、下列各个函数中，函数值不可能为单精度型的是【24】。

[24]A、Abs()B、Sqr()C、Int()D、Rnd()

二十五、下列逻辑表达式中，值为TRUE的是【25】。

【25】A、"abc''>''bc''B、Int(Rnd()*3)>2

C、(1+2<-3)and(4+5>7)D、10Mod3=2

二十六、控件Label的BackColor属性用于设置该对象的【26】。

[26]A、高度B、宽度C、背景色D、前景色

二十七、若要将数值类型(整数或实数)的数据在文本框中输出，则必须先用[27]函数进行类型

的转换。

[27]A、Chr()B、CDbl()C、Str()D、Val()

二十八、如果在OUTPUT模式下打开一个不存在的文件，那么将【28】。

[28]A、弹出出错信息B、创建该顺序文件

C、打开默认的文件D、打开上一次使用过的文件

二十九、用Open语句打开顺序文件操作时，不能使用的方式是【29】。

[29]A、InputB>OutputC、writeD、Append

三十、在VB的“菜单编辑器”中，如果某个顶层菜单项的“标题”栏设置为：新建（&N）,那么

可以使用[30]键打开该项菜单。

【30】A、Ctrl+NB、Alt+NC、Shift+ND、N

第二部分阅读程序，选择输出结果（[31]-[40]第项1分，共10分）

三十一、已知变量a,b,c都是单精度型，执行下面程序段后变量c的值为其中的【31】。

Ifc>athenc=a

Ifc<bthenc=b

[31]A、最大值B、最小值C、中间值D、平均值

三十二、程序代码如下，执行下面程序段后，变量s的值为【32】。

S=0

ForI=1to10step2

S=S+I

NextI

[32]A、55B、25C、50D、30

三十三、有如下程序代码，执行下面程序段后，变量N的值为【33】。

T=1

N=0

DoWhileT<20

N=N+1

T=T+5

Loop

【33】A、3B、4C、5D、20

三十四、有如下程序代码，设有a=2,b=3执行下列语句

a=a+b:b=a-b:a=a-b

后a的值是【34】。

[34]A、-1B、2C、3D、5

三十五、有程序代码如下，执行下面程序段的结果S是求表达式【35】的值。

DimTAsInteger,NAsInteger

DimSAsInteger

S=0:T=1

ForN=1To9

T=-T

S=S+N*T

NextN

【35】A、1-2+3-4+--8+9B、1-2+3-4+-8+9-10

C、-1+2-3+4+-・・+8-9D、-1+2-3+4+・・・+8—9+10

三十六、程序代码如下：

s=1

forI=1to5

s=s*I

nextI

执行后，变量S的值是【36】。

[36]A、5B、15C、32D、120

三十七、程序代码段如上，变量I的值是[37]

[37]A、0B、5C、6D、7

三十八、执行下列程序段后变量k的值是【38】。

k=1

ForI=0to5

k=k*2

NextI

【38】A、12B、32C、64D、120

三十九、执行下面的程序段后，x的值为【39】。

x=5

Fori=1To20Step2

x=x+i\5

Nexti

【39】A、21B、22C、23D、24

四十、在窗体（Name属性为Form1）上有两个文本框（其Name属性分别为Textl和Text2）。

和一个命令按钮（Name属性为command]），两个事件过程如下：

PrivateSubForm」oad（）

Textl.Text=w,

Text2.Text=,M,

EndSub

PrivateSubCommand1_Click（）

a=Text1.Text+Text2.text

Printa

EndSub

运行程序后，在第一个文本框（Textl）和第二个文本框（Text2）中分别输入123和321,然后

单击命令按钮，则输出结果为【40】。

[40]A、444B、321123C、123321D、132231

第三部分补充完整程序代码（【41]-[50]第项1分，共10分）

四H、下列程序代码求：S=n*（n-1）*（n-2）*.......*3*2*I的值，（n值从文本框Txtnum

中输入）请选出正确的内容将程序补充完整。

[程序如下]

PrivateSubForm_Click（）

DimsAsSingle,iAsInteger,nasInteger

n=Txtnum.text

s=[41]

Fori=lTon

s=[42]

Nexti

Form1.Prints

EndSub

[41]A、0B、1C、2D、n

【42】A、iB、s*(l/i)C、s+iD、s*i

四十二、下列程序是从文本框(Txtnuml)中输入一个以秒为单位的时间，将它转化为求小时*分

钟*秒的形式，并在文本框Txtnum2中显示出来。请选出正确的内容将程序补充完整。[程序如下]

PrivateSubCommand1_Click()

Dimn%,hour1%,minute1%,second1%

n=Txtnum.Text

hourl=n\3600

minute1=(nMod3600)\60

second1=[43]

Txtnum2=[44]

EndSub

[43]A、n\3600B、n/60C、n\60D、nMod60

[44]A、hourl小时minute分钟second秒

B、hourl"小时”&minute”分钟“second"秒”

C、hourl&小时&minute&分钟&second&秒

D、hourl&"小时”&minute&"分钟”&second&"秒”

四十三、下列程序从文本框(Textl)中输入一个角度，在标签(Lablel)控件上输出它所在的象限

值。

请选出正确的内容将程序补充完整。[程序代码如下]

PrivateSubForm_Click()

'输入一个角度，确定角度所在的象限

DimangleAsLong,tangle&,cAsString,mAsInteger

angle=Val(Textl.text)

Ifangle>=0Then

tangle=angleMod360

Else

tangle=(-angle)Mod360

tangle=360-tangle

EndIf

m=[45]

SelcetCasem

Case0

c="第一象限角”

Case1

C="第二象限角”

Case2

c="第三象限角”

CaseElse

c="第四象限角”

EndSelect

[46]

EndSub

[45]A^tangle/90B、tangleMod90C、tangle\90D>tangle

[46]A、Label1.Caption=cB、Lblnum2.Caption=cC、Prin