东北师范大学《VB程序设计》试题附答案.docx

东北师范大学《VB程序设计》试题附答案.docx

《东北师范大学《VB程序设计》试题附答案.docx》由会员分享，可在线阅读，更多相关《东北师范大学《VB程序设计》试题附答案.docx（41页珍藏版）》请在冰豆网上搜索。

东北师范大学《VB程序设计》试题附答案

VB程序设计练习题一

一、选择题

1.以下关系表达式中，其值为True的是（B）。

A."XYZ">"XYz"B."VisualBasic"<>"visualbasic"

C."the"="there"D."Integer"<"Int"

2.若设置了文本框的属性PasswordChar=”$”,则运行程序时向文本框中输入8个任意字符后,文本框中显示的是（A）

A.8个”$”B.1个”$”C.8个”*”D.无任何内容

3.以下关键字中，不能定义变量的是（A）。

A.DeclareB.DimC.PublicD.Private

4.若在某窗体模块中有如下事件过程

PrivateSubCommand1_Click（IndexASInteger）

……

EndSub

则以下叙述中正确的是（D）。

A.此事件过程与不带参数的事件过程没有区别

B.有1个名称为Command1的窗体,单击此窗体则执行此事件过程

C.有1个名称为Command1的控件数组,数组中有多个不同类型控件

D.有1个名称为Command1的控件数组,数组中有多个相同类型控件

5.执行以下程序段

a$="VisualBasicProgramming"：

b$="C++"：

c$=UCase（Left$（a$,7））&b$&Right$（a$,12）后，变量c$的值为（C）。

A.VisualBASICProgrammingB.VISUALC++Programming

C.VisualC++ProgrammingD.VISUALBASICProgramming

6.为把圆周率的近似值3.14159存放在变量pi中，应该把变量pi定义为（C）。

A.DimpiAsIntegerB.Dimpi（7）AsInteger

C.DimpiAsSingleD.DimpiAsLong

7.如果变量a=2、b="abc"、c="acd"、d=5，则表达式acANDb<>c的值为（A）。

A.TrueB.FalseC.YesD.No

8.在一个有

（1）逻辑运算、

（2）算术运算、（3）关系运算混合在一起的表达式（无括号）中，其运算顺序为（C）

A.

（1）

（2）（3）B.（3）

（2）

（1）C.

（2）（3）

（1）D.

（2）

（1）（3）

9.窗体上有Command1、Command2两个命令按钮。

现编写以下程序：

OptionBase0

Dima（）AsInteger,mAsInteger

PrivateSubCommand1_Click（）

m=InputBox（"请输入一个正整数"）

ReDima（m）

EndSub

PrivateSubCommand2_Click（）

m=InputBox（"请输入一个正整数"）

ReDima（m）

EndSub

运行程序时，单击Command1后输入整数10，再单击Command2后输入整数7，则数组a中元素的个数是（B）。

A.7B.8C.10D.11

10.若Y="welcome!

"，则表达式Left（Y,Len（Y）-1）的值是（C）。

A."welcome!

"B."w"C."welcome"D.""

11.表达式Int（5*Rnd+1）*Int（5*Rnd-1）值的范围是（D）。

A.[0,15]B.[-1,15]C.[-4,15]D.[-5,15]

12.以下程序段的运行结果是（B）。

PrivateSubForm_Click（）

DimIAsInteger,XAsString,YAsString

X="ABCDEFG"

ForI=4To1Step-1

Y=Y+Mid（X,I,1）

NextI

PrintY

EndSub

A.ABCDB.DCBAC.DEFGD.GFED

13.下列If语句统计满足性别为男、职称为副教授以上、年龄小于40岁条件的人数，不正确的语句是（D）。

A.Ifsex="男"Andage<40AndInStr（duty,"教授"）>0Thenn=n+1

B.Ifsex="男"Andage<40And（duty="教授"orduty="副教授"）Thenn=n+1

C.Ifsex="男"Andage<40AndRight（duty,2）="教授"Thenn=n+1

D.Ifsex="男"Andage<40Andduty="教授"Andduty="副教授"Thenn=n+1

14.下列分别是求两个数中的大数的四个程序段，（D）不正确。

A.Max=IIf（x>y,x,y）B.Ifx>yThenMax=xElseMax=y

C.Max=x:

Ify>=xThenMax=yD.Ify>=xThenMax=y:

Max=x

15.下列程序段的作用是（D）。

m=0:

n=0

Fori=1To10

x=Val（InputBox（"请输入x的值:

"））

Ifx>0Then

m=m+x

ElseIfx<0Then

n=n+1

EndIf

Nexti

Printm,n

A.计算从键盘输入的数据之和，并统计输入数据的数目

B.分别计算从键盘输入的正数之和与负数之和

C.分别计算从键盘输入的正数和负数的个数

D.计算从键盘输入的正数之和，并统计负数的个数

16.在窗体上有一个文件名称为Text1的文本框和1个名称为Command1的命令按钮，要求在程序执行时，每单击命令按钮一次，文本框向右移动一定距离。

下面能够正确实现上述功能的程序是（C）。

A.PrivateSubCommand1_Click（）B.PrivateSubCommand1_Click（）

Text1.Left=100Text1.Left=Text1.Left-100

EndSubEndSub

C.PrivateSubCommand1_Click（）D.PrivateSubCommand1_Click（）

Text1.Move.Text.Left+100Text1.Move.Text.Left

EndSubEndSub

17.以下程序段的执行结果是（A）。

n=0

Fori=0To1

Forj=0To1

n=n+1

Nextj

Nexti

Printn

A.4B.2C.1D.0

18.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1,在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False,程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间。

以下是实现上述操作的程序：

　　PrivateSubCommand1_Click（）

　　Timer1._________

　　EndSub

　　PrivateSubTimer1_Timer（）

　　Text1.Text=Now　　

　　EndSub

　　则在______处应填入的内容是（A）。

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

19.假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是：

（B）。

　　A.选择图片框，然后按Del键　　

　　B.执行语句Picture1.Picture=LoadPicture（""）　　

　　C.执行语句Picture1.Picture=""　　

D.选择图片框，在属性窗口中选择Picture属性，然后按回车键

B.PrivateSubList1_Click（）　　

　　Label1.Name=List1.ListIndex　　

　　EndSub

20.在窗体上画一个List1的列表框，一个名称为Label1的标签，列表框中显示若干个项目，当单击列表框中的某个项目时，在标签中显示被选中的项目的名称，下列能正确实现上述操作的程序是（D）。

A.PrivateSubList1_Click（）　　

　　Label1.Caption=List1.ListIndex　　

　EndSub　　

C.PrivateSubList1_Click（）　　

　　Label1.Name=List1.Text　　

　　EndSub

D.PrivateSubList1_Click（）　　

　　Label1.Caption=List1.Text　　

　EndSub

21.设a="MicrosoftVisualBasic",则以下使变量b的值为”VisualBasic”的语句是（B）。

A.b=Left（a,10）　B.b=Mid（a,10）

C.b=Right（a,10）D.b=Mid（a,11,10）

22.下列表达式中不能判断x是否为偶数的是（D）。

A.x/2=Int（x/2）B.xMod2=0C.FiX（x/2）=x/2D.x\2=0

23.以下叙述中错误的是（D）。

A.在通用过程中，多个形式参数之间可以用逗号作为分隔符

B.在Print方法中，多个输出项之间可以用逗号作为分隔符

C.在Dim语句中，所定义的多个变量可以用逗号作为分隔符

D.当一行中有多个语句时，可以用逗号作为分隔符

24.设窗体上有一个列表框控件List1。

以下能表示当前被选中的列表项内容的是（C）。

A.List1.ListB.List1.ListIndex

C.List1.TextD.List1.Index

25.一个二维数组可以存放一个矩阵。

在程序开始有语句OptionBase0，则下面定义的数组中正好可以存放1个4*3矩阵（即只有12个元素）的是（B）。

A.Dima（-2To0,2）AsIntegerB.Dima（3,2）AsInteger

C.Dima（4,3）AsIntegerD.Dima（-1To-4,-1To-3）AsInteger

26.设在窗体上有1个名称为Combol的组合框，含有5个项目，要删除最后一项，正确的语句是（B）。

A.Combo1.RemoveItemCombo1.TextB.Combo1.RemoveItem4

C.Combo1.RemoveItemCombo1.ListCountD.Combo1.RemoveItem5

27.在窗体上画一个命令按钮，然后编写如下事件过程：

PrivateSubCommand1_Click（）

DimI,Num

Randomize

Do

ForI=1To1000

Num=Int（Rnd*100）

PrintNum;

SelectCaseNum

Case12

ExitFor

Case58

ExitDo

Case65,68,92

End

EndSelect

NextI

Loop

EndSub

上述事件过程执行后，下列描述中正确的是（D）。

A.Do循环执行的次数为1000次

B.在For循环中产生的随机数小于或等于100

C.当所产生的随机数为12时结束所有循环

D.当所产生的随机数为65、68或92时窗体关闭、程序结束

28.某人创建了1个工程，其中的窗体名称为Form1;之后又添加了1个名为Form2的窗体，并希望程序执行时先显示Form2窗体，那么，他需要做的工作是（A）

A.在工程属性对话框中把“启动对象”设置为Form2

B.在Form1的Load事件过程中加入语句LoadForm2

C.在Form2的Load事件过程中加入语句Form2.Show

　D.在Form2的TabIndex属性设置为1，把Form1的TabIndex属性设置为2

29.用SelectCase语句选择|x|<=10情况的语句为：

Case（B）。

A.Not（-10To10）B.-10To10

C.IsAbs（x）>10D.Is<-10Or>10

30.赋值语句g=123+Mid（"123456",3,2）执行后，变量g中的值是（D）。

A."12334"B.123C.12334D.157

31.表达式Len（"123程序设计ABC"）的值是（A）。

A.10B.14C.20D.17

32.一个工程中包含两个名称分别为Form1和Form2的窗体，一个名称为mdlfunc的标准模

块。

假定Form1,Form2和mdlfunc中分别建立了自定义过程，其定义格式为：

Form1中定义的过程：

PrivatesubfrmFunction1（）

...

EndSub

Form2中定义的过程：

PublicsubfrmFunction2（）

...

EndSub

Md1func中定义的过程：

Publicsubmd1Function（）

...

EndSub

在调用上述过程的程序中，如果不指明窗体或模块的名称，则以下叙述中正确的是（D）。

A.上述三个过程都可以在工程中的任何窗体或模块中被调用

B.frmFunction2和md1Function过程能够在工程中各个窗体或模块中被调用

C.上述三个过程都只能在各自被定义的模块中调用

D.只有md1Function过程能够被工程中各个窗体或模块调用

33.以下程序段的运行结果是（C）。

PrivateSubForm_Click（）

DimxAsInteger

x=4

Printx;

Calltest（x）

Printx

EndSub

PublicSubtest（iAsInteger）

i=i+1

EndSub

A.46B.44C.45D.54

34.窗体的边框风格由窗体对象的（B）属性来设置。

A.BackStyleB.BorderStyleC.WindowStateD.FillStyle

35.若要以程序代码方式设置在窗体中显示文本的字体大小，则可用窗体对象的（C）属性来实现。

A.FontNameB.FontC.FontSizeD.FontBold

36.复选框的Value属性值为vbChecked时，表示（B）。

A.复选框未被选中B.复选框被选中

C.复选框内有灰色的勾D.复选框操作错误

37.将数据项"China"添加到列表框List1中成为第一项，应使用语句（A）。

A.List1.AddItem"China",0B.List1.AddItem"China",1

C.List1.AddItem0,"China"D.List1.AddItem1,"China"

38.把窗体的KeyPreview属性设置为True,然后编写如下事件过程:

　　PrivateSubForm_KeyPress（KeyAsciiAsInteger）　　

　　DimchAsString　　

　　ch=Chr（KeyAscii）　　

　　KeyAscii=Asc（UCase（ch））　　

　　PrintChr（KeyAscii+2）　　

　　EndSub

　　程序运行后,按键盘上的”A”键,则在窗体上显示的内容是（C）。

　　A.AB.BC.CD.D

39.假定时钟控件的Interval属性为1000，Enabled属性为True，并且有如下事件过程，计算机最终将发出（D）次beep声。

PrivateSubTimer1_Timer（）

Fori=1To5

beep

Nexti

EndSub

A.100B.1000C.5D.以上都不对

40.若要获知列表框中列表项的总项数，可通过访问（C）属性来实现。

A.ListB.ListIndexC.ListCountD.Text

41、关于VisualBasic"方法"的概念错误的是（C）

A.方法是对象的一部分B.方法是预先定义好的操作

C.方法是对事件的响应D.方法用于完成某些特定的功能

42.为了同时改变一个活动控件的高度和宽度，正确的操作是（A）

A.拖拉控件4个角上的某个小方块B.只能拖拉位于控件右下角的小方块

C.只能拖拉仅次于控件左下角的小方块D.不能同时改变控件的高度和宽度

43.删除列表框中指定的项目所使用的方法为（D　）

A.move　　B.remove　　C.clear　　D.removeitem

44.语句print　sgn（－6^2）+abs（－6^2）+int（－6^2）的输出结果是（　C）

A.－36　　B.1　　C.－1　　D.－72

45.inputbox函数返回值的类型为（B　）

A.数值　B.字符串　C.变体　D.数值或字符串（视输入的数据而定）

46.决定标签内显示内容的属性是（　　D　）

A.text　　B.name　　C.alignment　　D.caption

47.在窗体上画一个命令按钮（其name属性为commad1），然后编写如下代码：

optionbase1

privatesubcommand1_click（）

　dima

　a=array（1，2，3，4）

　j=1

fori=4to1step－1

　s=s+a（i）*j

　j=j*10

nexti

　prints

endsub

运行上面的程序，单击命令按钮，其输出结果是（　D　　）

A.4321　　B.12　　C.34　　D.1234

48.设a=6，则执行x=iif（a>5，－1，0）后，x的值为（　D　）

A.5　　B.6　　C.0　　D.－1

49.在窗体上画一个列表框和一个文本框，然后编写如下两个事件过程：

PrivateSubForm_Load（）

List1.AddItem"357"

List1.AddItem"246"

List1.AddItem"123"

List1.AddItem"456"

Text1.Text=""

EndSub

PrivateSubList1_DblClick（）

a=List1.Text

Printa+Text1.Text

EndSub

程序运行后，在文本框中输入“789”，然后双击列表框中的"456"，则输出结果为（B）

A.1245B.456789C.789456D.0

50.设S＝"中华人民共和国".表达式Left（S,1）+Right（S,1）+Mid（S,3,2）的值为（B）

A.”中华民国”B.”中国人民”C.”中共人民”D.”人民共和”

二、填空题

1．语句PrintInt（12345.6789*100+0.5）/100的输出结果是:

________12345.68_________。

2.在窗体上画一个文本框和一个图片框,然后编写如下两个事件过程:

　　PrivateSubForm_Click（）　　

　　Text1.Text="VB程序设计"　　

　　EndSub

　　PrivateSubText1_Change（）　　

　　Picture1.Print"VBProgramming"　　

　　EndSub

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

3.在窗体上画一个文本框，名称为Text1，然后编写如下程序：

PrivateSubForm_Load_（）

Open"d:

\temp\dat.txt"_______ForOutputAs#1__________

Text1.Text=""

EndSub

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

IfKeyAscii=13Then

________IfUCase（Text1.Text）="END"Then_________

Close#1

End

Else

_______IfUCase（Text1.Text）=Text1.TextThen__________

Text1.Text=""

EndIf

EndSub

以上程序的功能是：

在D盘temp文件夹下建立一个名为dat.txt的文件，在文本框中输入字符，每次按回车键都把当前文本框中的内容写入文件dat.txt，并清除文本框中的内容：

如果输入“END”，则不写入文件，直接结束程序。

请填空。

4.某人编写下列函数来判断a是否为素数，若是，则函数返回True；否则返回False。

Functionprime（aAsInteger）AsBoolean

DimkAsInteger，isprimeAsBoolean

Ifa<2Then

Isprime=False

Else

Isprime=True

k=2

DoWhilek

IfaModk=0Then

isprime=Fals