vb题库 1分解Word格式文档下载.docx
《vb题库 1分解Word格式文档下载.docx》由会员分享，可在线阅读，更多相关《vb题库 1分解Word格式文档下载.docx（17页珍藏版）》请在冰点文库上搜索。
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）
PrivateSubForm_Click（）
DimaAsInteger,bAsInteger
a=10
b=20
************SPACE**************
Swap1a,b
Form1.Print“A1=”;
a,“B1=”;
b
************SPACE*************
Swap2a,b
Form1.Print“A2=”;
a,“B2=”;
据统计，手印全长与人体身高存在一定的比例关系：
身高（厘米）=手印全长*9.75，编写通过人手印长计算身高的函数？
PrivateFunctionlength（flongAsSingle）
*************SPACE***************
length=flong*9.75
EndFunction
DimleAsSingle
le=Val（InputBox（”请输入人手印全长”））
*******************SPACE**************
h=length（le）
Print“此人的手印全长是：
”&
le&
“厘米”&
“可能得身高是：
h&
”厘米”
从键盘输入学生分数，统计同学总人数和各分数段人数，即优秀（90—100）、良好（80—89）、中等（70—79）、及格（60—69）、不及格（60以下）的人数
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
=70
n3=n3+1
=60
n4=n4+1
CaseElse
n5=n5+1
*************SPACE*************
Endselect
Score=Val（InputBox（msg,msgtitle））
Wend
Printn1,n2,n3,n4,n5,total
OptionExplicit
写出程序运行后，单击窗体，Form1上显示的内容
Sum函数的功能为求阶乘和
isum=1
isum=3
isum=6
isum=10
isum=15
请在【？
】处填入正确的内容
DimIAsInteger,isumAsInteger
ForI=1To5
Isum=sum（I）
**************SPACE***************
Form1.Print“isum=”&
isum
NextI
EndSub
PrivateFunctionsum（nAsInteger）
StaticjAsInteger
*****************SPACE***************
J=j+n
sum=j
程序改错
程序功能为打印下列图形：
*
**
***
****
*****
DimiAsInteger
DimjAsInteger
***************FOUND*************
ForI=1To7（5）
Forj=1To5（i）
Print“*”;
***************FOUND**************
Loop（next（j））
Print
Nexti
以下程序功能是输入三个数，由大到小排序。
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
*******************FOUND***************
IfA<
=B（B<
=C）Then
nTemp=B
B=C
C=nTemp
Print“Theintegersinorderis“;
A;
B;
C
以下程序段用于打印如图1的九九乘法表：
DimiAsInteger,jAsInteger,kAsInteger
PrintTab（30）;
“9*9table”
Print:
Ptint“*”（;
）
Fori=1To9
PrintTab（i*6）;
i（;
Forj=1To9
Printj;
“”;
************FOUND**************
Fork=1To9
**************FOUND************
PrintTab（j（K）*6）;
j*k;
”“;
Nextk
Nextj
题目：
已知自然对数的底数e的级数表示如下：
e=1+1/1！
+1/2!
+1/3!
+…………..+1/n!
+……………..
本程序利用函数过程fact（）求e，其中绝对值小于
1E-8的项忽略。
PrivateFunctionfact（mAsInteger）AsSingle
DimxAsSingle,iAsInteger
X=1
Fori=1Tom
******************FOUND****************
x=i（x=x*i）
fact=x
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
下面的程序段用于删除数组中指定位置的数字，
如果位置错误给出提示，否则分别显示删除前后的数组元素
Dima（10）AsInteger,xInteger,iAsInteger,kAsInteger
Fori=1To10
a（i）=Int（Rnd*90）+10
Printa（i）;
x=InputBox（“请输入要删除第几位数字”）
Ifx>
0Andx<
=10Then
Fork=xTo10（9）
********************FOUND**************
a（k）=a（k-1）（a（k-1）=a（k））
Print”删除后的数组：
”
Printa（i）
Nexti
Else
Print“删除位置错误”
******************FOUND*********************
End
升级会员 