《Visual Basic 程序设计》期末试题_visualbasic期末试题

《Visual Basic 程序设计》期末试题由刀豆文库小编整理，希望给你工作、学习、生活带来方便，猜你可能喜欢“visualbasic期末试题”。

《Visual Basic 程序设计》期末试题

注：一、二、三、四题的答案必须按题号和顺序填写到第五页的答案表中，否则无效。

一．单选题（每题1分）。每道题答案只有一个，未选、选错者0分。

1、窗体文件的后缀是（）

A．.bmp

B．.vbp

C．.bas

D．.frm

2、把控件放置在窗体中的最快捷的方法是（）

A．拖放鼠标

B．单击工具箱中的控件并拖动鼠标

C．双击工具箱中的控件

D.单击工具箱中的控件

3、当移动控件、重新设定其尺寸时，（）属性会自动改变。

A．top , left

B．name , caption

C．click, change

D．cancel , default

4、vb主要用于开发哪种环境下的文件：（）

A．DOS

B．WINDOWS

C．DOS 和WINDOWS

D．UNIX

5、（）属性可以使命令按扭对用户产生的命令无效。A．default

B．caption

C．enabled

D．cancel

6、一组复选框中，如果单击一个没有被选中的复选框，则其他已选中的复选框处于（）状态。

A．禁止

B．选中

C．不选中

D．不显示

7、当对象的enabled 和 visible属性为（）时，该对象才能获得焦点。

A．true , false

B．false

C．false , true

D．true

8、当程序运行过程中，需要给用户一些提示信息或警告信息时，应使用（）。

A．msgbox

B．inputbox

C．A,B都可以

D．A,B都不可以

9、表达式val(“16abc”)的值为（）。A．1

B．16

C．16abc

D．abc

10、以下哪个函数用于在一个字符串中查找另一个字符串（）A．mid$()

B．len()

C．instr()

D．right()

11、控件command1的名称属性为com时，则它的click事件过程名为（）。

A．command1_click

B．command—click

C．com_click

D．command1.click

12、窗体form1的名称属性为myfrm时，则它的load事件过程名为（）。

A．form_load

B．me_load

C．myfrm_load

D．form1_load

13、下列控件中，不可改变控件大小的是（）A．frame

B．timer

C．command

D．textbox

14、下列数据中是boolean常量的是（）A．123

B．not

C．true

D．and

15、假定A是boolean型变量，下面赋值语句正确的是：（）

A．A=”TRUE”

B．A=TRUE

C．A=#TRUE#

D．A=”FALSE”

16、表达式10+5 mod 10 9 / 3的值是（）。

A．10

B．15

C．12

D．运算错误

17、若x=5,执行if x then x=0 else x=1的结果为（）。

A．实时错误 B．编译错误 C．x=1 D．x=0

18、为使文本框显示滚动条，必须首先设置的属性是（）。

A．Alignment B．Style C．Multiline D．ScrollBars

19、运行时，当用户向文本输入新的内容，或在程序代码中对文本框的text属性进行赋值从而改变了文本框的text属性时，将触发文本框的（）事件。A．click B．dbclick C．gotfocus D．change 20、组合框的3种不同风格：下拉组合框、简单组合框和下拉列表框由（）属性决定。

A．BorderStyle B．Style C．FillStyle D．DrawStyle

二、多选题（每题2分）。每道题答案至少有一个或者多个，未选全者，得部分分；选错者0分。1．关于程序设计，以下叙述正确的是（）。

A． 结构化程序设计方法把程序的结构规定为：顺序、选择、判断三种基本结构。

B． 面向对象的程序设计更符合人们的思维方式，更易于软件的维护和功能增减。

C． Visual Basic、Visual Foxpro、Visual J++都是面向对象的程序设计语言。

D． 面向过程的程序设计能用继承的方式减短程序开发时间。

2．VB中包含的数组类型有（）

A．数据数组

Ｂ．属性数组

Ｃ．事件数组

Ｄ．控件数组

3．设A=2，B=3，C=4，D=5。以下表达式的值为False的是（）。A．A>B AND CC C．NOT AA+C B．3>2*B OR A=C AND BC OR C>D D．A+B+C>D OR A*B

A．属性用来描述和反映对象的特征，如：控件的名称、标题等。

B．对象的属性只能通过属性窗口进行修改。

C．事件就是发生在对象上的事情，如：单击、双击等。

D．VB中的方法可以是过程或函数，用户只能在代码中调用，不能修改

5．下列实际参数中，可以进行按地址传递的是（）。

A．“X” B．（X）C．X+10 D．X

三、阅读程序，按要求写出程序运行后的结果。（每题5分）

题目所涉及到的对象的属性在设计时均为默认值。答案可先写在代码右侧，然后再填写到答案表中，以答案表中的内容为准。

IF b=”ER” THEN s=s+1 1． 有如下程序

NEXT i a=”A WORKER IS OVER THERE”

PRINT s x=LEN(a)

运行后的输出结果是_______ FOR i=1 TO x-1

b=MID(a,i,2)

2． 有如下程序Dim a(1 to 5)y = 3 * y FOR j=1 TO 5 End Sub a(j)=j*j

4．有如下程序 NEXT j s=6 PRINT a(a(2)*a(3)-a(4)*2)+a(5)SELECT CASE s 运行后输出的结果是 _______ CASE IS

f=s+1

3．写出下列程序运行后的输出结果 _______

CASE IS

f=s+2 a = 1

CASE IS

f=s+3 Print “A=”;a;“,B=”;b

CASE ELSE Call mult((a), b)

f=s+4 Print “A=”;a;“,B=”;b

END SELECT End Sub

PRINT s;f Sub mult(x, y)

运行输出的结果是______x = 2 * x

四、在下列程序的下划线位置上，填写符合题目要求的内容。（每题5分）说明与第三题相同。

Private Sub Option1_Click(Index

1． 下列代码求出

2．计算:N！的值

As Integer)S=1+2+3+ … +N的值。

N= Val(InputBox(“请输入N的Select Case Private Sub Form_Click()值：”))

Case n = Val(InputBox(“请输入N的 JC=______

Print ”ABC“ For i=1 to 值：”))

Case JC=JC*________ s =

Print “DEF” Print “sum=”;sum For i = 1 To

Case

s =

Print “HIJ”

3．单击控件数组中（共有三Next i

End Select Print s 个）的不同对象，在窗体上显示End Sub End Sub 不同内容。

4．下列程序的功能是:用函数调用求(S=M!/(N!*(M-N)!),要求M>N)。请将程序填写完整。

Private Sub Command1_Click()

Dim m As Integer, n As Integer Function JC(X)

S1 = 1 m = InputBox(“请输入M的值”, , 0)

For I = 1 To X n = InputBox(“请输入N的值”, , 0)

S1 = If m

Next S =

JC = Print S

End FunctiEnd Sub

参考答案：

一单选 1 ~10 ：D C A B C C D C B A

~20 ：C A B C B C D C D B 二多选 1~5 ：A、BCD、ABC、ACD、D

三阅读1、32、413、A=1 B=1 A=1 B=34、S=6 F=10 四．填空题

1、S=0 TO N S=S+I

2、JC=1 TO N JC=JC*I NEXT 3、INDEX 0 1 2、JC（M）/（JC（N）*JC（M-N））S1=S1*I JC=S1

五、编写程序（每题10分，共30分）。

1． Private Sub Form_Click()

Timer1.Enabled = True

3． Private Sub Form_Click()Timer1.Interval = 1000

End Sub m = Val(InputBox(“输入M”))Private Sub Timer1_Timer()n = Val(InputBox(“输入N”))Label1.Caption = Time If n>m Then End Sub a = fact(n)

b = fact(m)2． Private Sub Form_Click()

c = fact(nm))b = Val(InputBox(“请输入数值：”))

Print D c = Val(InputBox(“请输入数值：”))

Else If b > a Then

Exit Sub d = a: a = b: b = d

End if End If

End Sub If c > a Then

Private Function fact(x)d = a: a = c: c = d

p = 1 End If

For i = 1 To x If c > b Then

p = p * i d = b: b = c: c = d

Next i End If

fact = p Print a, b, c

End Function End Sub