VB复习资料xs.docx
《VB复习资料xs.docx》由会员分享，可在线阅读，更多相关《VB复习资料xs.docx（31页珍藏版）》请在冰豆网上搜索。
VB复习资料xs
第一章
书本习题
一、选择题
1.VisualBasic采用（A）的编程方法。
A.面向对象B.面向过程C.面向问题D.面向用户
2．VisualBasic集成开发环境有3种工作状态，下面选项中不属于3种工作状态的是（B）
A.设计状态B.编写代码状态C.运行状态D.中断状态
3.工程文件的扩展名是（A）。
A..vbpB..basC..frmD..vpj
4．为了保存一个VisualBasic应用程序，下列说法正确的是（D）。
A.只保存窗体文件（．frm）
B.分别保存工程文件和标准模块文件（．bas）
C.只保存工程文件（．vbp）
D.分别保存工程文件、窗体文件和标准模块文件
二、填空题
1．VisualBasic窗体设计器的主要功能是设计窗体界面
2.如果对象的名称为Mytext,而且对象有一个属性Text,那么正确引用该对象的Text属性的命令是Mytext.Text.
3．后缀为．frm的文件表示VisualBasic的窗体文件
4.应用程序打包后，其打包文件的后缀是.exe
5.当鼠标在对象上单击时，将触发该对象的click事件
三、简答题
1.什么是对象的属性、事件和方法？
三者之间的关系如何？
对象的属性:
对象所具有的特征,如背景颜色,高度,宽度等;
对象的事件:
对象响应的动作;
对象的方法:
VisualBasic中的系统函数;
2.如何设置对象的属性？
如何调用对象的方法？
设置对象的属性:
1）在属性栏中设置;2）对象名.属性=属性值
调用对象的方法:
对象名.方法
第2章VB程序设计基础（数据类型与表达式,没有采用书本习题）
一、单选题
1.设a=5,b=4,c=3,d=2,下列表达式的值是B.
3>2*bOra=cAndb<>cOrc>d
A）1B）TrueC）FalseD）2
2.\、/、Mod、*四个算术运算符中,优先级别最低的是C.
A）\B）/C）ModD）*
3.在VisuaIBasic中,日期/时间型常量要用B括起来.
A）"B）#C）*D）{}
4.设a%=20,b$=”30”,则下列输出结果是”2030”的语句是D.
A）Printstr（a）B）Print“a”+bC）Printa+bD）Printa&b
5.设a=10,b=5,c=1,执行语句Printa>b>c后,窗体上显示的是B_.
A）TrueB）FalseC）1D）出错信息
6.语句Print5*5\5/5的输出结果是B.
A）5B）25C）0D）1
7.语句PrintSgn（-6^2）+Abs（-6^2）+Int（-6^2）的输出结果是C.
A）-36B）1C）-1D）-72
8.表达式Left（”howareyou”,3）的值是＿＿A＿＿.
A）howB）areC）youD）howareyou
9.选拨身高T超于1.7米且体重W小于62.5千克的人,能表示该条件的布尔表达式是＿C＿＿.
A）T>1.7AndW<=62.5B）T<=1.70rW>=62.5
C）T>1.7AndW<62.5D）T>1.70rw<62.5
10.如果将布尔常量值True赋值给一个整型变量,则整型变量的值为＿B＿＿＿＿.
A）0B）-1C）TrueD）False
11.代数式Sin（π-t）2/3÷A×B对应的VisualBasic表达式是＿＿B＿＿＿.
A）（Sin（3.14159-t）^（2/3））/（A*B）
B）（Sin（3.14159-t）^（2/3））/A*B
C）Sin（3.14159-t）^（2/3）/（A*B）
D）（Sin（π-t）^（2/3））/（A*B）
12.如果逻辑与（And）运算的结果为“真”，与它所连接的两个条件必须是＿C＿＿＿＿.
A）前一个为“真”，后一个为“假”B）前一个为“假”，后一个也为“假”
C）前一个为“真”，后一个也为“真”D）前一个为“假”，后一个为“真”
13.为了描述x>y和y>z同时成立,则下述选项中,正确的是＿D＿＿＿＿.
A）x>y.And.y>zB）x>y>zC）x>yAnd>zD）x>yAndy>z
14.满足“当x的值是偶数时为真,奇数时为假”要求的表达式是＿＿A＿＿＿.
A）xMod2＝OB）NotxMod2<>0C）（x＼2*2-x）=OD）Not（xMod2）
二、填空题
1.设有如下VisualBasic表达式:
5*x^2-3*x-2*sin（a）/3,它相当于代数式【1】5X2-3X-2sina/3
2.表示x是5的倍数或9的倍数的逻辑表达式是【4】_.
xmod5=0ORxmod9=0
3.已知a=3.5,b=5.0,c=2.5,d=true,则表达式a>=0ANDa+c>b+3ORNOTd的值是5】_.
False
第3章VB程序控制结构
书本习题3
一、选择题
1.InputBox函数返回值的类型为（B）。
A.数值B.字符串C.变体D.数值或字符串（视输人的数据而定）
2.设a=6,则执行x=iif（a>5,-1,0）后,x的值为（D）。
A.5B.6C.0D.-1
3.假定有以下程序段:
Fori=1To3
Forj=5To1Step-1
Printj
Nextj,i
Printj的执行次数是（A）。
A.15B.16C.17D.19
4.以下程序段的输出结果为（B）。
X=1
Y=4
DoUntilY>4
X=X*Y
Y=Y+1
Loop
PrintX
A.1B.4C.8D.20
二、填空题
1.语句Print5*5\5/5的输出结果是25。
2.执行下面的程序段后,s的值是9。
s=5
Fori=2.6To4.9Step0.6
s=s+1
Nexti
3.以下程序段输出的结果是3。
num=0
Whilenum<=2
num=num+1
Wend
Printnum
4.以下循环执行的次数是10。
k=0
DoWhilek<=10
k=k+1
Loop
三、实验题
1.编写程序,计算1+2+3+…+100。
DimiAsInteger,sumAsInteger
sum=0
Fori=1To100
tsum=sum+i
Nexti
Text1.Text=sum
2.假设我国现有人口12亿,每年增长率为1％,计算多少年后增加到20亿。
Dimn,s1,s2
s1=12:
n=0
DoWhiles2<=20
s2=s1+s1*0.1
s1=s2
n=n+1
Loop
Prints2,n
3.假设有以下每周工作安排:
星期一、三:
讲计算机课
星期二、四:
讲程序设计课
星期五:
进修英语
星期六:
政治学习
星期日:
休息
编写程序,对上述工作日进行检索。
程序运行后,要求输人一周里的某一天,程序将输出这一天的工作安排。
输入时用0~6代表星期日到星期六,如果输人0~6以外的数,则程序结束运行。
Dimmsg,rq
msg="请输入一个字母或0-6之间的数字."
rq=Val（InputBox（msg））'输入一个数字
SelectCaserq
Case2,4
msg="讲计算机课"
Case3,5
msg="讲程序设计课"
Case6
msg="进修英语"
Case7
msg="政治学习"
Case1
msg="休息"
CaseElse
End
EndSelect
MsgBoxmsg
第3章VB程序控制结构补充习题
一、单选题
1.设X初值为0，则下列循环语句执行后，X的值等于A.
Fori=1To10Step2
X=X+i
Nexti
A）25B）36C）24D）27
2.执行以下程序段时，C.
x=1
DoWhilex<>0
x=x*x
printx;
Loop
A）循环体将执行1次B）循环体将执行0次
C）循环体将执行无限次D）系统将提示语法错误
3.有如下程序：
Do循环体LoopWhile<条件>则以下叙述中错误的是A.
A）若“条件”是一个为0的常数，则一次也不执行循环体
B）“条件”可以是关系表达式、逻辑表达式或常数
C）循环体中可以使用ExitDo语句
D）如果“条件”总是为True，则不停地执行循环体
4.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimnumAsInteger
num=1
DoUntilnum>6
Printnum;
num=num+2.4
Loop
EndSub
程序运行后，单击命令按钮，则窗体上显示的内容是B.
A）13.45.8B）135
C）147D）无数据输出
5.在窗体上画一个名称为Command1的命令按钮，然后编写如下事件过程：
PrivateSubCommand1_Click（）
DimaAsInteger,sAsInteger
a=8
s=1
Do
s=s+a
a=a-1
LoopWhilea<=0
Prints;a
EndSub程序运行后，单击命令按钮，则窗体上显示的内容是C.
A）79B）340C）97D）死循环
6.下列程序段显示C个“*”.
Fori=1to5
Forj=1to3
Print”*”
Nextj
Nexti
A）5B）3C）15D）8
7.要使下面程序段能正确显示1！
、2！
、3！
、4！
的值，第一行括号处应填写B.
（）
Forj=1to4
n=n*j
Printn
Nextj
A）n=0B）n=1C）j=1D）j=0
三、编程题
1.输入三角形的三条边a，b，c的值，根据其数值，判断能否构成三角形；若能，还要显示三角形的性质：
等边三角形、等腰三角形、直角三角形和任意三角形.
a=Val（InputBox（"请输入第一条边长:
"））
b=Val（InputBox（"请输入第二条边长:
"））
c=Val（InputBox（"请输入第三条边长:
"））
Print"输入的三个数是:
";a;b;c
If（a+b<=cOra+c<=bOrb+c<=a）Then
Print"输入的三个数不能构成三角形!
"
Else
If（a=bAnda=cAndb=c）Then
Print"输入的三个数构成等边三角形!
"
ElseIf（a^2+b^2=c^2Ora^2+c^2=b^2Orb^2+c^2=a^2）Then
Print"输入的三个数构成直角三角形!
"
ElseIf（（a=bAnda<>c）Or（a=cAndb<>c）Or（b=cAnda<>c））Then
Print"输入的三个数构成等腰三角形!
"
Else
Print"输入的三个数构成任意三角形!
"
EndIf
EndIf
2.输入一年份，判断是否为闰年，并显示有关信息.判断闰年的条件是：
年份能被4整除但不能被100整除，或者能被400整除.
a=Val（InputBox（"请输入要判断是否为闰年的年号：
"））
If（（aMod4=0AndaMod100<>0）OraMod400=0）Then
Print"年号="&a&"是闰年"
Else
Print"年号="&a&"不是闰年"
EndIf
3.某次大奖赛，有七个评委打分，要求输入七个评委的打分分数，去掉一个最高分和一个最低分后，求出该参赛者的得分.
Max=0
Min=100
Fori=1To7
a=Val（InputBox（"请输入选手"&i&"个分数"））
If（a>Max）ThenMax=a
If（aPrint"a=";a;"max=";Max;"min=";Min
s=s+a
Print"i=";i;"h=";h;"s=";s
Next
ave=（s-Max-Min）/5
Print"ave=";ave
4.一个球从100m高度自由落下，每次落地后反弹回原高度的一半再落下.求它在第10次落地时共经过多少米？
落地10次反弹高度是多少.
h=100
s=h
Print"i=";1;"h=";h;"s=";s
Fori=2To10
h=h/2
s=s+2*h
Print"i=";i;"h=";h;"s=";s
Next
第四章VB常用内部控件
书本习题4
一、选择题
1.下列控件中，没有Caption属性的是（B）。
A.框架B.列表框C.复选框D.单选按钮
2.将数据项China添加到列表框（Listl）中成为第一项应使用（A）语句。
A.Listl.AddItem”China”，0
B.Listl.AddItem”China”，1
C.Listl.AddItem0，”China”
D.Listl.AddItem1，”China”
3.文本框（Textl）中有选定的文本,执行Textl.SelText=“Hello”的结果是（A）。
A.”Hello”将替换掉原来选定的文本
B.”Hello”将插人到原来选定的文本之前
C.Textl.SelLength为5
D.文本框中只有”Hello”
4.在程序运行期间,如果拖动滚动条上的滚动框,则触发的滚动事件是（C）。
A.MoveB.ChangeC.ScrollD.GetFocus
5.能改变窗体边框线类型的属性是（B）。
A.FontStyleB.BorderStyleC.BackStyleD.Border
6.用户在组合框中输人或选择的数据可以通过一个属性获得,这个属性是（C）。
A.ListB.ListIndexC.TextD.ListCount
7.设置复选框或单选按钮标题对齐方式的属性是（B）。
A.AlignB.AlignmentC.SortedD.Value
二、填空题
1.图像框中的图形能与图像框的大小相适应，应该把图像框的Stretch属性设置为true.
2.计时器事件之间的间隔通过Interval属性设置。
3.为了使标签能自动调整大小以显示全部文本内容,应把标签的Autosize属性设置为True。
4.要想在文本框中显示垂直滚动条，必须把ScrollBars属性设置为2,同时还应把Multline属性设置为True。
5.在窗体上画一个叉本框和一个图片框，然后编写如下两个事件过程：
PrivateSubFormClick（）
Textl.Text=“VB程序设计”
EndSub
PrivateSubTextlChange（0）
Picturel.Print”VBProgramming”
EndSub
程序运行后，单击窗体，则在文本框中显示的内容是VB程序设计，在图片框中显示的内容是VBProgramming
6.表示滚动条控件取值范围最大值的属性是Max。
7.Alignment属性设置为1，单选按钮和复选框的标题显示在左边。
三、简答题
1.框架的作用是什么？
如何在框架中建立控件？
框架的作用是对窗体上的控件进行分组
在框架中建立控件:
必须先画框架，然后在框架内画出需要成为一组的控件，这样才能使框架内的控件成为一个整体，和框架一起移动。
2.在列表框中添加项目有哪几种方法？
1）在属性栏里设置List属性添加项目;2）用AddItem方法添加项目
3.组合框有哪几种类型?
能否用文本框加列表框实现组合框的功能？
3种类型,由style取值决定
取值0：
为”下拉式组合框”,可以输人文本或从下拉列表中选择表项。
取值1：
为”简单组合框”，列表一直显示在屏幕上，可以选择表项，也可以在编辑区中
取值2：
为”下拉式列表框”。
4.列表框的Columns属性有什么作用？
该属性用来确定列表框的列数。
设置为0（默认）时，项目呈单列显示;
设置为1，项目呈多行多列显示;设置为大于1，则项目呈单行显示
四、实验题
1.在名称为Forml的窗体上画一个图片框（名称为Picturel）、一个垂直滚动条（名称为VScrolll）和一个命令按钮（名称为Commandl,标题为”设置属性”），通过”属性”窗口在图片框中装人一个图形，图片框的宽度与图形的宽度相同，图片框的高度任意（如图4-22所示）。
编写适当的事件过程。
程序运行后，如果单击命令按钮，则设置垂直滚动条的如下属性：
Min100
Max2400
LargeChange200
SmallChange20
之后就可以通过移动滚动条上的滚动块来放大或缩小图片框的高度。
运行后的窗体如图4-22所示。
图4-22运行结果
PrivateSubCommand1_Click（）
VScroll1.Min=100
VScroll1.Max=2400
VScroll1.LargeChange=200
VScroll1.SmallChange=20
EndSub
PrivateSubVScroll1_Scroll（）
Picture1.Height=VScroll1.Value
EndSub
2.在窗体上画两个命令按钮（其名称分别为Commandl和Command2，标题分别为”添加项目”和”删除项目”），再画一个列表框（名称为Listl）和一个文本框（名称为Textl），如图4-23所示。
编写适当的事件过程。
程序运行后，如果单击”添加项目”命令按钮，则从键盘输人要添加到列表框中的项目;如果单击”删除项目”命令按钮，则从键盘输人要删除的项目，将其从列表框中删除。
程序的运行情况如图4-24所示。
图4-23添加控件图4-24运行结果
PrivateSubCommand1_Click（）
List1.AddItemText1.Text
Text1.Text=""
EndSub
PrivateSubCommand2_Click（）
Fori=0ToList1.ListCount-1
IfList1.List（i）=Text1.TextThen
List1.RemoveItemi
EndIf
Next
EndSub
第四章VB常用内部控件补充习题
一、单选题
1.下列控件中没有Caption属性的是B.
A）框架B）列表框C）复选框D）单选按钮
2.复选框的Value属性为1时，表示B.
A）复选框未被选中B）复选框被选中C）复选框内有灰色的勾D）复选框操作有误
3.用来设置斜体字的属性是A.
A）FontItalicB）FontBoldC）FontNameD）FontSize
4.将数据项“China”添加到列表框List1中成为第二项应使用A语句.
A）List1.AddItem"China",1B）List1.AddItem"China",2
C）List1.AddItem1,"China"D）List1.AddItem2,"China"
5.引用列表框List1最后一个数据项，应使用C语句.
A）List1.List（List1.ListCount）B）List1.List（ListCount）
C）List1.List（List1.ListCount-1）D）List1.List（ListCount-1）
6.在窗体上画一个文本框和一个计时器控件，名称分别为Text1和Timer1，在属性窗口中把计时器的Interval属性设置为1000，Enabled属性设置为False，程序运行后，如果单击命令按钮，则每隔一秒钟在文本框中显示一次当前的时间.以下是实现上述操作的程序：
PrivateSubCommand1_Click（）
Timer1.
EndSub
PrivateSubTimer1_Timer（）
Text1.Text=Time
EndSub
Timer1控件的属性及值为A.
A）Enabled=TrueB）Enabled=FalseC）Visible=TrueD）Visible=False
7.假定在图片框Picture1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是B.
A）选择图片框，然后按Del键
B）执行语句Picture1.Picture=LoadPicture（""）
C）执行语句Picture1.Picture=""
D）选择图片框，在属性窗口中选择Picture属性，然后按
升级会员 