大学Visual Basic课程VB5.docx

大学Visual Basic课程VB5.docx

《大学Visual Basic课程VB5.docx》由会员分享，可在线阅读，更多相关《大学Visual Basic课程VB5.docx（11页珍藏版）》请在冰点文库上搜索。

大学VisualBasic课程VB5

VB模拟试题（5）

一、选择题

1．为了把窗体上某个控件变成活动控件，应执行的操作是（）

A．单击窗体的边框B．单击控件的内部

C．双击控件D．双击窗体

2．VB6.0集成环境的主窗口中不包括（）

A．标题栏B．菜单栏C．状态栏D．工具栏

3．为了保存一个VB应用程序，下列廉洁中正确的是（）

A．只保存窗体文件（.frm）B．只保存工程文件（.vbp）

C．分别保存工程文件和窗体文件D．分别保存工程文件和标准模块文件（.bas）

4．下列不可作为VB变量名的是（）

A．4*DeltaB．AlphaC．ABCD．ABT1

5．设a=2,b=3,c=4,d=5，表达式3>2*bORa=cANDb<>cORc>d的值是（）

A．1B．-1C．FalseD．True

6．下列逻辑表达式中，能正确表示条件“x,y都是奇数”的是（）

A．xMod2=1OryMod2=1B．xMod2=0OryMod2=0

C．xMod2=1AndyMod2=1D．xMod2=0AndyMod2=0

7．执行以下语句后，输出的结果是（）

s$="ABCDEFGHIJK"

PrintMid$（s$,3,4）;

prinLen（s$）

A．ABCD11B．CDEF11C．EFGH11D．HIJK11

8．若要求在文本框中输入密码时在文本框中显示#号，则应在此文本框的属性窗口中设置（）

A．Text属性值为#B．Caption属性值为#

C．PasswordChar属性值为#D．PasswordChar属性值为真

9．为了使列表框中的项目分为多项显示，需要设置的属性为（）

A．ColumnsB．StyleC．listD．MultiSelect

10．设置复选框或单选按钮标题对齐方式的属性是（）

A．AlignB．AlignmentC．SortedD．value

11．确定一个窗体或控件大小属性是（）

A．Width或HeightB．Width和HeightC．Top或LeftD．Top和Left

12．假定窗体的名称为（Name属性）为form1，则把窗体的标题设置为“VBTEST”的语句正确的是（）

A．form1=“VBTEST”B．Caption=“VBTEST”

C．form1.test=“VBTEST”D．form1.name=“VBTEST”

13．使文本框获得焦点的方法（）

A．ChangeB．GotFocusC．SetFocusD．LostFocus

14．为了使标签中的内容居中显示，应把Alignment属性设置为（）

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

15．假定窗体上有一个Text1文本框，为使它的文本内容位于中间并且没有边框，则正确的属性设置为（）

A．Text1.Alignment=1B．Text1.Alignment=2

Text1.BorderStyle=0Text1.BorderStyle=1

C．Text1.Alignment=1D．Text1.Alignment=2

Text1.BorderStyle=1Text1.BorderStyle=0

16．在窗体中添加一个列表框，然后编写如下两个事件过程：

PrivateSubForm_Click（）

List1.RemoveItem1

List1.RemoveItem3

List1.RemoveItem2

EndSub

PrivateSubForm_Load（）

List1.AddItem"AA"

List1.AddItem"BB"

List1.AddItem"CC"

List1.AddItem"DD"

List1.AddItem"EE"

EndSub

运行上面的程序，然后单击窗体，列表框中所显示的内容为（）

A．AAB．DDC．AAD．BB

BBEECCCC

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

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

B．执行语句Picture1=LoadPicture（“”）

C．执行语句Picture1.parent=””

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

18．在VB中要设置菜单项的快捷访问键，应使用（）符号

A．&B．*C．$D．@

19．假定有以下程序段：

Fori=1To3

Forj=5To1Step-1

Printi*j

Nextj,i

则语句Printi*j的执行次数是（）

A．15B．16C．17D．18

20．当一个工程含有多个窗体时，其中的启动窗体是（）

A．启动VB时建立的窗体B．第一个添加的窗体

C．最后一个添加的窗体工程属性D．在工程属性对话框中指定的窗体

21．在窗体中添加一个文本框，然后编写如下代码：

PrivateSubText1_KeyPress（KeyAsciiAsInteger）

DimcharAsString

char=Chr$（KeyAscii）

KeyAscii=Asc（UCase（char））

Text1.Text=String（3,KeyAscii）

EndSub

程序运行后，如果在键盘上输入字母“a”，则文本框中显示的内容为（）

A．aB．AC．aaaaD．AAAA

22．在窗体中添加一个标签Lb1Result和一个命令按钮Command1，然后编写程序，程序的功能是单击命令按钮，计算1+2+3+4+5的值，并把结果转化为字符串显示在标签内，能够实现上述功能的程序段是（）

A．PrivateSubCommand1_Click（）B．PrivateSubCommand1_Click（）

DimI,RAsIntegerDimI,RAsInteger

ForI=1To5Step1ForI=1To5Step1

R=R+IR=R+I

NextNext

Lb1Result.Name=Str$（R）Lb1Result.Caption=Str$（R）

EndSubEndSub

C．PrivateSubCommand1_Click（）D．PrivateSubCommand1_Click（）

DimI,RAsIntegerDimI,RAsInteger

DoWhileI<5Do

R=R+IR=R+I

I=I+1I=I+1

LoopLoopWhileI<5

Lb1Result.Caption=Str$（R）Lb1Result.Caption=Str$（R）

EndSubEndSub

23．在窗体中添加两个文本框（其Name属性分别为Text1和Text2）和一个命令按钮（其Name属性为Command1），然后编写如下事件过程：

PrivateSubCommand1_Click（）

x=0

DoWhilex<10

x=（x-2）*（x+3）

n=n+1

Loop

Text1.Text=Str（n）

Text2.Text=Str（x）

EndSub

程序运行后，单击命令按钮，在两个文本框中显示的值分别为（）

A．1和0B．2和24C．3和50D．4和68

24．在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码：

PrivateSubCommand1_Click（）

Dima（10）AsInteger

Dimp（3）AsInteger

k=1

ForI=1To10

a（I）=I

NextI

ForI=1To3

p（I）=a（I*1）

NextI

ForI=1To3

k=k+p（I）*2

NextI

Printk

EndSub

程序运行后，单击命令按钮，输出结果是（）

A．15B．13C．30D．37

25．阅读程序：

PrivateSubCommand1_Click（）

a=10:

b=15:

c=20:

d=25

Printa;Spc（5）;b;Spc（5）;c

Printb;Space$（5）;b;Space$（5）;c

Printc;Spc

（2）;"+";Spc

（2）;d;

PrintSpc

（2）;"=";Spc

（2）;c+d

EndSub

程序运行后，单击窗体，输出结果是（）

26．在窗体中添加一个名称为Command1的命令按钮，然后编写如下程序：

PrivateSubCommand1_Click（）

DimIAsInteger,jAsInteger

Dima（10,10）AsInteger

DimsumAsInteger

ForI=1To10

Forj=1To10

a（I,j）=（I-1）*3+j

Nextj

NextI

……

Printsum

EndSub

此过程的功能是计算数组a中的副对角线上元素的和，为实现此；功能，省略号处的程序段应该是（）

A．ForI=1To10B．ForI=1To10

Forj=1To10Forj=1To10

IfI+j=10ThenIfI+j==10Then

sum=sum+a（I,j）sum=sum+a（I,j）

EndIfEndIf

NextjNextj

NextINextI

C．ForI=1To10D．ForI=1To10

Forj=1To10Forj=1To10

IfI+j=10ThenIfI+j==10

sum=sum+a（I,j）sum=sum+a（I,j）

NextjNextj

NextINextI

27．阅读程序：

Functionf（aAsInteger）

b=0

Staticc

b=b+1

c=c+1

f=a+b+c

EndFunction

PrivateSubCommand1_Click（）

DimaAsInteger

a=2

ForI=1To3

Printf（a）

NextI

EndSub

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

A．B．C．D．

28．假定有以下两个过程：

SubS1（ByValxAsInteger,ByValyAsInteger）

DimtAsInteger

t=x

x=y

y=t

EndSub

SubS2（xAsInteger,yAsInteger）

DimtAsInteger

t=x

x=y

y=t

EndSub

则以下说法中正确的是（）

A．用过程S1可以实现交换两个变量值的操作，S2不能实现

B．用过程S2可以实现交换两个变量值的操作，S1不能实现

C．用过程S1和S2都可以实现交换两个变量值的操作

D．用过程S1和S2都不能实现交换两个变量值的操作

29．在窗体中添加一个通用对话框Commondialog1和一个命令按钮Command1，当单击按钮时打开颜色对话框，能实现此功能的程序段是（）

A．PrivateSubCommand1_Click（）B．PrivateSubCommand1_Click（）

CommonDialog1.ShowOpenCommonDialog1.ShowColor

EndSubEndSub

C．PrivateSubCommand1_Click（）D．PrivateSubCommand1_Click（）

CommonDialog1.ShowFontCommonDialog1.ShowHelp

EndSubEndSub

30．在窗体中添加一个通用对话框，其名称为CommonDialog1，然后添加一个命令按钮。

要求单击命令按钮时，打开一个打开文件的通用对话框。

该窗口的标题为“打开”，在文件类型框中显示的是TextFiles（*.txt）。

则能够满足上述要求的程序是（）

A．PrivateSubCommand1_Click（）

CommonDialog1.Flags=cdlOFNHideReadOnly

CommonDialog1.Filter="allfiles（*.*）|*.*|textfiles"&"（*.txt）|*.txt|Batchfiles（*.bat）|*.bat"

CommonDialog1.FilterIndex=1

CommonDialog1.ShowOpen

MsgBoxCommonDialog1.FileName

EndSub

B．PrivateSubCommand1_Click（）

CommonDialog1.Flags=cdlOFNHideReadOnly

CommonDialog1.Filter="allfiles（*.*）|*.*|textfiles"&"（*.txt）|*.txt|Batchfiles（*.bat）|*.bat"

CommonDialog1.FilterIndex=2

CommonDialog1.ShowOpen

MsgBoxCommonDialog1.FileName

EndSub

C．PrivateSubCommand1_Click（）

CommonDialog1.Flags=cdlOFNHideReadOnly

CommonDialog1.Filter="allfiles（*.*）|*.*|textfiles"&"（*.txt）|*.txt|Batchfiles（*.bat）|*.bat"

CommonDialog1.FilterIndex=1

CommonDialog1.ShowSave

MsgBoxCommonDialog1.FileName

EndSub

D．PrivateSubCommand1_Click（）

CommonDialog1.Flags=cdlOFNHideReadOnly

CommonDialog1.Filter="allfiles（*.*）|*.*|textfiles"&"（*.txt）|*.txt|Batchfiles（*.bat）|*.bat"

CommonDialog1.FilterIndex=2

CommonDialog1.ShowSave

MsgBoxCommonDialog1.FileName

EndSub

二、填空题

1．以下语句的输出结果是____________

a%=4.5678

Printa%

2．下列语句的输出结果是_____________

PrintInt（12345.6789*100+0.5）/100

3．窗体、图片框或图像框中的图形通过对象的___________属性设置。

4．由Arry函数建立的数组的名字必须是_____________类型

5．以下程序段的输出结果是____________

num=0

Whilenum<=2

num=num+1

Printnum

Wend

6．在窗体中添加一个命令按钮（其Name属性为Command1），然后编写如下代码：

PrivateSubCommand1_Click（）

Dimn（）AsInteger

Dima,bAsInteger

a=InputBox（"Enterthefirstnumber"）

b=InputBox（"Enterthesecondnumber"）

ReDimn（aTob）

Fork=LBound（n,1）ToUBound（n,1）

n（k）=k

Printn（k）

Nextk

EndSub

程序运行后，单击命令按钮，在输入对话框中分别输入2和3，输出结果为___________。

7．在窗体中添加两个文本框和一个命令按钮，然后在命令按钮的代码窗口中编写如下代码：

PrivateSubCommand1_Click（）

Text1.Text="VB"

Text2.Text=Text1.Text

Text1.Text="ABC"

EndSub

程序运行后，单击命令按钮后，两个文本框中显示的内容分别为________和________。

8．以下程序的功能是：

从键盘上输入若干个学生的考试分数，统计并输出最高分数和最低分数，当输入负数时结束输入，输出结果，请将程序补充完整。

PrivateSubForm_Click（）

Dimx,amax,aminAsSingle

x=InputBox（"Enterascore"）

amax=x

amin=x

DoWhile_____________

Ifx>amaxThen

amax=x

EndIf

If_____________Then

amin=x

EndIf

x=InputBox（"Enterascore"）

Loop

Print"max=";amax,"min=";amin

EndSub

9．设计一个计时程序。

该程序用户界面如图所示，由一个文本框（Text1）、两个按钮：

命令按钮1（Command1）、命令按钮2（Command2）组成。

程序运行后，单击开始按钮，则开始计时，文本框中显示秒数，单击停止按钮，则计时停止。

单击窗口则退出。

请将下列程序补充完整。

OptionExplicit

Dimi

PrivateSubCommand1_Click（）

i=0

Timer1.Interval=1000

Timer1.Enabled=True

EndSub

PrivateSubCommand2_Click（）

Timer1.Enabled=False

EndSub

PrivateSubForm_Click（）

__________Me

EndSub

PrivateSubForm_Load（）

Timer1.Enabled=False

Text1.Text=0

EndSub

PrivateSubTimer1____________（）

i=i+1

Text1.Text=___________

EndSub

10．下面程序的功能是：

输入一个字符串，在“d:

\f1.dat”文件中查找输入的字符串是否存在，若存在，则输出“找到字符串”，否则输出“没找到字符串”。

请将下列程序补充完整。

PrivateSubForm_Load（）

a$=InputBox（"请输入要查找的字符串"）

Open"d:

\f1.dat"For____________As#1

b$=Input（LOF

（1）,1）

___________

y=InStr（1,b$,a$）

Ify<>0Then

Print"找到字符串";a$

Else

Print"没找到字符串";a$

EndIf

EndSub

答案：

一、选择题：

1---5BCCAC

6--10CBCAB

11-15BBCCD

16-20CBAAD

21-25DBBBA

26-30ABABB

二、填空题：

1、4

2、12345.68

3、PICTURE

4、VARIANT

5、3

6、2

3

7、ABC

8、VB

9、X>=0

10、X

11、UNLOAD

12、TIMER

13、I

14、INPUT

15、CLOSE