化工学院VB考试练习.docx

化工学院VB考试练习.docx

《化工学院VB考试练习.docx》由会员分享，可在线阅读，更多相关《化工学院VB考试练习.docx（25页珍藏版）》请在冰豆网上搜索。

化工学院VB考试练习

一、单项选择题

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

A）标准模块文件的扩展名是.bas　　　

B）标准模块文件是纯代码文件　

C）在标准模块中声明的全局变量可以在整个工程中使用　　　　　　　　

D）在标准模块中不能定义过程

2.在Visual　Basic中，表达式3*2\5　Mod　3的值是（　　　）。

A）1　　　B）0　　　C）3　　　D）出现错误提示

3.以下选项中，不合法的Visual　Basic的变量名是（　　　）。

A）a56　　　B）_xyz　　　C）a_b　　　D）andif

5.现有语句：

y=IIf（x>0,　x　Mod　3,　0），设x=10，则y的值是（　　　）。

A）0　　　B）1　　　C）3　　　D）语句有错

6.为了使文本框同时具有垂直和水平滚动条，应先把MultiLine属性设置为True，然后再把ScrollBars属性设置为（　　　）。

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

8.窗体上有一个名称为Hsscroll1的滚动条，程序运行后，单击滚动条箭头时，立即在窗体上显示棍动条的位置（即刻度值）。

下面能够实现上述操作的事件过程是（　　　）。

A）Private　Sub　Hscroll1_Change（）

　　　Print　Hscroll1.Value

End　Sub

B）Private　Sub　Hscroll1_Change（）

　　　Print　Hscroll1.SmallChange

End　Sub

C）Private　Sub　Hscroll1_Scroll（）

　　　Print　Hscroll1.Value

End　Sub

D）Private　Sub　Hscroll1_　Scroll　（）

　　　Print　Hscroll1.　SmallChange

End　Sub

10.　要使两个单选按钮属于同一个框架，正确的操作是（　　　）。

A）先画一个框架，再在框架中画两个单选按钮　　　

B）先画一个框架，再在框架外画两个单选按钮，然后把单选按钮拖到框架中　

C）先画两个单选按钮，再用框架将单选按钮框起来　　　　　　　　

D）以上三种方法都正确

11.能够存放组合框的所有项目内容的属性是（　　　）。

A）Caption　　　B）Text　　　C）List　　　　D）Selected

12.设窗体上有一个标签Label1和一个计时器Timer1，Interval属性被设置为1000要求程序运行时每秒在标签中显示一次系统当前时间。

以下可以实现上述要求的事件过程是（　　　）。

A）Private　Sub　Timer1_Timer（）

　　　Label1.Caption=True

End　Sub

B）Private　Sub　Timer1_Timer（）

　　　Label1.Caption=Time$

End　Sub

C）Private　Sub　Timer1_Timer（）

　　　Label1.Interval=1

End　Sub

D）Private　Sub　Timer1_Timer（）

For　k=1　To　Timer1.Interval　　

y　=　5

End　Sub

13.设有窗体和以下程序：

Private　Sub　Command1_Click（）

　　Text1.Text　=　"Visual　Basic"

End　Sub

Private　Sub　Text1_LostFocus（）

　　If　Text1.Text　<>　"BASIC"　Then

　　　　Text1.Text　=　""

　　　　Text1.SetFocus

　　End　If

End　Sub

程序运行时，在Text1文本框中输入"Basic"，然后单击Command1按钮，则产生的结果是（　　　）。

A）文本框中无内容，焦点在文本框中　　B）文本框中为"Basic"，焦点在文本框中　

C）文本框中为"Basic"，焦点在按钮上　　D）文本框中为"Visual　Basic"，焦点在按钮上

14.窗体上有一个名称为Command1的命令按钮，其事件过程如下：

Private　Sub　Command1_Click（）

　　x　=　"VisualBasicProgramming"

　　a　=　Right（x,　11）

　　b　=　Mid（x,　7,　5）

　　c　=　MsgBox（a,　,　b）

End　Sub

运行程序后单击命令按钮，以下叙述中错误的是（　　　）。

A）信息框的标题是Basic　　　　B）信息框中的提示信息是Programming　

C）c的值是函数的返回值　　　　D）MsgBox的使用格式有错

二、判断题

1、在if<条件>then结构中，条件可以是逻辑表达式或关系表达式。

（　）

2、若计时器（Timer）控件的Interval属性的单位是秒。

（　）

3、在For<控制变量>＝<初值>To<终值>[Step<步长>]结构中，初值只能取数值。

（　）

4、窗体的卸载使用Load语句。

（　）

5、表达式268="268"的结果为True。

（　）

6、语句if0thenprint"Hello"是错误的。

（　）

7、在for循环结构对循环变量的赋值中，终值可以大于初值，也可以小于初值。

（　）

8、将文本框Text1中的内容清除，可使用语句Text1.cls。

（　）

9、设a＝5，则语句printa＝5的运行结果为True

（　）

10、通过label1.cls可以清除由label1所显示的内容。

（　）

三、填空题（）

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

　num=2

　　Whilenum<=3

　　num=num+1

　　Printnum;

　　Wend

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

t=0

Fori=1To4

Forj=6To1Step-2

t=t+1

Nextj

Nexti

Printt

一、选择题（单选题）

1、在VisualBasic语言中，对象能够执行的动作是

　　A）事件B）方法C）属性D）事件过程

2、要求窗体文件main.frm运行后,将焦点设置到name=text1的控件上,命令是:

__

A．name.setfocusB．text1.setfocus

C．name.setfocus=trueD．text1.setfocus=true

3、将数学表达式写成VisualBasic的表达式，其正确的形式是:

A）5*exp

（2）+Sin（a+b）^2B）5*exp

（2）+Sin^2（a+b）

C）5*ln

（2）+Sin（a+b）^2D）5*ln

（2）+Sin^2（a+b）

4、将变量va的值输出到标签控件上显示，使用的语句是：

＿＿＿

A．text1.value=vaB．text1.caption=va

C．label1.caption=vaD．label1.value=va

5、设置按钮command1用鼠标单击不发生click事件，设置属性语句是:

_____

A．command1.visible=true　　　　B．command1.visible=false

C．command1.enabled=true　　　　D．command1.enabled=false

6、在文本框text1中输入数据，当焦点一旦离开，就能引发对象事件过程的执行的事件是：

_______

Ａ．clickＢ．changeＣ．lostfocusＤ．gotfocus

7、对象．Print　方法是vb程序中用于输出数据的方法，对象1是指：

____

A．form,picturebox,printer,label1

B．form,picture1,printer,debug

C．form,picture1,label1,text1

D．form,picture1,label1,printer

8、下面程序的运行结果是：

PrivateSubForm_Click（）

Dimmoney!

tax!

money=Val（InputBox（"money=","input","3500"））

SelectCasemoney

CaseIs<=1000

Print"money=";money,"Tax=";0

Case1000To3000

Print"money=";money,"Tax=";（money-1000）*0.1

Case3000To6000

Print"money=";money,"Tax=";（money-3000）*0.15+200

CaseElse

Print"money=";money,"Tax=";（money-6000）*0.2+650

EndSelect

EndSub

A．money=1000tax=0Ｂ．money=3500tax=275

Ｃ．money=4500tax=425Ｄ．money=6500tax=750

9、下面程序的运行结果是：

________　　　　

PrivateSubForm_Click（）

Dimy%,leap!

y=Val（InputBox（"nowyear=","input","2004"））

闰年：

能被4整除且不能被100整除

或能被400整除

If（yMod4=0AndyMod100<>0）OryMod400=0Then

leap=1

Else

leap=0

EndIf

IfyMod100=0Then

IfyMod400=0Then

leap=1

Else

leap=0

EndIf

ElseIfyMod4=0Then

leap=1

EndIf

If（leap）Then非零为True，零为False

Printy;"isleap"

Else

Printy;"isnotleap"

EndIf

EndSub

A．2004isleapＢ．2004is1Ｃ．2004isnotleapＤ．2004isnot0

10、下面程序的运行结果是：

________　　　　

PrivateSubForm_Click（）

Dimm%,n%

m=1

请问：

语句m=m+n被执行了多少次？

Forn=1To10Step2

m=m+n

n=n+1

Nextn

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

EndSub

A．n=10m=22Ｂ．n=11m=23

Ｃ．n=13m=36Ｄ．n=13m=23

11、下面程序的运行结果是：

________　

PrivateSubForm_Click（）

Dimnum%,sum%,n%

sum=0:

n=1:

num=6

Whilen

IfnumModn=0Then能被6整除的数

Print"+";n;

sum=sum+n

EndIf

n=n+1

Wend

Print"=";sum

EndSub

A．sum=6Ｂ．1;2;3=6Ｃ．+1+2+3=6Ｄ．+1+2+3+4+5+6=21

12、下面程序的运行结果是：

________　

PrivateSubform_click（）

Dims%,t%,m%,n%,K%

m=3:

s=0

Print"s=";

Forn=1Tom

Print"+";n;"!

";

t=1

ForK=1Tom

t=t*K求m!

=3!

-->t=6

NextK

s=s+t

Nextn

Print"=";s

EndSub

A．s=6Ｂ．s=+1+2+3=6

Ｃ．s=+1!

+2!

+3!

=18Ｄ．+1!

+2!

+3!

=18

13、下面程序的运行结果是：

________　

PrivateSubForm_Click（）

Dimstr1$,chr1$

str1=InputBox（"string=","input","Visual_basic是可视化面向对象的结构化高_级程序设计语言"）

chr1=Left（str1,1）+Mid（str1,8,1）+Right（str1,6）

Printchr1

EndSub

A．Va计语言Ｂ．Vb程序设计语言

Ｃ．V+a+计语言Ｄ．V+b+程序设计语言

14、下面程序的运行结果是：

________　

PrivateSubForm_Click（）

Dimstr1$,n

Text1.Text="microsoft_visual_basic_programming"

Text1.SelStart=17

Text1.SelLength=5

Text1.SelText="Foxpro"

str1=Text1.Text

n=Len（str1）

Printstr1,n

EndSub

A．microsoft_visual_basic_programming34

Ｂ．Foxpro6

Ｃ．microsoft_visual_Foxpro_programming35

Ｄ．Foxpro_programming

选择题1

1．要把一个命令按钮设置成无效，应设置其哪一个属性值　　　　。

A．VisibleB．EnabledC．DefaultD．Cancel

【解答】B

2．执行x$=InputBox（"请输入x的值"）时，在弹出的对话框中输入123，在列表框Listl选中第1个列表项（数据为456）。

使y的值是123456的语句是　　　　。

A．y=x$+Listl.List

（1）B．y=Val（x$）+Val（Listl.List（0））

C．y=Val（x$）+Val（Listl．List

（1））D．y=Val（x$）&Val（Listl．List（0））

【解答】D

3．要设置计时器控件的定时时间，需设置的属性是　　　　。

A．IntervalB．EnabledC．ValueD．Text

【解答】A

5．控制名称都是系统的默认控件名，下列语句错误的是　　　　。

A．Command1.Caption=List1.Text

B．Label1.Caption=List1.List

（1）

C．List1.List

（2）=List1.Text+Str（List1.ListIndex）

D．Text1.Text=List1.Name+Text1.Caption

【解答】D

7．窗体上有一个命令按钮Command1、一个文本框Text1和一个列表框List1。

文本框用来输入要添加到列表框中的项目内容。

程序运行后，单击命令按钮，会将文本框中的内容放入列表框中。

程序如下：

PrivateSubCommandl_Click（）

Textl.Text=""

Textl.SetFocus

EndSub

程序的空白行应填写语句　　　　。

A．List1.Text=Text1.TextB．Listl.List=Textl.Text

C．Listl.AddItem=Textl.TextD．Listl.AddItem=Textl.Text改为Listl.AddItemTextl.Text

【解答】D

选择题2

1．下列关于属性设置的叙述错误的是　　　　。

A．一个控件具有什么属性是VisualBasic预先设计好的，用户不能改变它

B．一个控件具有什么属性值是VisualBasic预先设计好的，用户不能改变它

C．一个控件的属性既可以在属性窗口中设置，也可以用程序代码设置

D．一个控件的属性在属性窗口中设置后，还可以再利用程序代码为其设置新值

2．以下过程是标签Label1的　　　　事件。

PrviateSubLabel1_Click（）

EndSub

A.单击B.双击C.拖拽D.移动

3．下列控件中可设置滚动条是　　　　。

A.检查框（复选框）B.框架C.文本框D.标签框

4．标签所显示的内容，由　　　　属性值决定。

A.TextB.NameC.CaptionD.Alignment

5．定时器的定时间隔单位是　　　　。

A.秒B.微秒C.毫秒D.分

7．若要求向文本框输入密码时，只在文本框中显示&号，则应当在此文本框的属性窗口中设置　　　　。

A.Text属性值为&B.Caption属性值为&　

C.PasswordChar属性值为空D.PasswordChar属性值为&

8．若要设置定时器的定时间隔，可通过　　　　属性来设置。

A.IntervalB.ValueC.EnabledD.Text

9．若要设置定时器的定时间隔设为5秒，应将Interval属性值设为　　　　。

A.5B.50C.500D.5000

10．若要使不可见命令按钮显示出来，可通过设置　　　　属性的值为True来实现。

A.VisibleB.EnabledC.DefaultD.Value

11．若要使定时器起作用，应将其　　　　属性设置值设为True。

A.IntervalB.ValueC.TextD.Enabled

12．若要使命令按钮失效，可设置　　　　属性为False来实现。

A.ValueB.EnabledC.VisibleD.Cancel

13．若要向列表框新增列表项，可使用　　　　方法来实现。

A.AddB.RemoveItemC.ClearD.AddItem

14．要获得垂直滚动条Vscrollbar控件所能表示的最大值，可通过调用该控件的

　　　　属性来实现。

A.ValueB.MaxC.MinD.LargeChange

15．要将命令按钮上的文字设置为“粗体”可通过设置　　　　属性值为True来实现。

A.FontItalicB.FontBoldC.FontUnderlineD.FontSize

16．要将命令按钮上的文字设置为“斜体”可通过设置　　　　属性值为True来实现。

A.FontItalicB.FontBoldC.FontUnderlineD.FontSize

17．要将命令按钮上的字体设为“隶书”，可设置　　　　的属性为“隶书”。

A.FontBoldB.BackItalicC.FontNameD.FontSize

19．组合框的风格可通过　　　　属性来设置。

A.BackStyleB.BorderStyleC.StyleD.Sorted

20．标签的边框由　　　　属性的设置来决定。

A.BackColorB.BackStyleC.BorderStyleD.AutoSize

22．单选按钮的当前状态可通过　　　　属性来访问。

A.ValueB.CheckedC.SelectedD.Caption

23．当滚动条中的滑块位置变化时，将触发其　　　　事件。

A.LostFocusB.SetFocusC.ChangeD.GetFocus

24．假定Picture1和Form1分别为图片框和窗体的名称，以下语句　　　　可清除图片框中的文本信息。

A.Picture1.clsB.Picture1.clearC.Form1.clsD.Form1.clear

25．确定一个窗体或控件的大小的属性是　　　　。

A.Width或HeightB.Width和Height

C.Top或LeftD.Top和Left

26．确定一个控件在窗体上的位置的属性是　　　　。

A.Width或HeightB.Width和Height

C.Top或LeftD.Top和Left

27．若要获得当前列表项的数目，可通过访问　　　　属性来实现。

A.ColumnsB.TextC.ListIndexD.ListCount

28．若要获得滚动条的当前值，可通过访问　　　　属性来实现。

A.TextB.ValueC.MaxD.Min

29．若要将命令按钮设置为默认按钮，可设置　　　　属性为True来实现。

A.CancelB.ValueC.EnabledD.Default

30．若要清除列表框中列表项，可使用　　　　方法来实现。

A.AddB.RemoveItemC.ClearD.AddItem

31．若要设置文本框最大可接收的字符数，可通设置　　　　属性值来实现。

A.MultilineB.LengthC.MinD.MaxLength

33．若要使标签的大小自动与所显示的文本相适应，可通过设置　　　　属性的值为True来实现。

A.AutoSizeB.AlignmentC.ApperanceD.Visible

34．若要使只读文本框成为可编辑文本框，可通设置　　　　属性值为False来实现。

A.ReadOnlyB.UnlockC.EnabledD.Locked

36．用户在组合框中所输入的数据，可通过访问组合框对象的　　　　属性来获得。

A.TextB.ListC.ListindexD.ListCount

37．用鼠标选择列表框中的项目，将触发其　　　　事件。

A.ChangeB.ClickC.SelectD.ItemCheck

38．在VB窗体要设计两组单选按钮，应用　　　　控件对其分组。

A.PictureB.ImageC.LabelD.Frame

39．在运行时，若要能调用某命令按钮的Click事件过程，应将该按钮的　　　　属性设置为True。

A.VisibleB.EnabledC.DefaultD.Value

40．标签中内容的对齐方式，由　　　　属性值决定。

A.TextB.NameC.CaptionD.Alignment

41．当拖动滚动条时，将触发其　　　　事件。

A.LostFocusB.SetFocusC.ScrollD.GetFocus

42．假定Picture1,Form1，Text1，Label1分别为图片框、窗体、文本框、标签的名称，程序代码如下，单击图片框时，清除下列哪个对象的内容　　　　。

PrivateSubPicture1_Click（）

Cls

EndSub

A.Picture1B.Text1C.Form1D.Label1

43．