vb期末考试最新例题.docx

vb期末考试最新例题.docx

《vb期末考试最新例题.docx》由会员分享，可在线阅读，更多相关《vb期末考试最新例题.docx（29页珍藏版）》请在冰豆网上搜索。

vb期末考试最新例题

1．SUB与Function过程，Function过程是函数，有返回值

2．数据字典在后续数据库可修改，又称元数据，可储存在计算机中，用数据字典来管理

数据项，数据结构，数据流，处理逻辑，数据储存，外部实体。

3．在菜单编辑器中，Open命令方式是把Caption改成&open

4．数据流程图（DFD）作为描述工具软件开发阶段是：

需求分析

5．信息隐藏概念与模块独立性直接相关

6．软件调试目的是：

改正错误

7．Function可以用CALL调用

8．变量名第一个字符必须是字母，长度不超过255字符，不能使用关键字

9．数据只能以ASCII码形式存放在文件中，可通过文本编辑软件显示

10.强制显示声明变量可在窗模块或标准模块中加上OptionExplicit

11.命令按钮所有Caption属性不都只能是command1，默认情况下，所有命令按钮元素大小相同，在代码中任意访问一个命令按钮都要使用名称Command1加下标的方式，所有命令按钮共享一个相同事件过程

12.软件需求说明书作用：

反映用户问题的结构可以作为软件开发的工作的基础和结构，便于用户和开发人员理解，交流，作为确认测试和验收的依据

13.关系数据模型：

关系操作结果是二维表，关系数据型中，实体集和实体集之间的联系均用二维表表示，存储路径对用户透明

14.数据独立性指的是应用程序和数据库的逻辑结构，物理结构之间相互独立性

15.刚建立一个EXE工程中，不出现工具箱控件是通用对话框

16．N-S图是为了避免流程图在描述程序逻辑时的灵活性，提出用方框图代替传统流程图

17.对象的某些属性既可以在属性窗口中设置，也可以通过代码程序设置或改变

18.瀑布模型方法，分析和设计的方法是直顶向下，逐层分解，逐步求精

19.用户所见的数据模型是外模式

20.放置控件到窗体最快捷方法是双击工具箱中的控件

21.清空图片框方法之一是加载空图片，可用print在图片框中输入文本，可作容器使用

22.为了在窗体上增加文字说明，最常用的是标签控件，其中设置atosize属性为True时它的大小自动适应文字的长短。

23.在单击滚动条或单击滚动条两端的箭头时，滚动条的Value属性值将随之递增或递减。

其中largechange用于返回或设置在单击滚动条区域时Value属性值的改变量

24.将文本框Text1中的内容添加到列表框List1的末尾可以使用语句list1.additemtext1.text。

25.在对列表框进行列表项的添加时，可使用additem方法。

26.E与D分别代表10幂次，E代表单精度型，D代表双精度型

27.随机文件：

每条记录的长度必须相同，可通过编程对文件中的某条记录方便地修改，文件的组织结构比顺序文件复杂

28.结构化分析的常用工具的是数据流图，数据字典，判定树

29.数据的冗余度是指相同数据重复出现，数据的安全性是指保护数据，防止非法使用，数据的完整性是指数据的正确性和一致性

30．信息系统软件开发瀑布模型方法将软件生命周期依次分为（系统规划、系统分析、系统设计、系统实施和系统维护阶段）。

31．关于系统规划原则信息系统的结构要有良好的整体性，方案选择要考虑实用和实效，技术手段强调成熟和先进，计划安排强调合理和可行，以应用单位的战略目标作为系统规划的出发点，分析本单位管理的信息需求

二．各个题型：

1.在窗体上画一个文本框，然后编写如下事件过程：

PrivateSubForm_Click（）

X=Inputbox（"请输入一个整数"）

PrintX+Text1.Text

EndSub

程序运行时，在文本框中输入456，然后单击窗体，在输入对话框中输入123，单击"确定"按钮后，在窗体上显示的内容是（123456）。

2.关于语句Ifx=1Theny=1，下列说法正确的是（x=1为关系表达式，y=1为赋值语句）。

3.执行下列程序段，输出结果为（70）。

Dima（10）AsInteger

DimiAsInteger

Fori=1To10

a（i）=2*i-1

Nexti

Printa（4）;

Erasea

Printa（4）

4.设A,B，C表示三角形的三条边，表示条件"任意两边之和大于第三边"的布尔表达式可以用（A+B>CAndA+C>BAndB+C>A）表示。

5.名为sort的Sub子过程的形式参数为一数组，以下的定义语句中正确的是（PrivateSubsort（A（）AsInteger））。

6.下面（#False#）不是字符串常量。

7.在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

PrivateSubCommand1_Click（）

A=Inputbox（"EnterAnInteger"）

B=Inputbox（"EnterAnInteger"）

Text1.Text=B+A

EndSub

程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是（564）。

8.下列符号常量的声明中，（ConstaAsDouble=Sin

（1））是不合法的。

9.下面程序段的运行结果为（1212288）。

n=1

Fori=1To4

Forj=1Toi

n=n*j

Nextj

Printn;

Nexti

10.下列程序段的执行结果为（46）。

Dima（10）AsInteger,b（）AsInteger

DimiAsInteger

ReDimb（5）

Fori=1To10

a（i）=i

IfiMod2=0Then

b（i/2）=a（i）

EndIf

Nexti

Printa（4）;b（3）

11.运行下列程序并用记事本打开数据文件观察结果为（"李斌",89,67）。

Open"c:

\score.dat"ForOutputAs#1

Write#1,"李斌",89,67

Close#1

12.设有数组声明语句：

OptionBase1

DimA（2To4,3）

以上语句所定义的数组A中共有（9）个元素。

13.假定在窗体（名称为Form1）的代码窗口中定义如下记录类型:

PrivateTypeanimal

animalNameAsString*20

aColorAsString*10

EndType

在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程:

PrivateSubCommand1_Click（）

DimrecAsanimal

Open"c:

\vbTest.dat"ForRandomAs#1Len=len（reC）

reC．animalName="Cat"

reC．aColor="White"

Put#1,,rec

Close#1

EndSub

则以下叙述中正确的是（语句"Put#1,,rec"将animal类型的两个数据元素写到文件中）。

14.在窗体上用复制、粘贴的方法建立一个命令按钮数组，数组名为C1，共有3个数组元素。

设窗体Form1的标题为"Myform1"，打开代码编辑器，写下如下代码：

PrivateSubC1_Click（IndexAsInteger）

Form1.Caption="myform2"

EndSub

运行时，单击按钮数组中的第三个按钮，则窗体标题为（myform2）。

15．一只白色的足球被踢进球门，则白色、足球、踢、进球门是（属性、对象、事件、方法）。

16.在窗体上画一个命令按钮，名称为Command1。

单击命令按钮时，执行如下事件过程：

PrivateSubCommand1_Click（）

a$="MicroSoftVisualBasic"

B$=Right（a$,5）

C$=Mid（a$,1,9）

MsgBoxa$,,B$,C$,1

EndSub

则在弹出的信息框的标题栏中显示的信息是（Basic）。

17.有程序段如下：

Fori=1To3

Forj=5ToiStep-1

Printi*j

Nextj

Nexti

其中"Printi*j"语句执行的次数为（12）。

18.下列程序段的执行结果是（False）。

X=2

Y=1

IfX*Y<1ThenY=Y-1ElseY=-1

PrintY-X>0

19.有如下程序：

PrivateSubCommand1_Click（）

x=InputBox（"inputvalue"）

SelectCasex

CaseIs>0

y=x+1

CaseIs=0

y=x+2

CaseElse

y=x+3

EndSelect

Printx;y

EndSub

假设运行时从键盘上输入-5，输出结果是（-5-2）。

20.执行下列程序段，输出结果为（出错）。

Dima（）AsInteger

DimiAsInteger

ReDima（10）

Fori=1To10

a（i）=2*i-1

Nexti

Printa（4）;

Erasea

Printa（4）

21.下面程序段的运行结果为（12624）。

Fori=1To4

n=1

Forj=1ToI

n=n*j

Nextj

Printn；

Nexti

22.执行语句：

A=Inputbox（"Today","Tomorrow","Yesterday"）

将显示一个输入对话框，在对话框的输入区中显示的信息是（Yesterday）。

23.若在应用程序中用"PrivateSubSub1（XAsInteger,YAsSingle）"定义了子程序Sub1，以下调用子程序Sub1的Call语句中（CallSub1（5））是错误的。

24.在下面的程序段中，循环体将执行（0）次。

Forv=10To20Step-2

printv

Nextv

25.执行以下程序，单击命令按钮后，窗体上的输出结果是（-1）。

PrivateSubCommand1_Click（）

DimaAsInteger

a=True*6+5

Printa

EndSub

26.运行以下程序，单击窗体后，如果依次输入20和40，则输出内容是（60）。

PrivateSubForm_Click（）

DimxAsInteger

x=InputBox（"请输入变量x的值","输入窗口"）

y=InputBox（"请输入变量y的值","输入窗口"）

Printx+y

EndSub

27.一个工程中含有窗体Form1.Form2和标准模块Model1，如果在Form1中有语句

PublicXAsInteger；在Model1中有语句PublicYAsInteger则以下叙述中正确的是（在From1中可以直接使用X）

28.在窗体上画一个命令按钮和一个文本框，其名称分别为Command1和Text1，把文本框的Text属性设置为空白，然后编写如下事件过程：

PrivateSubCommand1_Click（）

A=Inputbox（"EnterAnInteger"）

B=Inputbox（"EnterAnInteger"）

Text1.Text=B+A

EndSub

程序运行后，单击命令按钮，如果在输入对话框中分别输入4和56，则文本框中显示的内容是（564）。

29.使用（AddItem）方法可将新的列表项添加到一个列表框中。

30.在数据管理技术发展过程中，文件系统与数据库系统的主要区别是数据库系统具有（特定的数据模型）。

31.面向对象的设计方法与传统的的面向过程的方法有本质不同，它的基本原理是（使用现实世界的概念抽象地思考问题从而自然地解决问题）。

32.在文本框Text1中输入数字12，Text2中输入数字34，执行以下语句，只有（Text3.Text=val（Text1.Text）+val（Text2.Text））

可使文本框Text3中显示46。

33.VB中三种文件访问的类型为（顺序、随机、二进制）。

34.SQL语句集数据查询、数据操纵、数据定义和数据控制功能于一体，语句INSERT、DELETE和UPDATE实现的功能为（数据操纵）。

35.软件测试是软件开发过程中的一个重要环节。

软件产品在交付前必须经历三种测试，它们是（模块测试、集成测试和验收测试）。

36.执行以下程序，单击命令按钮后在窗体上的输出内容是（200）。

PrivateSubCommand1_Click（）

DimaAsInteger,bAsInteger,cAsInteger

a=2

c=b=a

Printa,b,c

EndSub

37.运行以下程序，单击窗体后，如果依次输入20和40，则输出内容是（2040）。

PrivateSubForm_Click（）

x=InputBox（"请输入变量x的值","输入窗口"）

y=InputBox（"请输入变量y的值","输入窗口"）

Printx+y

EndSub

38.下面这段程序的运行结果为（22-2-2）。

PrivateSubCommand1_Click（）

Print9Mod7;9Mod-7;-9Mod7;-9Mod-7

EndSub

39.下面这段程序，第一行运行结果为（6），第二行运行结果为（5），第三行运行结果为（12.3）。

PrivateSubCommand1_Click（）

PrintLen（Str（12345））

PrintLen（CStr（12345））

PrintVal（"12.3ab"）

EndSub

40.执行以下程序，单击命令按钮后，输出结果是（012345678910）。

PrivateSubCommand1_Click（）

Dima（10）AsInteger

Dimb

Fori=1To10

a（i）=i

Nexti

ForEachbIna

Printb;

Nextb

EndSub

41.在文本框Text1中输入一串字符，判别其是否是回文字符串。

所谓回文字符串是指正读和反读都一样的字符串，比如ABBA、DEAED等就是回文字符串。

PrivateSubCommand1_Click（）

DimsAsString,nAsInteger,mAsInteger

s=Text1.Text

n=1

（m=len（s））

DoWhilen<=m

IfMid（s,n,1）=Mid（s,m,1）Then

m=m-1

（n=n+1或n=1+n）

Else

ExitDo

EndIf

Loop

If（n>m或m）Then

Text2.Text=Text1.Text&"是回文"

Else

Text2.Text=Text1.Text&"不是回文"

EndIf

EndSub

42.要从磁盘上新建一个文件名为"c:

\t1.txt"顺序文件的语句为Open"c:

\t1.txt"For（outopen）As#2。

43.下面程序段中，在窗体上显示的结果为（515）。

PrivateSubCommand1_Click（）

DimbAsInteger,kAsInteger

b=1

Fork=1To5

b=b*k

Ifb>=15Then

ExitFor

Else

k=k+1

EndIf

Nextk

Printk,b

EndSub

44.执行下面的程序段，文本框Text1中显示的是（9）。

DimiAsInteger,jAsInteger

i=1

DoWhilei<20

j=i+j

i=i*（i+1）

Loop

Text1.Text=j

45.运行以下程序，单击窗体后，如果依次输入20和40，则输出内容是（60）。

PrivateSubForm_Click（）

DimxAsInteger

x=InputBox（"请输入变量x的值","输入窗口"）

y=InputBox（"请输入变量y的值","输入窗口"）

Printx+y

EndSub

46.若形参前缺省ByVal和ByRef关键字，系统默认为按_（地址）传递。

47.下面程序是接受用户从键盘上输入的一个正整数，找出大于或等于该数的第一个素数。

OptionExplicit

PrivateSubCommand1_Click（）

DimnAsInteger,kAsInteger

DimiAsInteger

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

k=n

Do

Fori=2ToSqr（k）

IfkModi=0ThenExitFor

Nexti

Ifi>spr（k）Then

ExitDo

Else

K=k+1

EndIf

Loop

Print"大于等于";n;"的第一个素数是";k

EndSub

48.在过程中定义的变量，如果希望在离开该过程后，还能保存过程中局部变量的值，就应该使用（static）关键字在过程中定义局部变量。

49.以下程序段首先按降序输入10个数到数组Y的前10个元素中，又输入一个x插入到数组Y中，要求插入x后Y中的数据仍按降序排列。

DimY（1To11）

Fori=1To10

Y（i）=Val（InpuBox（"请输入:

"））

Nexti

x=Val（InpuBox（"请输入x:

"））

Fori=10To1Step-1

IfxxThen

ExitFor

EndIf

Y（i+1）=Y（i）

Nexti

Y（i+1）=x

Text1.Text=""

Fori=1To11

Text1.Text=Text1.Text&Str（Y（i））&""

Nexti

50.执行以下程序段，则第一行输出结果是（53），第二行输出结果是（-30）。

Dima（-3To5）AsSingle

Dimb（3,4）AsInteger

PrintUBound（a）,UBound（b,1）

PrintLBound（a）,LBound（b,2）

51.下列表达式的值分别为（-4）和（-3）。

①Int（-3.14159）②Fix（-3.14159）

52.以下程序的功能是：

从键盘上输入两个正整数，比较其大小，并输出相应的信息。

如：

将两个数赋给两个变量x和y，如果x=y，提示"两个数相等"，x>y，提示"第一个数大于第二个数"，x

按要求完善程序。

PrivateSubCommand1_Click（）

DimxAsInteger,yAsInteger

IfText1.Text<>""AndIsNumeric（Text1.Text）Then'如果文本框已输入数值数据

x=Val（Text1.Text）'将输入的数值赋给变量x

Else

MsgBox"请在文本框中输入数值"

Text1.SetFocus

ExitSub

EndIf

IfText2.Text<>""AndIsNumeric（Text2.Text）Then

y=Val（Text2.Text）

Else

MsgBox"请在文本框中输入数值"

Text2.SetFocus

ExitSub

EndIf

Ifx=yThen

MsgBox"两个数相等"

ElseIf（xx）Then

MsgBox"第一个数小于第二个数"

Else

MsgBox"第一个数大于第二个数"

EndIf

EndSub

53.如果依次输入75,55,45,70,30,25,40,15,20,5,下列程序段的执行结果为（330）。

DimcAsInteger,kAsInteger,dAsInteger

c=70

Fork=11To20

x=InputBox（"输入X的数值:

"）

Ifx

d=d+x:

c=x

Else

d=d+c

EndIf

Nextk

Printd

54.表示对象可见性的属性是（visible）。

55.阅读下面程序，当单击窗体后，窗体上输出的是（1274）。

PrivateSubForm_Click（）

DimiAsInteger,jAsInteger

DimkAsInteger

Fori=1To10Step3

Forj=1To10Step2

Ifj>=5Theni=i+4:

ExitFor

j=j+1

k=k+1

Nextj

Ifi>8ThenExitFor

Nexti

Printi;j;k

EndSub

56.设计一个函数，求任意数的阶乘。

编写通用函数过程如下，请补充程序。

PublicFunctionf（nAsDouble）AsDouble

DimsAsDouble

DimiAsInteger

Ifn<0ThenExitFunction

s=1

Fori=1T