大学-VB期末考试试题

[第1题]以下合法的VisualBasic标识符是

A)ForLoop

B)Const

C)9abc

D)a#x

[答案]A

[第2题]在设计阶段，当双击窗体上的某个控件时，所翻开的窗口是(

)

A)工程资源管理器窗口

B)工具箱窗口

C)代码窗口D)属性窗口

[答案]C

[第3题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

DimaAsInteger,sAsInteger

a=8

s=1

Do

s=s+a

a=a－1

LoopWhilea<=0

Prints;a

EndSub

程序运行后，单击命令按钮，那么窗体上显示的内容是

A〕79B〕340

C〕97D〕死循环

[答案]C

[第4题]有如下程序

a$="China"

b$=Ringht$(a$,3):c$=String$(3,b$)

Printc$

End

运行后输出的结果是

。

A〕Chi

B〕aaa

C〕iii

D〕ina

[答案]C

[第5题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

DimnumAsInteger

num=1

DoUntilnum>6

Printnum;

num=num+2.4

Loop

EndSub

程序运行后，单击命令按钮，那么窗体上显示的内容是

A〕13.45.8

B〕135

C〕147

D〕无数据输出

[答案]B

[第6题]设有以下循环结构

Do

循环体

LoopWhile<条件>

那么以下表达中错误的选项是

A〕假设"条件"是一个为0的常数，那么一次也不执行循环体

B〕"条件"可以是关系表达式、逻辑表达式或常数

C〕循环体中可以使用ExitDo语句

D〕如果"条件"总是为True，那么不停地执行循环体

[答案]A

[第7题]设窗体上有一个文本框，名称为text1,程序运行后，要求该文本框不能接受键盘输入，但能输出信息，以下属性设置正确的选项是：

A)text1.maxlength=0

B)text1.enabled=false

C)text1.visible=false

D)text1.width=0

[答案]B

[第8题]以下能在窗体Form1的标题栏中显示"VisualBasic窗体"的语句是

A)Form1.Name="VisualBasic窗体"

B)Form1.Title="VisualBasic窗体"

C)Form1.Caption="VisualBasic窗体"

D)Form1.Text="VisualBasic窗体"

[答案]C

[第9题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

x=InputBox("Input")

SelectCasex

Case1,3

Print"分支1"

CaseIs>4

Print"分支2"

CaseElse

Print"Else分支"

EndSelect

EndSub

程序运行后，如果在输入对话框中输入2，那么窗体上显示的是

A〕分支1

B〕分支2

C〕Else分支

D)程序出错

[答案]C

[第10题]以下关于MsgBox的表达中，错误的选项是

A〕MsgBox函数返回一个整数

B)通过MsgBox函数可以设置信息框中图标和按钮的类型

C)MsgBox语句没有返回值

D)MsgBox函数的第一个参数是一个整数，该参数只能确定对话框中显示的按钮数量

[答案]D

[第11题]在窗体上画一个名称为Timer1的计时器控件，要求每隔0.5秒发生一次计时器事件，那么以下正确的属性设置语句是

A〕Timer1.InterVal=0.5

B)Timer1.Interval=5

C)

Timer1.Interval=50

D)Timer1.Interval=500

[答案]D

[第12题]在VisualBasic中通过(

)属性来设置字体的颜色。

A〕FontColor

B〕ClipControl

C〕BackColor

D〕ShowColor

[答案]A

[第13题]以下表达中错误的选项是

A〕事件过程是响应特定事件的一段程序

B〕不同的对象可以具有相同名称的方法

C〕对象的方法是执行指定操作的过程

D〕对象事件的名称可以由编程者指定

[答案]D

[第14题]设有如下程序:

PrivateSubCommand1_Click()

DimcAsInteger,dAsInteger

c=4

d=InputBox("请输入一个整数")

DoWhiled>0

Ifd>cThen

c=c+1

EndIf

d=InputBox("请输入一个整数")

Loop

Printc+d

EndSub

程序运行后,单击命令按钮如果在输入对话框中依次输入1、2、3、4、5、6、7、8、9、0,那么输出结果是:

A)12

B)11

C)10

D)9

[答案]D

[第15题]当一个复选框被选中时，它的Value属性的值是

A)3B)2C)1D)0

[答案]C

[第16题]表达式5Mod3+3\5*2的值是

A)0

B)2

C)4

D)6

[答案]B

[第17题][标题]

设x=4,y=8,z=7，以下表达式的值是

x<yAnd(Noty>z)Orz<x

A)1

B)-1

C)True

D)False

[答案]D

[第18题][标题]

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

a$="VisualBasic"

PrintString(3,a$)

EndSub

程序运行后，单击命令按钮，在窗体上显示的内容是

A〕VVV

B)Vis

C)sic

D)11

[答案]A

[第19题]设有如下程序段：

x=2

Fori=1To10Step2

x=x+i

Next

运行以上程序后，x的值是

A)26

B)27

C)38

D)57

[答案][第20题][标题]

执行如下两条语句，窗体上显示的是

a=9.8596

PrintFormat(a,"$00,00.00")

A)0,009.86

B)$9.86

C)9.86

D)$0,009.86

[答案]D

[第21题]在窗体上画一个名称为Command1的命令按钮，并编写如下程序：

PrivateSubCommand1_Click()

DimxAsInteger

StaticyAsInteger

x=10

y=5

Callf1(x,y)

Printx,y

EndSub

PrivateSubf1(ByRefx1AsInteger,y1AsInteger)

x1=x1+2

y1=y1+2

EndSub

程序运行后，单击命令按钮，在窗体上显示的内容是

A)10

5

B)12

5

C)10

7

D)12

7

[答案]D

[第22题]阅读程序

OptionBase1

PrivateSubForm_Click()

Dimarr,Sum

Sum=0

arr=Array(1,3,5,7,9,11,13,15,17,19)

Fori=1To10

Ifarr(i)/3=arr(i)\3Then

Sum=Sum+arr(i)

EndIf

Nexti

PrintSum

EndSub

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

A〕13

B〕14

C〕27

D〕15

[答案]C

[第23题]在VisualBasic设计界面中不能隐藏的窗口是(

)。

A〕工程窗口

B〕属性窗口

C〕立即窗口

D〕窗体窗口

[答案]A

[第24题]以下可以构成语句的一项为哪一项(

)。

A〕对象名.属性

B〕对象名.方法名

C〕对象名.事件名

D〕对象名.函数名

[答案]B

[第25题]以下不是VisualBasic的特点的选项是(

)。

A〕可视编程

B〕算法设计

C〕事件驱动

D〕面向对象

[答案]B

[第26题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

StaticxAsInteger

Cls

Fori=1To2

y=y+x

x=x+2

Next

Printx,y

EndSub

程序运行后，连续三次单击Command1按钮后，窗体上显示的是

A)42

B)1218

C)1230

D)46

[答案]B

[第27题]在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，那么每隔一秒钟在文本框中显示一次当前的时间。以下是实现上述操作的程序：

PrivateSubCommand1_Click()

Timer1._________

EndSub

PrivateSubTimer1_Timer()

Text1.Text=Time

EndSub

在______处应填入的内容是

A)Enabled=TrueB)Enabled=FalseC)Visible=TrueD)Visible=False

[答案]A

[第28题]设有如下程序：

PrivateSubCommand1_Click()

DimsumAsDouble,xAsDouble

sum=0

n=0

Fori=1To5

x=n/i

n=n+1

sum=sum+x

Next

EndSub

该程序通过For循环计算一个表达式的值，这个表达式是

A〕1+1/2+2/3+3/4+4/5B〕1+1/2+2/3+3/4

C〕1/2+2/3+3/4+4/5D〕1+1/2+1/3+1/4+1/5

[答案]C

[第29题]在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

Forn=1To20

IfnMod3<>0Thenm=m+n\3

Nextn

Printn

EndSub

程序运行后，如果单击命令按钮，那么窗体上显示的内容是

A〕15B〕18C〕21D〕24

[答案]C

[第30题]在窗体上画两个滚动条，名称分别为Hscroll1、Hscroll2；六个标签，名称分别为Label1、Label2、Label3、Label4、Label5、Label6，其中标签Label4~Label6分别显示"A"、"B"、"A*B"等文字信息，标签Label1、Label2分别显示其右侧的滚动条的数值，Label3显示A*B的计算结果。如下图。当移动滚动框时，在相应的标签中显示滚动条的值。当单击命令按钮"计算"时，对标签Label1、Label2中显示的两个值求积，并将结果显示在Label3中。以下不能实现上述功能的事件过程是

A〕PrivateSubCommand1_Click()

Label3.Caption=Str(Val(Label1.Caption)*Val(Label2.Caption))

EndSub

B〕PrivateSubCommand1_Click()

Label3.Caption=HScroll1.Value*HScroll2.Value

EndSub

C〕PrivateSubCommand1_Click()

Label3.Caption=HScroll1*HScroll2

EndSub

D〕PrivateSubCommand1_Click()

Label3.Caption=HScroll1.Text*HScroll2.Text

EndSub

[答案]D

[第31题]在窗体〔名称为Form1〕上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写一个事件过程。程序运行以后，如果在文本框中输入一个字符，那么把命令按钮的标题设置为"计算机等级考试"。以下能实现上述操作的事件过程是：

A)PrivateSubText1_Change()

Command1.Caption="计算机等级考试"

EndSub

B)PrivateSubCommand1_Click()

Caption="计算机等级考试"

EndSub

C)PrivateSubForm1_Click()

Text1.Caption="计算机等级考试"

EndSub

D)PrivateSubCommand1_Click()

Text1.Text="计算机等级考试"

EndSub

[答案]A

[第32题]设a=5,b=4,c=3,d=2，以下表达式的值是3>2*bOra=cAndb<>cOrc>d

A)1

B)True

C)False

D)2

[答案]B

[第33题]设a="MicrosoftVisualBasic",那么以下使变量b的值为"VisualBasic"的语句是

A)b=Left(a,10)B)b=Mid(a,10)C)b=Right(a,10)D)b=Mid(a,11,10)

[答案]B

[考点]

[第34题][标题]

假定有如下的窗体事件过程：

PrivateSubForm_Click()

a$="MicrosoftVisualBasic"

b$=Right(a$,5)

c=Mid(a$,1,9)

MsgBoxa$,34,b$,c$,5

EndSub

程序运行后单击窗体，那么在弹出的信息框中的标题栏中显示的信息是：

A)MicrosoftVisualB)MicrosoftC)BasicD)5

[答案]B

[考点]

[第35题][标题]

设a="a",b="b",c="c",d="d",执行语句x=Iif((ad),"A","B")后，x的值为：

A)"a"B)"b"C)"B"D)"A"

[答案]D

[考点]

[第36题][标题]

为了使命令按钮(名称为Command1)右移200，应使用的语句是

A)Command1.Move-200B)Command1.Move200

C)Command1.Left=Command1.Left+200D)Command1.Left=Command1.Left-200

[答案]C

[考点]

[第37题][标题]

)在窗体上画一个文本框，然后编写如下事件过程：

PrivateSubForm_Click()

x=InputBox("请输入一个整数")

Printx+Text1.Text

EndSub

程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击"确定"按钮后，在窗体上显示的内容是：

A)123B)456C)579D)123456

[答案]D

[考点]

[第38题][标题]

在窗体上画一个名称为Command1的命令按钮，然后编写如下代码：

OptionBase1

PrivateSubCommand1_Click()

d=0

c=10

x=Array(10,12,21,32,24)

Fori=1To5

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d－c

EndIf

Nexti

Printd

EndSub

程序运行后，如果单击命令按钮，那么在窗体上输出的内容为

A〕89B〕99C〕23D〕77

[答案]C

[考点]

[第39题][标题]

设有如下通用过程:

PublicSubfun(a()AsInteger,xAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮,然后编写如下事件过程:

PrivateSubCommand1_Click()

Dimarr(5)AsInteger,nAsInteger

Fori=1To5

arr(i)=i+i

Next

funarr,n

Text1.Text=Str(n)

EndSub

程序运行后,单击命令按钮,那么在文本框中显示的内容是

A)30

B)25

C)20

D)15

[答案]A

[考点]

[第40题][标题]

设有如下通用过程：

PublicFunctionf(xAsInteger)

DimyAsInteger

x=20

y=2

f=x*y

EndFunction

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

StaticxAsInteger

x=10

y=5

y=f(x)

Printx;y

EndSub

程序运行后，如果单击命令按钮，那么在窗体上显示的内容是

A〕105B〕205

C〕2040D〕1040

[答案]C

[考点]

[第41题][标题]

在窗体上画一个名称为Command1的命令按钮和一个名称为Text1的文本框,在文本框中输入以下字符串:

MicrosoftVisualBasicProgramming

然后编写如下事件过程:

PrivateSubCommand1_Click()

Open"d:\temp\outf.txt"ForOutputAs#1

Fori=1ToLen(Text1.Text)

c=Mid(Text1.Text,i,1)

Ifc>="A"Andc<="Z"Then

Print#1,LCase(c)

EndIf

Nexti

Close

EndSub

程序运行后,单击命令按狃,文件outf.txt中的内容是:

A)MVBP

B)mvbp

C)M

V

B

P

D)m

v

b

p

[答案]D

[考点]

[第42题][标题]

假定在图片框Picture1中装入了一个图形，为了去除该图形〔不删除图片框〕，应采用的正确方法是：

A)选择图片框，然后按Del键B)执行语句Picture1.Picture=LoadPicture("")

C)执行语句Picture1.Picture=""D)选择图片框，在属性窗口中选择Picture属性，然后按回车键

[答案]B

[考点]

[第43题][标题]

在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示假设干个工程，当单击列表框中的某个工程时，在标签中显示被选中的工程的名称，以下能正确实现上述操作的程序是

A)PrivateSubList1_Click()Label1.Caption=List1.ListIndexEndSub

B)PrivateSubList1_Click()Label1.Name=List1.ListIndexEndSub

C)PrivateSubList1_Click()Label1.Name=List1.TextEndSub

D)PrivateSubList1_Click()Label1.Caption=List1.TextEndSub

[答案]D

[考点]

[第44题][标题]

在窗体上画一个命令按钮，名称为Command1，然后编写如下事件过程：

PrivateSubCommand1_Click()

DimiAsInteger,xAsInteger

Fori=1To6

Ifi=1Thenx=i

Ifi<=4Then

x=x+1

Else

x=x+2

EndIf

Nexti

Printx

EndSub

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

A)9B)6C)12D)15

[答案]A

[考点]

[第45题][标题]

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click()

c="ABCD"

Forn=1To4

Print_________

Next

EndSub

程序运行后，单击命令按钮，要求在窗体上显示如下内容：

D

CD

BCD

ABCD

那么在________处应填入的内容为

A)Left(c,n)B)Right(c,n)C)Mid(c,n,1)

D)Mid(c,n,n)

[答案]B

[考点]

[第46题][标题]

执行以下程序段

DimxAsInteger,iAsInteger

x=0

Fori=20To1Step-2

x=x+i\5

NextI

后，x的值为

A)16B)17C)18D)19

[答案]C

[考点]

[第47题][标题]

在窗体上画一个命令按钮和一个文本框,名称分别为Command1和Text1,然后编写如下程序:

PrivateSubCommand1_Click()

a=InputBox("请输入日期(1~31)")

t="旅游景点:"_

&IIf(a>0Anda<=10,"长城","")_

&IIf(a>10Anda<=20,"故宫","")_

&IIf(a>20Anda<=30,"颐和园","")

Text1.Text=t

EndSub

程序运行后,如果从键盘输入16,那么在文本框中显示的内容是:

A)旅游景点：长城故宫

B)旅游景点：长城颐和园

C)旅游景点：颐和园

D)旅游景点：故宫

[答案]D

[考点]

[第48题][标题]

在窗体上画一个名称为Label1的标签,然后编写如下事件过程:

PrivateSubForm_Click()

Dimarr(10,10)AsInteger

DimiAsInteger,jAsInteger

Fori=2To4

Forj=2To4

arr(i,j)=i*j

Nextj

Nexti

Label1.Caption=Str(arr(2,2)+arr(3,3))

EndSub

程序运行后,单击窗体,在标签中显示的内容是

A)12

B)13

C)14

D)15

[答案]B

[考点]

[第49题][标题]

在窗体上画一个名称为Comamnd1的命令按钮,然后编写如下通用过程和命令按钮的事件过程:

PrivateFunctionfun(ByValmAsInteger)

IfmMod2=0Then

fun=2

Else

fun=1

EndIf

EndFunction

PrivateSubCommand1_Click()

DimiAsInteger,sAsInteger

s=0

Fori=1To5

s=s+fun(i)

Next

Prints

EndSub

程序运行后,单击命令按钮,那么窗体上显示的是:

A)6

B)7

C)8

D)9

[答案]B

[考点]

[第50题][标题]

阅读程序:

OptionBase1

Dimarr()AsInteger

PrivateSubForm_Click()

DimiAsInteger,jAsInteger

ReDimarr(3,2)

Fori=1To3

Forj=1To2

arr(i,j)=i*2+j

Nextj

Nexti

ReDimPreservearr(3,4)

Forj=3To4

arr(3,j)=j+9

Nextj

Printarr(3,2)+arr(3,4)

EndSub

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

A)21

B)13

C)8

D)25

[答案]A

[考点]

[第51题][标题]

在窗体上画一个名称为Command1的命令按钮,然后编写如下程序:

OptionBase1

PrivateSubCommand1_Click()

DimcAsInteger,dAsInteger

d=0

c=6

x=Array(2,4,6,8,10,12)

Fori=1To6

Ifx(i)>cThen

d=d+x(i)

c=x(i)

Else

d=d-c

EndIf

Nexti

Printd

EndSub

程序运行后,如果单击命令按钮,那么在窗体上输入的内容为

A)10

B)16

C)12

D)20

[答案]C

[考点]

[第52题][标题]

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

OptionBase1

PrivateSubCommand1_Click()

DimaAsVariant

a=Array(1,2,3,4,5)

Sum=0

Fori=1To5

Sum=sum+a(i)

Nexti

x=Sum/5

Fori=1To5

Ifa(i)>xThenPrinta(i);

Nexti

EndSub

程序运行后，单击命令按钮，在窗体上显示的内容是

A〕12

B〕123

C)345

D〕4

5

[答案]D

[考点]

[第53题][标题]

设有如下通用过程：

PublicSubFun(a(),ByValxAsInteger)

Fori=1To5

x=x+a(i)

Next

EndSub

在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下的事件过程：

PrivateSubCommand1_Click()

Dimarr(5)AsVariant

Fori=1To5

arr(i)=i

Next

n=10

CallFun(arr(),n)

Text1.Text=n

EndSub

程序运行后，单击命令按钮，那么在文本框中显示的内容是

A〕10B〕15C〕25D〕24

[答案]A

[考点]

[第54题][标题]

如果要改变窗体的标题，那么需要设置的属性是

A〕CaptionB〕NameC〕BackColorD〕BorderStyle

[答案]A

[考点]

[第55题][标题]

(

)是由VisualBasic提供的一种专门的子程序，由对象本身所具有，反映该对象功能的内部函数或过程。

A〕文件

B〕属性

C〕方法

D〕窗体

[答案]C

[考点]

[第56题][标题]

以下程序

PrivateSubForm_click()

Forx=1to2

a=0

Fory=1tox+1

a=a+1

Nexty

Printa;

Nextx

EndSub

运行时输出的结果是(

)。

A1

1

B0

0

C1

2

D2

3

[答案]D

[考点]

[第57题][标题]

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：

OptionBase1

PrivateSubCommand1_Click()

Dima

a=Array(1,2,3,4,5)

Fori=1ToUBound(a)

a(i)=a(i)+i-1

Next

Printa(3)

EndSub

程序运行后，单击命令按钮，那么在窗体上显示的内容是

A)4

B)5

C)6

D)7

[答案]B

[考点]

[第58题][标题]

以下程序

PrivateSubForm_click()

m=1

Fork=3to1Step-1

x$=String(k,"*")

Printm;x$

M=m+1

Nextk

EndSub

运行后输出是(

)。

A

1*

B1*

C3*

D1***

2**

2*

2**

2**

3***

3*

1***

3*

[答案]D

[考点]

[第59题][标题]

以下程序

PrivateSubForm_click()

Sum=0

Forj=1to10

Ifj=10Then

Else

Sum=Sum+j

EndIf

Nextj

Printsum

EndSub

运行时输出结果是(

)。

A45

B55

C显示错误信息

D36

[答案]A

[考点]

[第60题][标题]

以下程序

PrivateSubForm_click()

s=0

Do

s=(s+1)*(s+2)

Number=Number+1

LoopUntils>=30

PrintNumber;s

EndSub

运行输出的结果是(

)。

A0

1

B30

30

C4

30

D3

182

[答案]D

[考点]

[第61题][标题]

以下程序

PrivateSubForm_click()

a=70

Forj=1to4

x=Val(InputBox("请输入一个数"))

IfxMod5=0Then

b=b+x:a=x

Else

b=b+a

EndIf

Nextj

Printb

EndSub

运行时输入75,55,42,80,输出的结果是(

)。

A252

B265

C280

D285

[答案]B

[考点]

[第62题][标题]

以下程序

PrivateSubForm_click()

c=4

d=Val(InputBox("请输入一个数"))

DoWhiled>0

Ifd>cThenc=c+1

d=Val(InputBox("请输入一个数"))

Loop

Printc+d

EndSub

运行时输入9,8,7,6,5,4,3,2,1,0，输出的结果是(

)。

A5

B6

C7

D8

[答案]C

[考点]

[第63题][标题]

以下程序

PrivateSubForm_click()

c=4

x=Val(InputBox("请输入一个数"))

Whilex<>-999

Ifx>cThenc=x

X=Val(InputBox("请输入一个数"))

Wend

Printc;:PrintAbs(x)

EndSub

运行时输入5,9,8,2,-999，输出的结果是(

)。

A9

8

B9

2

C9

999

D2

999

[答案]C

[考点]

[第64题][标题]

在窗体上画一个名称为Command1的命令按钮和两个名称分别为Text1、Text2的文本框，然后编写如下事件过程：

PrivateSubCommand1_Click()

n=Text1.Text

SelectCasen

Case1To20

x=10

Case2,4,6

x=20

CaseIs<10

x=30

Case10

x=40

EndSelect

Text2.Text=x

EndSub

程序运行后，如果在文本框Text1中输入10，然后单击命令按钮，那么在Text2中显示的内容是

A〕10B〕20C〕30D〕40

[答案]A

[考点]

[第65题][标题]

执行语句Open"Tel.dat"ForRandomAs#1Len=50后，对文件Tel.dat中的数据能够执行的操作是

A〕只能写，不能读B〕只能读，不能写

C〕既可以读，也可以写D〕不能读，不能写

[答案]C

[考点]

[第66题][标题]

以下程序

PrivateSubForm_click()

DimaAsInteger,bAsInteger,xAsInteger

a=InputBox("a=?")

b=InputBox("b=?")

x=a+b

Ifa>bThenx=a-b

Printx

EndSub

运行时从键盘输入3和4，输出的x的值是(

)。

A3

B5

C7

D9

[答案]C

[考点]

[第67题][标题]

以下能判断是否到达文件尾的函数是

A〕BOFB〕LOCC〕LOFD〕EOF

[答案]D

[考点]

[第68题][标题]

以下程序

PrivateSubForm_click()

E=1:F=1

ForJ=1to3

E=E+F:F=F+E

NextJ

PrintE;F

EndSub

该程序的输出结果是(

)。

A6

6

B5

8

C13

21

D34

55

[答案]C

[考点]

[第69题][标题]

设a=10，b=5，c=1，执行语句Printa>b>c后，窗体上显示的是

A〕TrueB〕FalseC〕1D〕出错信息

[答案]B

[考点]

[第70题][标题]

设窗体上有一个列表框控件List1，且其中含有假设干列表项。那么以下能表示当前被选中的列表项内容的是

A〕List1.ListB〕List1.ListIndexC〕List1.IndexD〕List1.Text

[答案]D

[考点]

[第71题][标题]

以下表达中错误的选项是

A〕翻开一个工程文件时，系统自动装入与该工程有关的窗体、标准模块等文件

B〕保存VisualBasic程序时，应分别保存窗体文件及工程文件

C〕VisualBasic应用程序只能以解释方式执行

D〕事件可以由用户引发，也可以由系统引发

[答案]C

[考点]

[第72题][标题]

以下不属于VisualBasic系统的文件类型是

A〕.frmB〕.batC〕.vbgD〕.vbp

[答案]B

[考点]

[第73题][标题]

以下表达中错误的选项是

A〕双击鼠标可以触发DblClick事件

B〕窗体或控件的事件的名称可以由编程人员确定

C〕移动鼠标时，会触发MouseMove事件

D〕控件的名称可以由编程人员设定

[答案]B

[考点]

[第74题][标题]

以下表达中错误的选项是

A〕VisualBasic是事件驱动型可视化编程工具

B〕VisualBasic应用程序不具有明显的开始和结束语句

C〕VisualBasic工具箱中的所有控件都具有宽度〔Width〕和高度〔Height〕属性

D〕VisualBasic中控件的某些属性只能在运行时设置

[答案]C

[考点]

[第75题][标题]

设a=″VisualBasic″，下面使b=″Basic″的语句是(

)

A)b=Left(a，8，12)

B)b=Mid(a，8，5)

C)b=Right(a，5，5)

D)b=Left(a，8，5)

[答案]B

[考点]

[第76题][标题]

)从键盘上输入两个字符串，分别保存在变量str1、str2中。确定第二个字符串在第一个字符串中起始位置的函数是(

)

A)Left

B)Mid

C)String

D)Instr

[答案]D

[考点]

[第77题][标题]

设有语句x=InputBox(″输入数值″，″0″，″例如″)

程序运行后，如果从键盘上输入数值10并按回车键，那么以下表达中正确的选项是(

)

A)变量X的值是数值10

B)在InputBox对话框标题栏中显示的是"例如"

C)0是默认值

D)变量X的值是字符串"10"

[答案]D

[考点]

[第78题][标题]

在窗体上画一个名称为Command1的命令按钮，然后编写如下程序：

PrivateSubCommand1_Click〔〕

StaticXAsInteger

StaticYAsInteger

Cls

Y=l

Y=Y+5

X=5+X

PrintX，Y

EndSub

程序运行时，三次单击命令按钮Command1后，窗体上显示的结果为(

)

A)1516

B)15

6

C)1515

D)5

6

[答案]B

[考点]

[第79题][标题]

)刚建立一个新的标准EXE工程后，不在工具箱中出现的控件是(

)

A)单项选择按钮

B)图片框

C)通用对话框

D)文本框

[答案]C

[考点]

[第80题][标题]

)以下表达中正确的选项是

A)窗体的Name属性指定窗体的名称，用来标识一个窗体(

)

B)窗体的Name属性的值是显示在窗体标题栏中的文本

C)可以在运行期间改变对象的Name属性的值

D)对象的Name属性值可以为空

[答案]A

[考点]

[第81题][标题]

设组合框Combo1中有3个工程，那么以下能删除最后一项的语句是

A〕Combo1.RemoveItemText

B〕Combo1.RemoveItem2

C〕Combo1.RemoveItem3

D〕Combo1.RemoveItemCombo1.Listcount

[答案]B

[考点]

[第82题][标题]

以下程序段的执行结果为

。

A="HELLOGOODMORNING"

B="WANGCHANGLI"

C=Left(A,5)+"!"

D=Right(A,7)

E=Mid(A,6,4)

F=Mid(B,Len(B)-6,5)+"!"

G=E+""+D+"!"

H=C+""+F

PrintH+""+G

A)HELLO！CHANG！GOODMORNING！

B)HELLO！WANG！GOODMORNING！

C)HELLO！LI！GOODMORNING！

D)HELLO！CHANG！GOOD！MORNING！

[答案]A

[考点]

[第83题][标题]

在VisualBasic环境下，当写一个新的VisualBasic程序时，所做的第一件事是(

)。

A〕编写代码

B〕新建一个工程

C〕翻开属性窗口

D〕进入VisualBasic环境

[答案]B

[考点]

[第84题][标题]

以下不属于VisualBasic6特点的是(

)。

A〕对象的链接与嵌入

B〕结构化程序设计

C〕编写跨平台应用程序

D〕事件驱动程序编程机制

[答案]C

[考点]

[第85题][标题]

下面关于VisualBasic6.0工具栏的说法不正确的选项是(

)。

A〕工具栏的位置可以任意改变

B〕工具栏一定在菜单栏的下方

C〕工具栏可以显示或隐藏

D〕VisualBasic有多个工具栏

[答案]B

[考点]

[第86题][标题]

可以使X为数值型数据的语句是(

)。

A〕X=val(InputBox〔"请输入数据"〕)

B〕X=InputBox$〔"请输入数据"〕

C〕X=Textl.Text

D〕X=Listl.list〔3〕

[答案]A

[考点]

[第87题][标题]

用标准工具栏中的工具按钮不能执行的操作是(

)。

A〕添加工程

B〕打印源程序

C〕运行程序

D〕翻开程序

[答案]B

[考点]

[第88题][标题]

VisualBasic6.0集成环境的主窗口中不包括(

)。

A〕标题栏

B〕菜单栏

C〕状态栏

D〕工具栏

[答案]C

[考点]

[第89题][标题]

以下程序

PrivateSubForm_click()

s=Val(InputBox("inputvalueofs:"))

SelectCases

CaseIs<6

f=s+1

CaseIs<5

f=s+2

CaseIs<4

f=s+3

CaseElse

F=s+4

EndSelect

Prints;f

EndSub

运行时从键盘输入6，输出的结果是(

)。

A6

7

B6

8

C6

9

D6

10

[答案]D

[考点]

[第90题][标题]

在正确安装VisualBasic6.0后，可以通过多种方式启动VisualBasic。以下方式中，不能启动VisualBasic的是(

)。

A〕通过"开始"菜单中的"程序"命令

B〕通过"我的电脑"找到vb6.exe，双击该文件名

C〕通过"开始"菜单中的"运行"命令

D〕进入DOS方式，执行vb6.exe文件

[答案]D

[考点]

[第91题][标题]

与传统的程序设计语言相比，VisualBasic最突出的的特点是(

)。

A〕结构化程序设计

B〕程序开发环境

C〕事件驱动编程机制

D〕程序调试技术

[答案]C

[考点]

[第92题][标题]

既可用于输入数据又可用于输出数据的控件是(

)控件。

A〕Label

B〕TextBox

C〕ListBox

D〕OptionButton

[答案]B

[考点]

[第93题][标题]

VisualBasic窗体设计器的主要功能是(

)。

A〕建立用户界面

B〕编写源程序代码

C〕画图

D〕显示文字

[答案]A

[考点]

[第94题][标题]

已执行语句x=123456.789，输出x值时要求加午位分隔答，小数点后取2位有效数字。以下格式输出语句正确的选项是

A〕PrintFormat$(x,####,##.##)

B〕PrintFormat$(x,"##,####.##")

C〕PrintFormat$(x,",######.##")

D〕PrintFormat$(x,"######,.##")

[答案]B

[考点]

[第95题][标题]

表达式Val〔".123E2CD"〕的值是

。

A〕.123

B〕12.3

C〕0

D〕.123E2CD

[答案]B

[考点]

[第96题][标题]

以下不属于同类的是(

)。

A〕Click

B〕Name

C〕Caption

D〕Top

[答案]A

[考点]

[第97题][标题]

.对象可以识别和响应的某些行为称为(

)。

A〕属性

A〕方法

C〕继承

D〕事件

[答案]D

[考点]

[第98题][标题]

设a=″VisualBasic″，下面使b=″Basic″的语句是()

A)b=Left(a，8，12)

B)b=Mid(a，8，5)

C)b=Right(a，5，5)

D)b=Left(a，8，5)

[答案]B

[考点]

[第99题][标题]

以下表达中正确的选项是(

)

A)窗体的Name属性指定窗体的名称，用来标识一个窗体

B)窗体的Name属性的值是显示在窗体标题栏中的文本

C)可以在运行期间改变对象的Name属性的值

D)对象的Name属性值可以为空

[答案]A

[考点]

[第100题][标题]

在设计阶段，当双击窗体上的某个控件时，所翻开的窗口是(

)

A)工程资源管理器窗口

B)工具箱窗口

C)代码窗口

D)属性窗口

[答案]C

[考点]

[第101题][标题]

阅读事件过程，答复以下问题。

PrivateSubCommandl_Click(

)

x=InputBox("请输入X的值：")

y=Text1.Text

z=x+y

Debug.Printz

EndSub

在InputBox函数弹出的对话框中输入123，在文本框Textl中输入456。单击命令按钮Commandl后，窗口上立即显示出(

)。

A〕123

B〕579

C〕123456

D〕错误信息

[答案]C

[考点]

[第102题][标题]

有如下程序

a$="China"

b$=Right$(a$,3):c$=String$(3,b$)

Printc$

End

运行后输出的结果是

。

A〕Chi

B〕aaa

C〕iii

D〕ina

[答案]C

[考点]

[第103题][标题]

下面

不是字符串常量。

A〕"你好"

B〕""

C〕"True"

D〕#False#

[答案]D

[考点]

[第104题][标题]

以下符号

是VisualBasic中的合法变量名。

A〕x23

B〕8xy

C〕END

D〕X8[B]

[答案]A

[考点]

[第105题][标题]

有如下程序：

a$="Flying":b$="IS":c$="funny!"

Printa$+""+Lcase$(b$)+""+Ucase$(c$)

End

运行后输出的结果是

。

A)

FlyingIsfunny!

B)

FlyingisFUNNY!

C)

FlyintgISFUNNY!

D)

FLYINGISFUNNY!

[答案]B

[第106题][标题]

如果将布尔常量值True赋值给一个整型变量，那么整型变量的值为

。

A〕0

B〕-1

C〕True

D〕False

[答案]B

[第107题][标题]

选拔身高T超于1.7米且体重W小于62.5公斤的人，表示该条件的布尔表达式

。

A〕T>1.7AndW<=62.5

B〕T<=1.7OrW>=62.5

C〕T>1.7AndW<62.5

D〕T>1.7OrW<62.5

[答案]C

[第108题][标题]

求100以内素数的代码：

Form=2To100

Fori=2Tom-1

If(______)=0

Then

GoTo

NotNextM

Nexti

Printm

NotNextM:

Nextm

(答案中假设有字母，按小写字母输入)

[答案]mmodi

[第109题][标题]

阅读下面的程序

PrivateSubForm_Click()

DimCheckAsBoolean,CounterAsInteger

Check=True

Counter=5

Do

DoWhileCounter<20

Counter=Counter+1

IfCounter=10Then

Check=False

ExitDo

EndIf

Loop

LoopUntilCheck=False

PrintCounter

EndSub

程序运行后,单击窗体,输出结果是【

】

[答案]10

[第110题][标题]

执行下面的程序段后，i的值为【

】，s的值为5。

s=2

Fori=3.2To4.9Step0.8

s=s+1

Nexti

[答案]5.6

[第111题][标题]

输入任意长度的字符串，要求将字母顺序倒置

dima$,c$,d$,n%,I%

a=inputbox("输入字符串")

n=________

forI=1ton

c=mid(a,I,1)

d=c+d

nextI

a=d

printa

(答案中假设有字母，按小写字母输入)

[答案]len(a)

[第112题][标题]

在窗体上打印一个数列0，0，1，2，4，7，13，24…每个数都是前3个数值之和，直到30个数或最后一个超过1000为止。

PrivateSubCommand1_Click()

a=0:b=1

c=1:

d=a+b+c

Pring

a;b;c;

I=5

WhileI<=30andd<=1000

Printd;

A=b:b=c:c=d

D=___________

I=I+1

Wend

Endsub

(答案中假设有字母，按小写字母输入)

[答案]a+b+c

[第113题][标题]

将一张面值为100元人民币等值换为100张5元、1元、0.5元的零钞，要求每张零钞不少于1张，问有那几种组合？

Dimx%,y%,z%,n%

Print"5元","1元","0.5元"

n=0

Forx=1To19

Fory=1To100-x

z=______________

If5*x+1*y+0.5*z=100Then

Printx,y,z

n=n+1

EndIf

Nexty

Nextx

Print"共有"&n&"组合"

(答案中假设有字母，按小写字母输入)

[答案]100-x-y

[第114题][标题]

随机产生10个100～200之间的数，求最大值。

PrivateSubCommand1_Click()

Max=100

Fori=1To10

x=Int(Rnd*______+100)

Printx;

Ifx>MaxThenMax=x

Nexti

Print

Print"最大值=";Max

EndSub

[答案]101

[第115题]我国有13亿人口，按人口年增长0.8%计算，多少年后我国人口超过26亿。

程序如下：

PrivateSubCommand1_Click()

x=13

n=0

DoWhile________

x=x*1.008

n=n+1

Loop

Printn,x

EndSub

(答案中假设有字母，按小写字母输入)

[答案]x<26

[第116题]求自然对数e的近似值,要求其误差小于0.00001，近似公式为:

Dimi%,n&,t!,e!

e=0

:

n=1

i=0

:t=1

DoWhilet>0.00001

e=_________

i=i+1

n=n*i

t=1/n

Loop

Print"计算了";i;"项的和是";e

(答案中假设有字母，按小写字母输入)

[答案]e+t

[第117题]3～10的乘积

t=1

Fori=3To10

t=___________

Nexti

Printt

(答案中假设有字母，按小写字母输入)

[答案]t*i

[第118题]用辗转相除法求两自然数m，n的最大公约数。

Ifm<nThent=m:m=n:n=t

r=mmod

n

DoWhile(________)

m=n

n=r

r=mmodn

Loop

Print"最大公约数=",n

(答案中假设有字母，按小写字母输入)

[答案]r<>0

[第119题]有一根长度为321米的钢材料，要将它截取成两种规格a、b的长度分别为17米和27米的短料，每种至少1段，问分隔成a，b各多少段后，剩余的残料r最少？

PrivateSubCommand1_Click()

Dima%,b%,r!,ia%,ib%

r=321

Forb=1To321\27

Fora=1To321\17-b

t=321-b*27-a*17

Ift>0Andt<rThen

r=______

ia=a

ib=b

EndIf

Nexta

Nextb

Printia,ib,r

EndSub

(答案中假设有字母，按小写字母输入)

[答案]t

[第120题]VisualBasic应用程序中工程文件的扩展名是.【

】

(答案中假设有字母，按小写字母输入)

[答案]vbp

[第121题][标题]

VisualBasic的窗体和控件是具有自己的属性、[

]和方法的对象

[答案]事件

[第122题]窗体和控件的大局部属性可以通过[

]窗口设置、也可以通过程序代码设置

[答案]属性

[第123题]Name属性的含义是设置对象名称，窗体的默认Name属性是[

]

(答案中假设有字母，按小写字母输入)

[答案]form1

[第124题]设A=37，那么Hex〔A〕=

25

，Oct(A)=

[答案]45

[第125题]假设A=120，B=80，C=70、D=30，那么式A+B>160

Or(B*C>200

AndNotd>60)的值是

。

(答案中假设有字母，按小写字母输入)

[答案]true

[第126题]表达式6Mod2*6^2/6\2的值为【

】

[答案]0

[第127题]表达式Len(Str(1.3))的值为【

】

[答案]4

[考点][第128题]以下语句的输出结果是:【

】

PrintInt(12345.6789*100+0.5)/100

[答案]12345.68

[第129题]设有如下程序段：

a$="BeijingShanghai"

b$=Mid(a$,InStr(a$,"g")+1)

执行上面的程序段后，变量b$的值为【

】

[答案]Shanghai

[第130题]在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:

PrivateSubForm_Click()

Text1.Text="VB程序设计"

EndSub

PrivateSubText1_Change()

Picture1.Print"VBProgramming"

EndSub

程序运行后,单击窗体,在文本框中显示的内容是VB程序设计,而在图片框中显示的内容是【

】

[答案]VBProgramming

[第131题]在窗体上画一个名称为Text1的文本框，然后画三个单项选择按钮，并用这三个单项选择按钮建立一个控件数组，名称为Option1，程序运行后，如果单击某个单项选择按钮，那么文本框中的字体将根据所选择的单项选择按钮切换，如下图，请填空。(请用小写)

PrivateSubOption1_Click(IndexAsInteger)

SelectCaseindex

Case0

a="宋体"

Case1

a="黑体"

Case2

a="楷体＿GB2312"

EndSelect

text1._____=a

EndSub

(答案中假设有字母，按小写字母输入)

[答案]fontname

[第132题]以下程序运行的输出结果是_________。

PrivateSubForm_Click()

i=10:j=0

Do

j=j+1

i=i-1