vb题库 1分解.docx

vb题库 1分解.docx

《vb题库 1分解.docx》由会员分享，可在线阅读，更多相关《vb题库 1分解.docx（17页珍藏版）》请在冰点文库上搜索。

vb题库1分解

填空题

1.图像框的strtch属性设置为（true）时，图形将适应图像框的大小。

属性设置为（false），图形框将适应图像的大小。

2.文本框的locked属性用来决定文本内容能否被编辑，当其值为（false）时，可以编辑，当其值为（true），不可被编辑。

3.所有控件都具有的共同属性（name）

4.一个控件在窗体上的位置由top和（left）属性决定，其大小由width和（height）属性决定。

5.计时器控件的interval属性值是指时间间隔，单位是毫秒，当每隔此时间间隔定时器会触发一次（timer）事件。

注意计时器只有timer事件

6.把“visualbasic程序设计”添加到列表listbooks的语句为（listbooks.additem”visualbasic程序设计”）

7.函数instr（“VB程序设计教程”，“程序”）的值为（3）

8.设置计时器对象触发时间的时间间隔用（interval）属性

9.表达式（-3）mod8的值为（-3）,3mod（-8）的值为（3）

10.表达式93/7mod8的值为（5）

11.声明定长个数为10个字符变量str的语句（DimstrAsString*10）

12.当进入VB集成环境后，发现没有显示“工具箱”窗口，应选择（视图）菜单的“工具箱”选项，使”工具箱’窗口显示

13.表示x是5的倍数或是9的倍数的逻辑表达式为（xmod5=0orxmod9=0）

14.在VB中，1234,1.2346E+5常数分别表示类型（integer）,（single）

15.把整数1赋给一个逻辑型变量，则逻辑变量的值为（false）

16.表达式1and0的值是（false）

17.在调试过程中，参数的传递按两种方式，其中（地址）传递方式是默认的。

18.可以同时删除字符串前导和尾部空白的函数是（trim）

19.VB注释语句中采用（‘）字符开头，续行符采用（_），若上一行写多句语句，则各语句间用（:

）字符分开

20.已知a=3.5,b=5.0,c=2.5,d=true,则表达式：

a>=0anda+c>b+3ornotd的值是（false）

21.如果：

i=11:

j=3:

i=int（-8.6）+i\j+13\3mod5,则i的值是（-2）

22.如果在模块声明段中有optionbase1语句，则在该模块中使用dima（3to5,6）声明数组有（18）个元素

23.在通用部分添加optionbasic0的语句，在定义十个元素的整型静态数组a时可以定义为（dima（9）asinteger）

24.循环语句fork=1to10step-1控制的循环次数为（0）

25.在一条dim语句中可以声明多个变量，如dimstrvar,invar,sngvarasinteger,则strintsng的数据类型分别是variantvariant和（integer）

26.按照数据文件的储存方法不同，文件可以分为三种不同的类型，顺序文件，（随机文件），和二进制文件

27.把整型数1赋给一个逻辑变量，则逻辑变量为（true）

28.VB语言编写的应用程序有（解释）和（编译）两种执行方式

29.定义过程中要设置可选参数使用的命令是（option1）

30.设置控件背景颜色的属性名称（backcolor）前景颜色的属性属性名称（fonecolor）

31.文本框中所显示的内容是它的（text）属性的值

32.欲使自己设计vb程序运行过程中不终止本程序的运行，同时又可调用系统中已有的应用程序C:

\windows\calc.exe,可在代码窗口必要的地方添加语句（shell（“c:

\windows\calc.exe”））

33.设置计时器控件只能触发（timer）事件

34.表达式（-3）and8的值是（true）

35.将焦点定位于命令按钮command1之上的语句（command1.setfocus）

36.可以通过（文件）菜单的（退出）命令退出VB

37.滚动条控件有水平滚动条和（垂直）滚动条

38.Len（“实践应用能力”）的值是（6）

39.声明单精度常量g（重力加速度）代表9.8可写成（constg=9.8）

40.在VB的程序设计中，可以建立（下拉式）菜单和（弹出式）菜单

41.声明单精度常量P1代表3.14159的语句（constp1=3.14159）

42.Optionbasic0模块使用的dima（6,3to5）（21）个元素

43.,设x为一个两位数,将x个位数和十位数交换后所得两位数VB的表达式是（（xmod10）*10+int（x/10））.

选择

1.将commanddialog1通用对话框以打开对话框打开，可选以下（d）方法

Ashowfontbshowsavecshowcolordshowopen

2.与传统的程序设计语言相比VB最突出的特点是（b）

A程序调试技术b事件驱动编制程序机制c程序开发环境d结构化程序设计

3.下面（c）对象在运行时一定不可见

Aoptionbtextctimerdline

4.字体对话框是调用（a）方法来实现的

Ashowfontbshowclosecshowcolordshowopen

5.以下叙述错误的是（d）

A窗体文件包含窗体及其控件的属性

B.bas为扩展名的文件是标准模块文件

C一个工程可以有多个标准文件

D在工程资源管理器窗口中只能包含一个工程文件及属于该工程的其他文件

6.clear方法适用于（a,b），cls适用于（d,f）

A组合框b列表框c复选框d窗体f图片框

7.为了使列表框中的项目按字母顺序排列，应设置（a）属性

Asortedblistctextdstyle

8.在VB应用程序中，以下叙述正确的描述（a）

A过程的定义不可以嵌套，但过程的调用能嵌套

B过程的定义可以嵌套，但过程的调用不能嵌套

C过程的定义和过程均不可以嵌套

D过程的定义和过程均可嵌套

9.可以唯一识别控件数组的每一个控件属性的是（d）

Acaptionbnamecenableddindex

10.下面（c）控件不具有caption属性

A单选钮b标签框c文本框d命令按钮

11.下列叙述正确的是（d）

A对象的属性只能在属性窗口设置

B对象是既包括数据又包括对象数据进行操作的方法的物理实体

C实践过程都要由用户点击对象来触发

D不同的对象能识别不同的事件

12.设a=”visualbasic”,下面b=”basic”的语句是（d）

Ab=left（a,8,5）b=left（a,8,12）c=right（a,5,5）d=mid（a,8,5）

13.下列对象中没有焦点属性的是（b）

A命令按钮控件b窗体控件c单选框控件d文本框控件

14.当一个工程有多个窗体时，其中的启动窗体是（C）

A启动VB时创建的窗体

B第一个添加的窗体

C在“工程属性”对话框中指定的窗体

D最后一个添加的窗体

15.如果要使一个窗体从屏幕上和内存中完全消失，所要用的语句（c）

Ahidebshowcunloaddload

16.以下不能作为VB中的变量名（d）

Aabx45bp1234cxyd89ta

17.假定有一个菜单项，名为menuitem,为了在运行时使该菜单失效（变灰），应使用的语句（a）

Amenuitem.enabled=falsebmenuitem.enabled=true

Cmenuitem.visible=falsedmenuitem.visible=true

18.下列数据类型中，占有内存最大的是（c）

Abytebbooleancsingledinteger

19.在窗体上画一个名称为command的命令按钮，然后编写程序

Privatesubcommand-click（）

Staticxasinteger

Cls

Y=y+2

X=x+2

Printx,y

Endsub

程序运行后，连续单击四次command1后，窗体上显示（a）

A82b22c88d28

20.以下关于过程及过程参数的描述中，错误的是（C）

A过程的参数可以使控件的名称

B窗体可以作为过程的参数

C按传值方式传递参数，有可能会改变实际参数的值

D用数组作为过程的参数时，使用的是传地址方式

21.定义过程中，要设置可选参数使用的命令的是（c）

Avariantbparamarraycoption1darray

22.单击滚动条两端的任一滚动箭头，将触发该滚动条的（c）事件

Adragoverbkeydowncchangedscroll

23.下列有关控件数组和一般控件的区别的叙述，最合理的是（d）

A控件数组的建立通过dim语句声明，而一般控件不必声明

B控件数组的index为0，而一般控件的index为空

C控件数组的index为1，而一般控件的index为0

D控件数组一定由多个同类型的控件构成，一般控件只有一个控件

24.inputbox函数的返回值的类型为（B）

A日期型B字符串型C逻辑型D数值

判断

1.VB中，若同一个工程有许多窗体，可以指定任一窗体为起始窗体（Y）

2.清除list1列表框的内容的语句为list1.cls（N）

3.在多文档应用中，每次只能有一个活动的子窗体可以进行编辑（Y）

4.在框架控件中的几个单选按钮，只能有一个单选按钮的value属性为true（N）

5.在VB的工具栏中包括了所有的VB控件，我们不能再加载其他的控件（N）

6.控件是对象，而窗体不是对象，他只是控件对象的窗体（N）

7.Fornext语句中初值必须大于终值（N）

8.对象的可见性用enabled属性设置可用性用visible属性设置（N）

9.在命令按钮中click事件过程中,exit和end等效（N）

10.只要用拖拽的方法，将工具箱中所需的控件拖到窗体上即可（N）

11.工具箱提供了VB所需的所有控件（N）

12.一个目标程序所需的所有文件的集合成为工程（Y）

13.单击并拖拽工具箱中所需的控件到窗体上添加完成控件任务（N）

14.Image控件不能作为容器使用（Y）

15.Msgbox（）函数建立的消息框能显示信息也能输入用户信息（N）

16.timer是时钟控件的唯一事件（Y）

17.当计时器控件的interval属性值设置为0时，会连续不断地激发timer事件（N）

18.当dowhileloop或dountilloop语句中while或until后的表达式的值为true或非0时，循环继续（N）

19.滚动条控件不能作为不可作为用户输入数据的方法（Y）

20.事件过程由某个用户事件或系统事件触发后执行，不能被其他过程调用（N）

21.移动框架内的控件时框架内的控件也跟随移动，所以框架内的各个控件的left和top属性值也将分别随之改变（N）

22.某一过程的静态变量在过程结束后，静态变量及其值可以在其他过程中使用（N）

23.VB中规定窗体的的文件扩展名为vbp（N）

24.计时器控件的interval属性的单位是毫秒，如将此值设置为10，则每隔0.01秒产生一次timer事件（Y）

25.“”是一个字符串，’’“不是字符串（N）

26.菜单每一项菜单控件，可以通过点击菜单项或通过光标选择并按回车，以触发click（Y）27.如果在调用过程中使用地址传递参数，则在被调用的过程中不可以改变参数的（N）

27.在vb6.0中如果要增加工具箱的控件，应执行“文件”菜单中的命令（N）

28.在框架控件上放置的控件可以放置到框架控件的外面（N）

29.在vb中可以将在picture控件中绘制的图形以文件的形式保存在磁盘上（Y）

程序填空

题目：

本程序功能为，单击窗体，Form1的输出结果为

A1=10B1=20

A2=20B2=10

请在【】处填入正确的内容

****************SPACE**********************

PublicSubSwap1（byvalxAsInteger,ByValyAsInteger）

DimtAsInteger

t=x

x=y

y=t

EndSub

PublicSubSwap2（xAsInteger,yAsInteger）

DimtAsInteger

t=x

x=y

y=t

EndSub

PrivateSubForm_Click（）

DimaAsInteger,bAsInteger

a=10

b=20

************SPACE**************

Swap1a,b

Form1.Print“A1=”;a,“B1=”;b

a=10

b=20

************SPACE*************

Swap2a,b

Form1.Print“A2=”;a,“B2=”;b

EndSub

题目：

据统计，手印全长与人体身高存在一定的比例关系：

身高（厘米）=手印全长*9.75，编写通过人手印长计算身高的函数？

PrivateFunctionlength（flongAsSingle）

*************SPACE***************

length=flong*9.75

EndFunction

PrivateSubForm_Click（）

DimleAsSingle

le=Val（InputBox（”请输入人手印全长”））

*******************SPACE**************

h=length（le）

Print“此人的手印全长是：

”&le&“厘米”&“可能得身高是：

”&h&”厘米”

EndSub

从键盘输入学生分数，统计同学总人数和各分数段人数，即优秀（90—100）、良好（80—89）、中等（70—79）、及格（60—69）、不及格（60以下）的人数

PrivateSubForm_Click（）

Dimscore%,n1%,n2%,n3%,n4%,n5%

msg=”请输入分数（-1结束）”

msgtitle=”输入数据”

score=Val（InputBox（msg,msgtitle））

**************SPACE**********

Whilescore>=0andscore<=100

total=total+1

**************SPACE*************

SelectCasescore

CaseIs>=90

n1=n1+1

CaseIs>=80

n2=n2+1

CaseIs>=70

n3=n3+1

CaseIs>=60

n4=n4+1

CaseElse

n5=n5+1

*************SPACE*************

Endselect

Score=Val（InputBox（msg,msgtitle））

Wend

Printn1,n2,n3,n4,n5,total

EndSub

OptionExplicit

题目：

写出程序运行后，单击窗体，Form1上显示的内容

Sum函数的功能为求阶乘和

isum=1

isum=3

isum=6

isum=10

isum=15

请在【？

】处填入正确的内容

PrivateSubForm_Click（）

DimIAsInteger,isumAsInteger

**************SPACE*************

ForI=1To5

Isum=sum（I）

**************SPACE***************

Form1.Print“isum=”&isum

NextI

EndSub

PrivateFunctionsum（nAsInteger）

StaticjAsInteger

*****************SPACE***************

J=j+n

sum=j

EndFunction

程序改错

题目：

程序功能为打印下列图形：

*

**

***

****

*****

OptionExplicit

PrivateSubForm_Click（）

Cls

DimiAsInteger

DimjAsInteger

***************FOUND*************

ForI=1To7（5）

***************FOUND*************

Forj=1To5（i）

Print“*”;

***************FOUND**************

Loop（next（j））

Print

Nexti

EndSub

题目：

以下程序功能是输入三个数，由大到小排序。

OptionExplicit

DimAAsInteger

DimBAsInteger

DimCAsInteger

PrivateSubForm1_Click（）

DimnTempAsInteger

A=Val（InputBox（“Pleaseinputfirstinteger”,”输入正整数”））

B=Val（InputBox（“Pleaseinputsecondinteger”,”输入正整数”））

C=Val（InputBox（“PleaseinputthirdInteger”,”输入正整数“））

******************FOUND***************

IfA<=C（B）Then

nTemp=A

A=B

B=nTemp

EndIf

*******************FOUND************

If（A）B<=CThen

nTemp=A

A=C

C=nTemp

EndIf

*******************FOUND***************

IfA<=B（B<=C）Then

nTemp=B

B=C

C=nTemp

EndIf

Print“Theintegersinorderis“;A;B;C

EndSub

题目：

以下程序段用于打印如图1的九九乘法表：

OptionExplicit

PrivateSubForm_Click（）

DimiAsInteger,jAsInteger,kAsInteger

PrintTab（30）;“9*9table”

Print:

Print

Ptint“*”（;）

Fori=1To9

*******************FOUND***************

PrintTab（i*6）;i（;）

Nexti

Print

Forj=1To9

Printj;“”;

************FOUND**************

Fork=1To9

**************FOUND************

PrintTab（j（K）*6）;j*k;”“;

Nextk

Print

Nextj

EndSub

题目：

已知自然对数的底数e的级数表示如下：

e=1+1/1！

+1/2!

+1/3!

+…………..+1/n!

+……………..

本程序利用函数过程fact（）求e，其中绝对值小于

1E-8的项忽略。

OptionExplicit

PrivateFunctionfact（mAsInteger）AsSingle

DimxAsSingle,iAsInteger

X=1

Fori=1Tom

******************FOUND****************

x=i（x=x*i）

Nexti

fact=x

EndFunction

PrivateSubForm_Click（）

DimeAsSingle,itemAsSingle

DimnAsInteger

e=1

*********************FOUND**************

n=-1（n=0）

Do

n=n+1

item=1/fact（n）

e=e+item

********************FOUND***************

LoopWhileitem>=0.01

Form1.Print“e=”;e

EndSub

题目：

下面的程序段用于删除数组中指定位置的数字，

如果位置错误给出提示，否则分别显示删除前后的数组元素

OptionExplicit

PrivateSubForm_Click（）

Dima（10）AsInteger,xInteger,iAsInteger,kAsInteger

Fori=1To10

a（i）=Int（Rnd*90）+10

Printa（i）;

Nexti

Print

x=InputBox（“请输入要删除第几位数字”）

Ifx>0Andx<=10Then

*********************FOUND**************

Fork=xTo10（9）

********************FOUND**************

a（k）=a（k-1）（a（k-1）=a（k））

Nextk

Print”删除后的数组：

”

Fori=1To9

Printa（i）

Nexti

Else

Print“删除位置错误”

******************FOUND*********************

End

EndSub