VB复习资料xsWord文档下载推荐.docx
《VB复习资料xsWord文档下载推荐.docx》由会员分享,可在线阅读,更多相关《VB复习资料xsWord文档下载推荐.docx(31页珍藏版)》请在冰豆网上搜索。
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>
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
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
Prints2,n
3.假设有以下每周工作安排:
星期一、三:
讲计算机课
星期二、四:
讲程序设计课
星期五:
进修英语
星期六:
政治学习
星期日:
休息
编写程序,对上述工作日进行检索。
程序运行后,要求输人一周里的某一天,程序将输出这一天的工作安排。
输入时用0~6代表星期日到星期六,如果输人0~6以外的数,则程序结束运行。
Dimmsg,rq
msg="
请输入一个字母或0-6之间的数字."
rq=Val(InputBox(msg))'
输入一个数字
SelectCaserq
Case2,4
讲计算机课"
Case3,5
讲程序设计课"
Case6
进修英语"
Case7
政治学习"
Case1
休息"
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;
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的命令按钮,然后编写如下事件过程:
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
A)5B)3C)15D)8
7.要使下面程序段能正确显示1!
、2!
、3!
、4!
的值,第一行括号处应填写B.
()
Forj=1to4
n=n*j
Printn
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
输入的三个数不能构成三角形!
Else
If(a=bAnda=cAndb=c)Then
输入的三个数构成等边三角形!
ElseIf(a^2+b^2=c^2Ora^2+c^2=b^2Orb^2+c^2=a^2)Then
输入的三个数构成直角三角形!
ElseIf((a=bAnda<
c)Or(a=cAndb<
c)Or(b=cAnda<
c))Then
输入的三个数构成等腰三角形!
Else
输入的三个数构成任意三角形!
EndIf
EndIf
2.输入一年份,判断是否为闰年,并显示有关信息.判断闰年的条件是:
年份能被4整除但不能被100整除,或者能被400整除.
请输入要判断是否为闰年的年号:
If((aMod4=0AndaMod100<
0)OraMod400=0)Then
年号="
&
a&
"
是闰年"
不是闰年"
3.某次大奖赛,有七个评委打分,要求输入七个评委的打分分数,去掉一个最高分和一个最低分后,求出该参赛者的得分.
Max=0
Min=100
Fori=1To7
请输入选手"
i&
个分数"
If(a>
Max)ThenMax=a
If(a<
Min)ThenMin=a
Print"
a="
max="
Max;
min="
Min
s=s+a
i="
i;
h="
h;
s="
s
Next
ave=(s-Max-Min)/5
ave="
ave
4.一个球从100m高度自由落下,每次落地后反弹回原高度的一半再落下.求它在第10次落地时共经过多少米?
落地10次反弹高度是多少.
h=100
s=h
1;
Fori=2To10
h=h/2
s=s+2*h
第四章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”
程序运行后,单击窗体,则在文本框中显示的内容是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
2.在窗体上画两个命令按钮(其名称分别为Commandl和Command2,标题分别为”添加项目”和”删除项目”),再画一个列表框(名称为Listl)和一个文本框(名称为Textl),如图4-23所示。
程序运行后,如果单击”添加项目”命令按钮,则从键盘输人要添加到列表框中的项目;
如果单击”删除项目”命令按钮,则从键盘输人要删除的项目,将其从列表框中删除。
程序的运行情况如图4-24所示。
图4-23添加控件图4-24运行结果
PrivateSubCommand1_Click()
List1.AddItemText1.Text
Text1.Text="
PrivateSubCommand2_Click()
Fori=0ToList1.ListCount-1
IfList1.List(i)=Text1.TextThen
List1.RemoveItemi
第四章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"
2
C)List1.AddItem1,"
D)List1.AddItem2,"
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,程序运行后,如果单击命令按钮,则每隔一秒钟在文本框中显示一次当前的时间.以下是实现上述操作的程序:
Timer1.
PrivateSubTimer1_Timer()
Text1.Text=Time
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属性,然后按