VB第14周周练习zyq副本.docx

VB第14周周练习zyq副本.docx

《VB第14周周练习zyq副本.docx》由会员分享，可在线阅读，更多相关《VB第14周周练习zyq副本.docx（23页珍藏版）》请在冰豆网上搜索。

VB第14周周练习zyq副本

2012VB第14周周练习zyq

满分：

100分

姓名：

________

1、单项选择题（本题共计60分）

1、在过程中有语句ForI=N1ToN2StepN3，在该循环体内有下列四条语句，其中________会影响循环执行的次数。

①N1=N1+I②N2=N2+N3③I=I+N3④N3=2*N3（）

A、①②

B、①②③

C、③

D、①②③④

2、________在用户的应用程序执行期间发生，比如鼠标单击或敲击键盘。

（）

A、方法

B、属性

C、事件

D、工程

3、运行时，当用户向文本输入新的内容，或在程序代码中对文本框的Text属性进行赋值从而改变了文本框的Text属性时，将触发文本框的_________事件。

（）

A、Click

B、Dblclick

C、Gotfocus

D、Change

4、下列4个表达式中，不能对Single类型变量x（正数）的第三位小数正确地进行四舍五入的是（）

A、Format（x,"#.00"）

B、Int（100*（x+0.005））/100

C、CInt（100*（x+0.005））/100

D、Fix（100*（x+0.005））/100

5、工程组文件扩展名为____________。

（）

A、vbp

B、vbg

C、cls

D、bas

6、用Msgbox"你好",vbokonly,"Hello"显示的消息对话框窗口的标题是________。

（）

A、你好

B、vbokonly

C、Ok

D、Hello

7、VB的文件管理控件是____________。

（）

A、驱动器列表框、目录列表框、文件列表框

B、驱动器列表框、目录列表框、组合框

C、文本框、目录列表框、文件列表框

D、驱动器列表框、图片框、文件列表框

8、要向已有数据的c:

\test\test.txt文件添加数据，正确的文件打开命令是____________。

（）

A、Open〞c:

\test\test.txt〞ForAppendAs#512

B、Open〞c:

\test\test.txt〞ForAppendAs#511

C、Open〞c:

\test\test.txt〞ForOutputAs#512

D、Open〞c:

\test\test.txt〞ForOutputAs#511

9、在窗体上放置了DriveListBox、DirListBox和FileListBox等三个控件,下面________语句一定不会改变相应控件的Path或Drive属性。

（）

A、Drive1.ListIndex=2

B、Dir1.ListIndex=-2

C、File1.FileName="a:

\*.*"

D、File1.Path=Drive1.Drive

10、在VisualBasic中文件访问的类型有________。

（）

A、顺序、随机、二进制

B、顺序、随机、字符

C、顺序、十六进制、随机

D、顺序、记录、字符

11、

执行以下程序，在窗体上显示的第二行内容是_________。

PrivateSubCommand1_Click（）
Dimx%,y%
x=10
y=15
Callvalue（x,y）
Printx;y
EndSub

PrivateSubvalue（ByValm%,n%）
m=m*2
n=n-5
Printm;n
EndSub

A、2010

B、2015

C、1015

D、1010

12、当发生Command1_Clik事件后，下列程序的执行结果是____________。

PrivateSubCommand1_Click（）
Dima
a=Array（1,2,3,4,5）
Fori=1To4
Printa（i）-a（i–1）;
Nexti
EndSub（）

A、11111

B、1111

C、111

D、222

13、下列有关数组的说法中，不正确的是________。

（）

A、在窗体模块中不可以定义全局数据组

B、可以使用Erase语句释放所有数组所占据的存储储空间

C、语句DimX（3.6+2）AsInteger定义了一个维上界是6的一维的整型数组

D、形参数组的类型可以是定长符串类型

14、以下程序段运行后，消息框的输出结果是

a=sqr（3）

b=sqr

（2）

c=a>b

Msgboxx+2（）

A、-1

B、1

C、2

D、出错

15、下列字符串中________________是合法变量。

（）

A、char_1,student,No,a1234

B、exp,123,x*y

C、x\y,x>y

D、end,1bcx

16、窗体上有多个控件，在Form_Activate（）事件过程中添加________语句，就可以保每次运行程序时，都将光标定位在文本框Text1上。

（）

A、Text1.Text=""

B、Text1.SetFocus

C、Form1.SetFocus

D、Text1.Visible=True

17、如下二维数组声明语句，____________正确。

（）

A、Dima[3，4]AsInteger

B、Dima（3，4）AsInteger

C、Dima（n，n）AsInteger

D、Dima（34）AsInteger

18、下面语句运行后的输出结果是________。

PrivateSubCommand1_Click（）

x=0

DoWhilex<10

x=x+1

x=x*x

Loop

Printx

EndSub（）

A、6

B、12

C、18

D、30

19、语句Open“Mjq.Txt”ForInputAs#Freefile表示________。

（）

A、打开一二进制文件"Mjq.Txt"，为读数据做准备

B、打开一顺序文件"Mjq.Txt"，为读数据做准备

C、打开一随机文件"Mjq.Txt"，为写数据做准备

D、打开一随机文件"Mjq.Txt"，为读数据做准备

20、如果在窗体上有命令按钮OK，在代码编辑窗口有与之对应的CmdOK_Click（）事件，则命令按钮控件的名称属性和Caption属性分别为________。

（）

A、OK、Cmd

B、Cmd、OK

C、CmdOK、OK

D、OK、CmdOK

21、下面的语句或方法，错误的有个________（其中m和n都为Integer型变量）。

①dimArry（m,n）AsInteger

②n=32764+5

③PrintA=A+B;A+B

④ChDrive”C:

”（）

A、1

B、2

C、3

D、4

22、以下程序的输出结果是_________。

OptionBase1

PrivateSubCommand1_Click（）

Dima（10）AsInteger,p（3）AsInteger

k=5

Fori=1To10

a（i）=i

Nexti

Fori=1To3

p（i）=a（i*i）

Nexti

Fori=1To3

k=k+p（i）*2

Nexti

Printk

EndSub（）

A、33

B、28

C、35

D、37

23、VB是面向______的程序设计语言。

（）

A、过程

B、工程

C、事件

D、对象

24、关于窗体Name属性的叙述，正确的是________。

（）

A、窗体Name属性可以具有与别的公共对象相同的名字

B、窗体Name属性和变量定义一样

C、窗体Name属性最长可达255个字符

D、窗体Name属性不能具有与别的公共对象相同的名字

25、执行以下程序，在窗体上显示的第一行内容是______,第二行内容是_________。

PrivateSubCommand1_Click（）

Dimx%,y%

x=10

y=15

Callvalue（x,y）

Print"x=";x,"y=";y

EndSub

PrivateSubvalue（ByValm%,n%）

m=m*2

n=n-5

Print"m=";m,"n=";n

EndSub（）

A、m=20n=10

B、x=10y=15

C、x=20y=10

26、在应用程序中用"PrivateFunctionFun（XAsInteger,YAsSingle）"定义了函数Fun。

调用函数Fun的过程中的变量I、J均定义为Integer型，能正确引用函数Fun的是______.①Fun（I,J）②CallFun（I,3.65）③Fun（3.14,234）④Fun（"245","231.5"）（）

A、①,③

B、②,③,④

C、①,②,③

D、①,②,③,④

27、完善以下程序：

在磁盘A的根目录下有一个名为Sco.dat的文件，内容为姓名、英语成绩、物理成绩、数学成绩，现依此文件在根目录下建立一个名为Aver.dat的文件，内容为姓名及三门课的平均成绩。

Open“A:

\sco.dat”ForInputAs#3
Open“A:

\Aver.dat”ForOutputAs#2
DoWhile_____
Input#3,NAS,ENG,PAY,MATH
Write#2,NAS,（ENG+PHY+MATH）/3
Loop
Close#2
Close#3（）

A、EOF（3）

B、NotEOF（3）

C、EOF

（2）

D、NotEOF

（2）

28、以下程序输出的结果是____________。

Dima

a=Array（1,2,3,4,5,6,7）

Fori=Lbound（a）ToUbound（a）

a（i）=a（i）*a（i）

Nexti

Printa（i）（）

A、49

B、0

C、不确定

D、程序出错

29、语句Print"5*20"输出的结果是________。

（）

A、"5*20"

B、出现错误信息

C、5*20

D、100

30、以下有关由多个窗体和标准模块组成的应用程序设计方法的叙述中，错误的是________。

（）

A、在缺少情况下，设计时的一个窗体被指定为启动窗体。

B、通过人为设置，可指定任一窗体为启动窗体。

C、通过人为设置，可指定标准模块中的Main（）过程为启动过程。

D、通过人为设置，可指定窗体模块中的Main（）过程为启动过程。

31、VisualBasic中的工程文件的扩展名是____________。

（）

A、.reg

B、.frm

C、.bas

D、.vbp

32、下列语句中不能正常执行的是________。

（）

A、print+32758+10

B、print5+9=15

C、print"65"+12

D、print"65"&12

33、窗体文件名的后缀是________。

（）

A、.vbp

B、.frm

C、.bas

D、.vbw

34、以下__________操作不能打开属性窗口。

（）

A、按下F4键

B、单击工具栏上的“属性窗口”按钮

C、执行“视图”菜单中的“属性窗口”命令

D、双击任何一个对象

35、下列语句中的语句可以用来正确地声明一个动态数组。

（）

A、PrivateA（n）AsInteger

B、DimA（）AsInteger

C、DimA（,）AsInteger

D、DimA（1ton）

36、下列程序：

PrivateSubForm_Click（）

Forj=1To15

a=a+jMod3

Nextj

Printa

EndSub

运行后输出的结果是__________。

（）

A、1

B、15

C、90

D、120

37、VisualBasic中的控件分为________和________两类。

（）

A、标准控件；ActiveX控件

B、标准控件；内部控件

C、内部控件；外部控件

D、外部控件；ActiveX控件

38、要从自定义对话框Form2中退出，可以在该对话框的“退出”按钮的Click事件过程中使用的语句是________。

（）

A、UnloadForm2

B、HideForm2

C、Unload.Form2

D、Form2.Unload

39、VisualBasic中的窗体文件的扩展名是____________。

（）

A、.reg

B、.frm

C、.bas

D、.vbp

40、系统默认的参数传递方式是___________传递。

（）

A、按值

B、按地址

C、ByVal

D、按实参

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

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger

DoWhileb<100

b=b+5

a=a+b

Ifb>20ThenExitDo

Loop

Printa,b

EndSub

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

（）

A、5020

B、7525

C、5025

D、7520

42、若磁盘文件C:

\Data1.dat不存在，下列打开文件语句中，会产生错误的是________。

（）

A、Open"C:

\Data1.dat"ForOutputAs#1

B、Open"C:

\Data1.dat"ForInputAs#2

C、Open"C:

\Data1.dat"ForAppendAs#3

D、Open"C:

\Data1.dat"ForBinaryAs#4

43、假设数组A（2,4）各元素已赋值，执行以下语句段将______输出其所有元素的值。

ForEachelemInA

Printelem;

Nextelem（）

A、按行

B、按列

C、按赋值的先后顺序

D、随机

44、一般来说，当变量名称相同而作用域不同时，局限性_____________的变量总会用"阴影"遮住局限性不太大的变量。

（）

A、大

B、小

C、更小

D、比较小

45、在下列说法中，正确的是____________。

（）

A、通过适当的设置，可以在程序运行期间，让时钟控件显示在窗体上

B、在列表框中不能进行多项选择

C、在列表框中能够将项目按字母顺序从大到小排列

D、框架也有Click和DblClick事件

46、窗体上画一个按钮，然后编写如下的事件代码。

在按钮上单击，输出为__________。

PrivateSubfun（）

StaticaAsInteger

a=a+2

Printa;

EndSub

PrivateSubCommand1_Click（）

DimmAsInteger

Form=1To3

Callfun

Nextm

EndSub（）

A、222

B、000

C、248

D、246

47、可以在                        中，使用语句PublicPubStrAsString*20定义一个定长字符串。

（）

A、窗体模块

B、标准模块

C、类模块

D、三者均可

48、用复制粘贴的方法建立了一个命令按钮数组Command1，以下对该数组的说法错误的是________。

（）

A、命令按钮的所有Caption属性都是Command1

B、在代码中访问命令按钮只需使用名称Command1

C、命令按钮的大小都相同

D、命令按钮共享相同的事件过程

49、以下不合法的常量是_____________.（）

A、10^2

B、100

C、100.0

D、10E+01

50、结构化程序设计方法的核心是规定了三种基本结构：

________结构、分支结构、循环结构。

（）

A、条件

B、顺序

C、当型

D、逻辑

51、下面正确的赋值语句是____________。

（）

A、x+y=30

B、y=π*r*r

C、y=x+30

D、3y=x

52、下列叙述不正确的是___________.（）

A、注释语句是非执行语句，仅对程序的有关内容起注释作用，它不被解释和编译

B、注释语句可以放在代码中的任何位置

C、注释语句不能放在续行符的后面

D、代码中加入注释语句的目的的提高程序的可读性

53、下面4个方法中，可以返回字符串的高度值的是____________。

（）

A、TextHeight

B、TextWidth

C、ScaleWidth

D、ScaleHeight

54、以下语句的结果是____________。

（一个方格表示一个空格）

a=123

b=456

Printa;b（）

A、123□456

B、□123□456

C、□123□456□

D、□123□□456□

55、下列可以作为VisualBasic变量名的是____________。

（）

A、Chinese＄

B、X（X+Y）

C、123BOOK

D、BOOK-1

56、如果想设置文字属性斜体，则使用下面命令中的____________。

（）

A、FontItalic

B、FontUnderline

C、FountBold

D、Font

57、在一个语句行内写多条语句时，语句之间应该用___________分隔。

（）

A、逗号

B、分号

C、顿号

D、冒号

58、语句Ifx=1Theny=1，下列说法正确的是____________。

（）

A、x=1和y=1均为赋值语句

B、x=1和y=l均为关系表达式

C、x=1为关系表达式，y=1为赋值语句

D、x=1为赋值语句，y=l为关系表达式

59、设整型变量a、b的当前取值分别为200与20，以下赋值语句中不能正确执行的是________。

（）

A、Text1=a/b*a

B、Text1=a*a/b

C、Text1=“200”*a/b

D、Text1=a&b&a

60、

下列程序段的执行结果为____________。

x=Int（（69-60）*Rnd+60）
SelectCasex
CaseIs>=90
Print"优秀"
Case80To89
Print"良好"
Case60To79
Print"合格"
CaseElse
Print"不合格"
EndSelect

A、优秀

B、良好

C、合格

D、不合格

2、填空题（本题共计40分）

1、要使文本框Txt1中显示的字符为黑体，使用的语句是____。

2、下列程序运行的结果为___

（1）___。

执行完该程序后，共循环了____

（2）___次。

PrivateSubCommand1_Click（）

DimintsumAsInteger

DimiAsInteger

Fori=1To17Step2

intsum=intsum+i

Nexti

Printintsum

EndSub

3、有下列程序

PrivateSubCommand1_Click（）

a$="1223458764"

Fori=2ToLen（a$）

z$=Mid$（a$,i,1）

Ifz$>d$Thend$=z$

Nexti

Printd$

EndSub

运行后窗体上显示的是________。

4、以下程序运行后，si、sj、sk的结果分别是___

（1）__，i、j、k的结果分别是___

（2）___。

PrivateSubCommand1_Click（）

si=0:

sj=0

Fori=1To3

Forj=1Toi

sk=0

Fork=jTo3

sk=sk+1

Nextk

sj=sj+1

Nextj

sj=si+1

Nexti

EndSub

5、火车原以均匀速度v0（km/h）行驶，从t=10min时开始匀加速度运行，加速度为a（km/h2）。

问经过t=50mm时火车行驶的距离（m）（从t=0算起）。

要求打印出的数值取小数点后二位，对第三位按四舍五入处理。

补充如下程序。

PrivateSubCommand1_Click（）

Dimv0AsSingle,vAsSingle,sAsString

v0=InputBox（"输入初速度a"，1）

v0=v0*1000/60/60

a=a*1000/3600^2

t1=10*60

t2=50*50

t=___

（1）____

s=v0*t2+0.5*a*t*t

s=Int（s*100+0.5）

Print"s=";s

EndSub

6、