大一的vb期末考试题和答案.docx

大一的vb期末考试题和答案.docx

《大一的vb期末考试题和答案.docx》由会员分享，可在线阅读，更多相关《大一的vb期末考试题和答案.docx（20页珍藏版）》请在冰点文库上搜索。

大一的vb期末考试题和答案

VB期末考试试题一、填空题

1、VB程序设计的主要特点是

（1）和

（2）。

2、在VB中，最主要的两种对象是（3）和（4）。

3、工程是构成应用程序文件的（5）。

4、方法是VB提供的一种（6），用来完成一定的操作。

5、浮点类型数据包括单精度型和___（7）__数据。

6、事件是窗体或控件对象识别的___（8）____。

7、可用窗体的___（9）_方法在窗体中显示文字。

8、复选框控件Value属性指示复选框处于____（10）___或禁止状态（暗淡的）中的某一种。

9、在VB中，修改窗体的（11）和（12）属性值，可改变窗体的大小。

10、双击工具箱中的控件图标，可在窗体的（13）出现一个尺寸为缺省值的控件。

11、在MsgBox函数中，如果缺省title参数，则使用（14）作为消息框的标题。

12、设x＝34.58，语句PrintFormat（x,“000.0”）的输出结果是（15）。

13、在VB中，数值型变量的初值为（16），Varant型变量的初值为（17），布尔型变量的初值为（18）。

14、设置窗体的（19）属性，可在窗体上显示图片。

15、程序运行工程中，清除MP图片框中的图片应使用语句（20）。

二、选择题

1、菜单控件只包括一个事件，即

（1），当用鼠标单击或键盘选中后按“回车”键时触发该事件，除分隔条以外的所有菜单控件都能识别该事件。

A、GotFocusB、LoadC、ClickD、KeyDown

2、滚动条控件（如图所示）的Max属性所设置的是

（2）。

A、滚动框处于最右位置时，一个滚动条位置的Value属性最大设置值

B、单击滚动条和滚动箭头之间的区域时，滚动条中滚动块的最大移动量

C、单击滚动条的箭头区域时，滚动条中滚动块的最大移动量

D、滚动条控件无该属性

3、SQL语句Select*Formstudent中的*表示（3）。

A、所有记录B、所有字段C、所有表D、都不对

4、以下选项中，不属于标签的属性是（4）。

A、EnabledB、CaptionC、DefaultD、Font

5、要求改命令按钮显示的文本，应当在属性窗口中改变的属性是（5）。

A、CaptionB、NameC、TextD、Label

6、设置一个单选按钮（OptionButton）所代表选项的选中状态，应当在属性窗口中改变的属性是（6）。

A、CaptionB、NameC、TextD、Value

7、允许在菜单项的左边设置打勾标记，下面哪种论述是正确的？

（7）。

A、在标题项中输入&，然后打勾B、在索引项中打勾

C、在有效项中打勾D、在复选项中打勾

8、当执行以下过程时，在窗体上将显示（8）。

PrivateSubCommand1_Click（）

Print"VB";

Print"Hello!

";

Print"VB"

EndSub

A、VBHello!

VBB、VB

Hello!

VB

C、VBD、VB

Hello!

VBHello!

VB

9、语句Print"Theansweris:

";20/4-2的结果为（9）。

A、Theansweris20/4-2B、Theansweris3

C、Theansweris"20/4-2"D、非法语句

10、下列哪个控件是容器控件（10）。

A、ImageB、PictureC、ComboBoxD、FileListBox

11、若要将窗体从内存中卸载出去，其实现的方法是（11）。

　　A.Show　B.Hide　　C.Load　　D.UnLoad

12、以下选项中，不是VisualBasic控件的是（12）。

　A.窗体　　B.定时器　　C.单选框　　D.命令按钮

13、双击窗体中的对象后，VisualBasic将显示的窗口是（13）。

A.代码窗口　B．工具箱　C．项目（工程）窗口　D．属性窗口

14、可决定窗体的左上角是否有控制菜单的属性是（14）。

A.ControlBoxB.MinButton

C.MaxButton　　D.BorderStyle

15、设有如下语句：

Strl＝InputBox（"输人"，""，"练习"）

从键盘上输人字符“示例”后，Strl的值是（15）。

A．“输入”B．“”C．“练习”D．“示例”

16、窗体Form1的Name属性是Frm1,它的单击事件过程名是（16）。

A.Form1_ClickB.Form_ClickC.Frm1_ClickD.Me_Click

17、窗体的hide属性的含义是（17）。

A.隐藏B.展现C.装入D.卸载

18、若要设置定时器控件的定时时间，需设置的属性是（18）。

　　A．Enabled　　B．Value　　C．Interval　　D．Text

19、能够改变复选框中背景颜色的属性是（19）。

A．ValueB．FontColorC．BackColorD．Font

20、窗体能响应的事件是（20）。

A．ActiveFormB．LoadC．DriveD．Change

三、判断题（判断下列正确与否，正确的打√，错误的打ⅹ。

）

1、三种方式的组合框都允许用户输入哪些不在列表框中的选项。

2、图象框中的Stretch属性为true时，其作用是图形自动调整大小以适应图象控件。

3、在菜单编辑器中使用“索引”时，可有一组菜单项具有相同的“名字”。

4、通过改变属性窗口中的Name属性，来改变窗体的标题。

5、创建VB应用程序的三个主要步骤是：

（1）创建应用程序界面

（2）设置控件（3）编写代码。

6、变量是指在程序运行过程中其值可以改变的那些量，而值不能改变的是常量。

7、已知P＝MsgBox（“Howareyou?

"，VbYesNo+VbQuestion，“Hello!

”），变量P是Integer数据类型。

8、工程文件的扩展名是.vbg。

9、VB允许设计和使用用户自己设计的控件。

10、OptionButton控件没有DblCliek事件。

11、同一条记录中的各数据具有相同的类型。

12、使用Data控件可以直接显示数据库中的数据。

13、ImageList是一个图像容器控件，可用作工具栏的图像库。

14、当用户单击工具栏按钮时，将触发工具栏按钮的ButtonClick事件。

15、在VB的工程资源管理器中，如果从工程中移除已经保存过的文件，该文件仍然被物理删除（真正删除）。

16、如果列表框的ListConut的属性为10，则列表框最后一项的ListIndex值为10。

17、要是某个命令按钮不起作用，应将该按钮的Enabeld属性设置为False。

18、使用数组定义语句：

DimD$（10），则数组D中各元素的值为空。

19、如果在一行中输入多条语句，各语句之间用使用；分隔。

20、在代码窗口中输入某行代码并按回车键之后，如果代码变成红色，说明该行代码有语法错误。

四、读程序题，写出程序运行结果

1、PrivateSubForm_Click（）

StaticSUMAsInteger

I=1

DoWhileI<=10

SUM=SUM+I

I=I+1

Loop

PrintSUM

EndSub

运行程序，第一次单击窗体：

第二次单击窗体：

2、PrivateSubForm_Click（）

Print"*";Tab（6）;2,Tab（15）;5

Print

ForI=15To16

PrintI;

Forj=2To6Step3

PrintTab（3*j）;j*I;

Nextj

Print

NextI

EndSub

程序运行结果：

五、编程题

（一）窗体中有图片框（Picture1）和计时器（Timer1）两个控件，运行程序时，将图片加载到图片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动100twip（20分之一像素）。

请填空：

PrivateSubForm_load（）

（1）=loadPicture（“c:

\pic\ball.ico”）

（2）.Interval=200

EndSub

PrivateSubTimer1_Timer（）

Staticx,yAsInteger

x=x+100

y=y+100

Picture1.Move（3）

EndSub

（二）有一个单击按钮过程，其作用是产生50个60～100的随机数，统计其中被6整除余2的个数，并将这些数输出。

请填空：

PrivateSubCommand1_Click（）

DimxAsInteger,N%

DimCounterAsInteger

（1）Timer

ForN=1To50

X=Rnd（）*

（2）

If（3）=2Then

Printx

Counter=（4）

（5）

NextN

PrintCounter

EndSub

《VB程序设计与应用》参考答案

一、填空题12345

答案可视化设计事件驱动编程窗体（form）控件集合

题号678910

答案特殊子程序双精度动作Print选中

题号1112131415

答案高度（Height）宽度（Width）中央工程134.6

题号1617181920

答案0空FalsePictureCls

二、选择题12345

答案CABCA

题号678910

答案DDABB

题号1112131415

答案DAAAD

题号1617181920

答案CACCB

三、判断题12345678910

答案ХХХ√Х√√√√Х

11121314151617181920

答案√Х√√ХХ√ХХ√

四、程序阅读题：

（一）（10分）

1、55

2、110

（二）、（10分）

*25

153075

163280

五、编程题（20分）

（一）1、Picture1.Picture

2、Timer1

3、x,y

（二）1、Randomize

2、Rnd（）*41+60

3、xMod6

4、Counter＋1

5EndIf

一、单项选择题（共10分）

1．在代码中引用一个控件时，应使用控件的（B）属性。

A．CaptionB．NameC．TextD．Index

2．设变量x=4，y=-1，a=7，b=-8,下面表达式（A）的值为“假”。

A．x+a<=b-yB．x>0ANDy<0

C．a=bORx>yD．x+y>a+bANDNOT（y

3．表达式Int（Rnd*71）+10产生的随机整数范围是（C）。

A．（10，80）B．（10，81）C．[10，80]D．[10，81]

4．函数Sgn（3.1416）的返回值是（C）。

A．-1B．0C．1D．以上都不对

5．67890属于（D）类型数据。

A．整型B．单精度浮点数C．货币型D．长整型

6．下列变量名中正确的是（D）。

A．3SB．PrintC．SelectMyNameD．Select_1

7．下列赋值语句（A）是有效的。

A．sum=sum-sumB．x+2=x+2C．x+y=sumD．last=y/0

8．以下的控件或方法具有输入和输出双重功能的为（B）。

A．PrintB．TextboxC．OptionbuttonD．Checkbox

9．若要获得列表框中被选中的列表项的内容，可以通过访问（D）属性来实现。

A．NameB．ListIndexC．ListCountD．Text

10．下列代码的运行结果为（B）。

PrivateSubcommand1_click（）

Dimm（10）

Fork=1To10

m（k）=11-k

Nextk

x=5

Printm（2+m（x））

EndSub

A．2B．3C．4D．5

二、填空题（10分）

1．写出整数n能同时被13和17整除的Basic表达nMod13=0AndnMod17=0式。

2．代码窗口中有两个下拉列表框：

左侧是（对象）列表框，右侧是过程列表框。

3．写出在字符串”VisualBasic6.0”中截取”Visual”的Basic表达式LEFT（“VisualBasic6.0”,6）。

4．函数Len（“abcdef”）的返回值是（6）。

5．设a=2，b=5，c=-2，d=100，则a>b>=cANDa=d的值为False。

三、将下列数学表达式转换为VB表达式。

（6分）

1．a2+2ab+b2：

a^2+2*a*b+b^2

2．8exln10：

8*exp（x）*log（10）

3．2sin（450）cos（450）：

2*sin（3.1416/4）*cos（3.1416/4）

6．在VB中，用户定义常量使用Const语句，声明变量使用Dim语句。

大一的vb期末考试题和答案

1．在代码中引用一个控件时，应使用控件的（b）属性。

A．CaptionB．NameC．TextD．Index

2．设变量x=4，y=-1，a=7，b=-8,下面表达式（a）的值为“假”。

A．x+a<=b-yB．x>0ANDy<0

C．a=bORx>yD．x+y>a+bANDNOT（y

3．表达式Int（Rnd*71）+10产生的随机整数范围是（c）。

A．（10，80）B．（10，81）C．[10，80]D．[10，81]

4．函数Sgn（3.1416）的返回值是（c）。

A．-1B．0C．1D．以上都不对

5．67890属于（d）类型数据。

A．整型B．单精度浮点数C．货币型D．长整型

6．下列变量名中正确的是（d）。

A．3SB．PrintC．SelectMyNameD．Select_1

7．下列赋值语句（a）是有效的。

A．sum=sum-sumB．x+2=x+2C．x+y=sumD．last=y/0

8．以下的控件或方法具有输入和输出双重功能的为（b）。

A．PrintB．TextboxC．OptionbuttonD．Checkbox

9．若要获得列表框中被选中的列表项的内容，可以通过访问（d）属性来实现。

A．NameB．ListIndexC．ListCountD．Text

10．下列代码的运行结果为（b）。

PrivateSubcommand1_click（）

Dimm（10）

Fork=1To10

m（k）=11-k

Nextk

x=5

Printm（2+m（x））

EndSub

A．2B．3C．4D．5

二、填空题（10分）

1．写出整数n能同时被13和17整除的Basic表达nMod13=0AndnMod17=0。

2．代码窗口中有两个下拉列表框：

左侧是列表框，右侧是过程列表框。

3．写出在字符串”VisualBasic6.0”中截取”Visual”的Basic表达式。

4．函数Len（“abcdef”）的返回值是。

5．设a=2，b=5，c=-2，d=100，则a>b>=cANDa=d的值为。

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

7．若要在一行书写多条语句，则各语句间应加分隔符，VisualBasic的语句分隔符为。

8．要强制显式声明变量，使用__________语句完成。

9．在VB中，用户定义常量使用语句，声明变量使用语句。

三、将下列数学表达式转换为VB表达式。

（6分）

1．a2+2ab+b2__________________________

2．__________________________

3．8exln10__________________________

4．2sin（450）cos（450）_______________________________

5．___________________________________________

6．___________________________________________

四、判断题，正确打“√”，错误打“×”（10分）

1．在VB中，控件的事件只能通过用户的操作触发。

（）

2．字符型数据以双引号作为定界符，输出时双引号本身不会显示在屏幕上。

（）

3．保存工程时，窗体文件和工程文件的文件名不能相同。

（）

4．改变控件的大小，可以使用鼠标和键盘，还可以通过修改代码。

（）

5．同一过程中，数组和简单变量可以同名。

（）

6．VB函数中的参数可以是常量、变量、表达式，还可以是另一个函数。

（）

7．代码ConstNumber1=15：

Number1=10合法。

（）

8．允许将块If-Then语句结构中的所有语句都写在一行上（）

9．定义数组语句Dima（b）AsInteger是正确的（）

10．在过程调用中，“实参表”和“形参表”中对应的变量名不必相同，但是变量的个数必须相等，而且实际参数的类型必须与相应形式参数的类型相符。

（）

五、根据题意，将下列程序补充完整。

（16分）

1．产生20个[10，100]之间的随机整数，每行输出10个数据。

PrivateSubcommand1_click（）

Dima（1To20）AsInteger

Randomize

i=0

DoWhilei<20

i=i+1

a（i）=（）

If（）Then

Printa（i）;

EndIf

Ifi=10ThenPrinta（i）

Ifi>10ThenPrinta（i）;

Loop

EndSub

2．打印九九乘法表

PrivateSubcommand1_click（）

Fori=1To9

Forj=1To9

Print（）

Nextj

Print

（）

EndSub

3．判断一个数是否素数

PrivateSubcommand1_click（）

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

flag=1

Fori=2To（）

IfxModi=0Then

flag=0

EndIf

Nexti

If（）ThenPrintx;"是素数"ElsePrintx;"不是素数"

EndSub

4．利用数组输出Fibonacci数列的前15项。

该数列的第1项和第2项为1，其余各项均为其前两项之和。

PrivateSubCommand1_Click（）

（）

f

（1）=1:

f

（2）=1

List1.AddItemf

（1）:

List1.AddItemf

（2）

Fori=3To15

f（i）=（）

List1.AddItemf（i）

Nexti

EndSub

六、写出下面程序的输出结果。

（每题3分，共18分）

1．PrivateSubcommand1_click（）

x=InputBox（"enterx"）'x的输入值为-8

SelectCaseSgn（x）+2

Case1

Print"y=";x^2+1

Case2

Print"y=";x-4

Case3

Print"y=";x^3+100

EndSelect

EndSub

2．PrivateSubcommand1_click（）

Dima,b,c,d,eAsString

a="ZhengZhou"

b="ZhongYuanGongXueYuan"

c=a+""+b

d=Left（a,1）+Mid（a,7,1）

e=Left（b,1）+Mid（b,12,1）

Printc

Printd;e

EndSub

3．设有Sub过程：

PrivateSubp1（xAsInteger,ByValyAsInteger）

x=4：

y=5：

z=6

EndSub

则如下程序段的运行结果是:

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger

x=1:

y=2:

z=3

Printx,y,z

Callp1（x,y）

Printx,y,z

EndSub

4．PrivateSubcommand1_click（）

k=0

Fori=1To3

k=k+1

a=i*i*k

Printa;

Nexti

EndSub

5．PrivateSubcommand1_click（）

Dima（5,5）AsInteger

Fori=1To5

Forj=1To5

a（i,j）=i*2+j

Printa（i,j）;

Nextj

Print

Nexti

EndSub

6．设有Function过程:

PrivateFunctionf1（b,a）

a=a*a:

b=b*b

f1=a-b

EndFunction

则如下程序段的运行结果是什么？

PrivateSubcommand1_click（