VB期末考试试题一

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

1、VB程序设计的主要特点是可视化设计和事件驱动编程o

2、在VB中，最主要的两种对象是窗体（form）和控件。

3、工程是构成应用程序文件的集合o

4、方法是VB提供的一种特殊子程序，用来完成一定的操作。

5、浮点类型数据包括单精度型和一双精度—数据。

6、事件是窗体或控件对象识别的—动作―。

7、可用窗体的—Print_方法在窗体中显示文字。

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

9、在VB中，修改窗体的高度（Height）和宽度（Width）属性值，可改变窗体的大小。

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

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

12、设x=34.58,语句PrintFormat（x,“000.0"）的输出结果是（34.6）。

13、在VB中，数值型变量的初值为（0）,Varant型变量的初值为（空），布尔型

变量的初值为（False）。

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

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

二、选择题

1、菜单控件只包括一个事件，即（C）,当用鼠标单击或键盘选中后按“回车”键时触

发该事件，除分隔条以外的所有菜单控件都能识别该事件。

A、GotFocusB、LoadC、ClickD、KeyDown

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

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

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

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

D、滚动条控件无该属性

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

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

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

A、EnabledB、CaptionC、DefaultD、Font

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

A、CaptionB、NameC、TextD、Label

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

是（D）。

A、CaptionB、NameC、TextD、Value

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

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

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

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

PrivateSubCommandl_Click()

PrintnVBn;

Print“Hello!”；

PrintHVBM

EndSub

A、VBHelloJVBB、VB

HelloJVB

C、VBD、VB

Hello!VBHello!

VB

9、语句PrintnTheansweris:n;20/4-2的结果为（B）°

A、Theansweris20/4-2B、Theansweris3

C、TheanswerisH20/4-2nD、非法语句

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

A、ImageB、PictureC、ComboBoxD、FileListBox

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

A.ShowB.HideC.LoadD.UnLoad

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

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

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

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

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

A.ControlBoxB.MinButton

C.MaxButtonD.BorderStyle

15、设有如下语句：

Strl=InputBox（"输人"，叫"练习"）

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

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

16、窗体Forml的Name属性是Frml,它的单击事件过程名是（C）

A.Forml_ClickB.FormClickC.FrmlClickD.MeCIick

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

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

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

A.EnabledB.ValueC.IntervalD.Text

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

A.ValueB.FontColorC.BackColorD.Font

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

A.ActiveFormB.LoadC.DriveD.Change

三、判断题（判断下列正确与否，正确的打4,错误的打X。）

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

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

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

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

5、创建VB应用程序的三个主要步骤是：(1)创建应用程序界面(2)设置控件(3)编写代码。X

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

7^已知P=MsgBox("Howareyou?",VbYesNo+VbQuestion)“Hello!”),变量P是Integer数

据类型。«

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

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

10、OptionButton控件没有DbICliek事件。X

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

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

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

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

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

删除(真正删除)。X

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

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

18、使用数组定义语句：DimDS(10),则数组D中各元素的值为空。X

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

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

错误。4

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

1、PrivateSubForm_Click()

StaticSUMAsInteger

1=1

DoWhileI<=10

SUM=SUM+I

1=1+1

Loop

PrintSUM

EndSub

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

第二次单击窗体：110

2、PrivateSubForm_Click()

PrintTab(6);2,Tab(15);5

Print

For1=15To16

PrintI;

Forj=2To6Step3

PrintTab(3*j);j*I;

Nextj

Print

NextI

EndSub

程序运行结果：*25

153075

163280

五、编程题

(一)窗体中有图片框(Picture】)和计时器(Timerl)两个控件，运行程序时，将图片加载到图

片框中，然后图片框以每2秒钟一次的速度向窗体的右下脚移动，每次向左、向右移动

lOOtwip(20分之一像素)。请填空：

PrivateSubForm_load()

(Picture】.Picture)=loadPicture(“c:\pic\ball.ico")

(Timer1).Interval=200

EndSub

PrivateSubTimer1Timer(x)

Staticx,yAsInteger

x=x+100

y=y+100

Picturel.Move(y)

EndSub

(二)有•个单击按钮过程，其作用是产生50个60〜100的随机数，统计其中被6整除

余2的个数，并将这些数输出。请填空：

PrivateSubCommand1_Click()

DimxAsInteger,N%

DimCounterAsInteger

(Randomize)Timer

ForN=1To50

X=Rnd()*(41+60)

If(xMod6)=2Then

Printx

Counter=(Counter+1)

(EndIf)

NextN

PrintCounter

EndSub

大一的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<b)

3.表达式lnt（Rnd*71）+10产生的随机整数范围是（C)o

A.(10,80)B.(10,81)C.[10,80]D.[10,81]

4.函数Sgn（3.1416）的返回值是（c)o

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

5.67890属于（d）类型数据。

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

6.卜.列变量名中正确的是(d)o

A.3SB.PrintC.SelectMyNameD.Select1

7.下列赋值语句（a)是有效的。

A.sum=sum-sumB.x+2=x+2C.x+y=sum

D.last=y/0

8.以下的控件或方法具有输入和输出双重功能的为（b)o

A.PrintB.TextboxC.OptionbuttonD.Checkbox

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

A.NameB.ListindexC.ListCountD.Text

10.下列代码的运行结果为（b）o

PrivateSubcommand1_click()

Dimm(10)

Fork=1To10

m(k)=11-k

Nextk

x=5

Printm(2+m(x))

EndSub

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

二、填空题（10分）

6.要使标签的大小自动与所显示的文本相适应，可以通过设置

属性为True来实现。

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

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

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

三、将下列数学表达式转换为VB表达式。（6分）

1.a2+2ab+b2___________________________

3.8exln10___________________________

4.2sin（450）cos（450）________________________________

四、判断题，正确打7”,错误打“x”（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=lnputBox("请输入一个整数”)

flag=1

Fori=2To(

IfxModi=0Then

flag=0

EndIf

Nexti

If()ThenPrintx;"是素数”日sePrintx;"不是素数”

EndSub

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

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

PrivateSubCommand1_Click()

()

f(1)=1:f(2)=1

Listl.Additemf(1):Listl.Additemf(2)

Fori=3To15

f(i)=()

Listl.AddItemf(i)

Nexti

EndSub

六、写出下面程序的输出结果。(每题3分，共18分)

1.PrivateSubcommand1_click()

x=lnputBox(Henterx")Vx的输入值为-8

SelectCaseSgn(x)+2

Case1

PrintxA2+1

Case2

Print,,y="；x-4

Case3

PrintHy=";xA3+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,ByVaiyAsInteger)

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()

a=4:b=3

a=f1(a,b)

Printa

EndSub

七.编程题（共30分）

1.给出一个百分制的成绩，要求输出成绩的相应等级。（7分）

90分以上为“A”,80〜89分为“B”，70〜79分为“C”，60〜69分为“D”，60分以下为“E”。

2.求n!,n由键盘输入。（7分）

3.产生20个［0,99］之间的随机整数，并按从小到大的顺序输出。（8分）

4.产生并输出一个6x6的二维数组A：（8分）

（1）两条对角线上元素的值为1,其余元素为小于30的随机整数。

（2）计算各行元素的平均值，输出平均值最大和平均值最小的行号。

5.输出1+2+……+100的和，并求出1~100之间能被17整除的数据的个数（8分）

6.从键盘输入10个数，求出其中的最大数，最小数和平均值。（8分）

VB试题答案及评分标准

一、1.B2.A3.C4.C5.D6.D7.A8.B9.D10.B

二、1.nMod13=0AndnMod17=02、对象3.LEFT("VisualBasic6.0”,6)

4.65.False6.Autosize7.：8.OptionExplict9.ConstDim

三、1、aA2+2*a*b+bA22、x"(1/3)*y"(1/4)3、8*exp(x)*log(10)

4、2*sin(3.1416/4)*cos(3.1416/4)5、(x+y+z)/sqr(xA2+yA2+zA2)6、

log(1+abs((a+b)/(a-b)))

四、1.x2.43.x4.45,x6.47.x8.x9.x10.4

五、1.(1)int(rnd*91)+10(2)l<102.(1)i*j(2)nexti

3.(1)int(sqr(x))或者x・1(2)flag=14.(1)dimf(15)asinteger(2)f(l-1)+f(l-2)

六、1、y=652、ZhengZhouZhongYuanGongXueYuan2分

ZZZG2分

3.123

4234.1827

5.34567

56789

7891011

910111213

11121314156.■

七、1.privatesubcommand1__click()

dimxasinteger,gradeasstring1分

x=text1.text1分

selectcasex4分

case90to100

grade="A"

case80to89

grade=,,BM

case70to79

grade-C”

case60to69

gradehD”

caseis<60

grade二"E"

caseelse

msgbox“请重新输入”

endselect

print“该学生成绩为"+grade1分

endsub

2.PrivateSubcommand1_click()

Dimnasinteger,faslong1分

n=text1.text1分

f=1

for1=1ton