常用控件习题.docx
- 文档编号:28996140
- 上传时间:2023-07-20
- 格式:DOCX
- 页数:18
- 大小:120.16KB
常用控件习题.docx
《常用控件习题.docx》由会员分享,可在线阅读,更多相关《常用控件习题.docx(18页珍藏版)》请在冰豆网上搜索。
常用控件习题
第5章常用控件
习题
一、判断题
1.命令按钮不但能响应单击事件,而且还能响应双击事件。
2.如果命令按钮Default属性为True,那么任何时候按Enter键都相当于单击该命令按钮。
3.标签控件和文本框控件都能用来输入和输出文本。
4.虽然标签控件显示的文本在运行时不能编辑,但是可以通过程序代码进行改变。
5.SetFocus方法是把焦点移到指定对象上,使对象获得焦点,该方法适用于所有控件。
6.文本框控件常用事件有Change事件、KeyPress事件等,此外它也支持鼠标的Click事件和DblClick事件。
7.运行时,控件的位置可以通过程序代码改变Left和Top属性来定位,也可以直接用鼠标拖动控件来定位。
8.要在文本框中输入6位密码,并按回车键确认,则文本框的MaxLength属性可设置为6。
9.要使输入文本框的字符始终显示“#”,则应修改其PasswordChar属性为“#”。
10.在窗体上建立的控件的标题文字或显示内容的默认字体为窗体字体。
11.单选钮控件和复选框控件都具有Value属性,它们的作用完全一样。
12.单选钮能响应Click事件,但不能响应KeyPress事件。
13.使用单选钮控件数组时,它们响应同一个Click事件,由Index参数值来区分不同的按钮。
14.复选框不支持鼠标的双击事件,如果双击则系统会解释为两次单击事件。
15.设置框架时,可先在窗体上画好框架,再往框架内添置控件;也可以先设计控件,再建立框架,然后将已有控件拖动到框架中。
16.移动框架时框架内控件也跟随移动,因此框架内控件的Left和Top属性值也随之改变。
17.当列表框Style属性设置为1时,复选框将显示在列表框中,支持多选,所以可以将MultiSelect属性值设置为0、1、2中任意一个值。
18.当列表框中表项太多、超出了设计时的长度时,VisualBasic会自动给列表框加上垂直滚动条。
19.列表框和文本框一样均没有Caption属性,但都具有Text属性。
20.从几十个项目中任选其中一项或多项时可选用列表框或组合框控件来实现。
21.将组合框的Style属性设置为0时,组合框称为“下拉式组合框”,其选项可以从下拉列表框的列表项中选择,也可以由用户输入。
22.可以通过合理设置组合框的MultiSelect属性使组合框支持简单复选或扩展复选。
23.滚动条控件可作为用户输入数据的一种方法。
24.用户可拖动滚动条的滚动滑块来改变滚动条的Value值,在移动滚动滑块时,发生Change事件。
25.由于定时器控件在运行时是不可见的,因此在设置时可将其放在窗体的任何位置。
二、选择题
1.标签控件的标题和文本框控件的显示文本的对齐方式由属性来决定。
A、WordWrapB、AutoSizeC、AlignmentD、Style
2.将命令按钮Command1设置为窗体的取消按钮,可修改该控件的属性。
A、EnabledB、ValueC、DefaultD、Cancel
3.下列属性用来表示标签或窗体的标题。
A、TextB、CaptionC、LeftD、Name
4.将焦点主动设置到指定的控件或窗体上,应采用方法。
A、SetDateB、SetFocusC、SetTextD、GetGata
5.按Tab键时,焦点在各个控件之间移动的顺序是由属性来决定的。
A、IndexB、TabIndexC、TabStopD、SetFocus
6.下列属性用来表示各对象(控件)的位置。
A、TextB、CaptionC、LeftD、Name
7.当文本框的属性设置为True时,在运行时文本框不能编辑。
A、EnabledB、LockedC、VisibleD、MultiLine
8.要使文本框显示滚动条,除了设置ScrollBars属性外还必须设置属性。
A、AutoSizeB、MultiLineC、AlignmentD、Visible
9.文本框控件Text4的Text属性默认值为。
A、Text4B、"Text4"C、LockedD、Name
10.文本框中选定的内容,由下列属性来反映。
A、SelTextB、SelLengthC、TextD、Caption
11.选中复选框控件时,Value属性的值为。
A、TrueB、FalseC、0D、1
12.要使复选框控件不响应Click事件,可设置复选框的属性。
A、AppearanceB、StyleC、EnabledD、TabIndex
13.若要在同一窗体中安排两组单选钮,可用控件予以分隔。
A、文本框B、框架C、列表框D、组合框
14.列表框的属性返回或设置列表框中各列表项的文本。
A、SelectedB、ListC、TextD、Caption
15.List1.Clear中的Clear是。
A、方法B、对象C、属性D、事件
16.以下语句将删除列表框List1中的最后一项。
A、List1.RemoveItemList1.ListCount
B、List1.Clear
C、List1.List(List1.ListCount-1)=""
D、List1.RemoveItemList1.ListCount-1
17.若要把"XXX"添加到列表框List1中的第三项,则可执行语句。
A、List1.AddItem"XXX",3B、List1.AddItem"XXX",2
C、List1.AddItem3,"XXX"D、List1.AddItem2,"XXX"
18.滚动条的属性用于指定用户单击滚动条的滚动箭头时,Value属性值的改变量。
A、LargeChangeB、SmallChangeC、ValueD、Change
19.单击滚动条两端的任意一个滚动箭头,将触发该滚动条的事件。
A、KeyDownB、ChangeC、ScrollD、Click
20.设计动画时通常用定时器控件属性来控制动画速度。
A、IntervalB、TimerC、MoveD、Enabled
三、填空题
1.控件的Top属性是指控件的(上、下)边至窗体标题栏(上、下)边的距离;Left属性是指控件(左、右)边到窗体(左、右)边的距离。
2.VisualBasic窗体的位置、大小属性值的度量单位为,与窗体坐标刻度(有关/无关)。
3.如果字符“Y”是某个命令按钮的访问键,在设计时,设置命令按钮的Caption属性时要在其中字符“Y”前输入;运行时,可以通过按键执行单击操作。
4.运行时,若需要命令按钮为灰色,即不被击活,在设计时可以通过属性来实现。
5.文本框中输入的字符数需加以限定时,用的是文本框的属性。
6.把焦点移到文本框Text1中的语句为。
7.属性决定文本框是否可以接受多行文本。
8.要让控件隐藏起来,处于不可见状态,可修改其属性。
9.要使输入文本框的字符靠右对齐,可修改文本框的属性。
10.要使标签框的大小随Caption属性做自动调整,应修改其属性。
11.对象的标题文字的颜色是由属性决定的。
12.运行时单击复选框,将使复选框的Value值取。
13.运行时单击单选钮,将使单选钮的Value值取。
14.要使复选框或单选钮的标题文字靠左,应设置Alignment属性为。
15.方法用来向列表框中加入列表项。
16.当列表框的MultiSelect属性值为时,单击列表项或按空格键可以实现复选。
17.语句将清空列表框List1中所有列表项。
18.组合框具有和两种控件的基本功能。
19.组合框Style属性为0、1和2时决定的组合框样式分别是、和。
20.拖动滚动条的滚动滑块时仅发生事件。
21.滚动条的滚动滑块的位置由属性决定的。
22.执行语句“HScroll1.Value=HScroll1.Value+100”时,发生事件。
23.定时器的Interval属性值为0时,表示。
24.定时器控件只能接收事件。
25.定时器的Interval属性值不得大于。
四、程序阅读题
程序1.请写出在Text1、Text2、Text3中依次输入3、4、5后,单击窗体时Label1的显示结果。
PrivateSubForm_Click()
DimaAsSingle,bAsSingle,cAsSingle
a=Text1.Text:
b=Text2.Text:
c=Text3.Text
Label1.Caption=Str(a*a+2*b*b+3*c*c)
EndSub
程序2.请写出在Text1、Text2中输入96、40后,单击Command1时窗体上的显示结果。
PrivateSubCommand1_Click()
DimaAsLong,bAsLong,rAsLong
a=Text1.Text:
b=Text2.Text
DoWhileb<>0
r=aModb:
a=b:
b=r
Loop
Printa
EndSub
程序3.请写出在文本框中输入“12345”(5个字符)并按回车键后标签控件上的显示结果。
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
DimaAsString*1,bAsString,nAsByte,iAsInteger
IfKeyAscii=13Then
b=Text1.Text:
n=Len(b)
Fori=1Ton\2
a=Left(b,1)
b=Right(b,n-1)+a
Label1.Caption=Label1.Caption+b+Chr(13)+Chr(10)
Nexti
EndIf
EndSub
程序4.请写出在文本框中输入“小李”(2个汉字)并按下回车键后,窗体上显示的结果。
PrivateSubText1_Change()
PrintText1.Text;",你好!
"
EndSub
程序5.写出程序运行时,单击Option1
(2)后,窗体上的显示结果。
PrivateSubForm_Load()
Option1(0).Value=False:
Option1
(1).Value=False:
Option1
(2).Value=False
EndSub
PrivateSubOption1_Click(IndexAsInteger)
SelectCaseIndex
Case0
Check1(0).Value=1:
Check1
(1).Value=0
Case1
Check1(0).Value=0:
Check1
(1).Value=1
Case2
Check1(0).Value=1:
Check1
(1).Value=1
EndSelect
IfCheck1(0).Value=1ThenPrint"您好"
IfCheck1
(1).Value=1ThenPrint"欢迎使用VisualBasic!
"
EndSub
程序6.写出程序运行时,在组合框中输入“香蕉”并按回车键后,列表框中的所有表项。
PrivateSubForm_Load()
Combo1.AddItem"西瓜":
Combo1.AddItem"苹果":
Combo1.AddItem"橘子"
Combo1.AddItem"葡萄":
Combo1.AddItem"哈密瓜"
Combo1.AddItem"火龙果":
Combo1.AddItem"柚子"
Combo1.List(0)="李子":
Combo1.List(7)="猕猴桃"
EndSub
PrivateSubCombo1_KeyPress(KeyAsciiAsInteger)
DimiAsInteger
IfKeyAscii=13ThenCombo1.List(Combo1.ListCount)=Combo1.Text
List1.Clear
Fori=0ToCombo1.ListCount-1
IfLen(Trim(Combo1.List(i)))<3ThenList1.AddItemCombo1.List(i)
Nexti
EndSub
程序7.已知水平滚动条HScroll1的有关属性已经在属性窗口进行了如下的设置:
HScroll1.Min:
1HScroll1.Max:
10HScroll1.SmallChange:
1
HScroll1.LargeChange:
2HScroll1.Value:
5
写出连续3次单击水平滚动条HScroll1右端箭头后,窗体上显示的结果。
PrivateSubHScroll1_Change()
StaticyAsInteger
IfHScroll1.ValueMod2=0Then
y=y+HScroll1.Value
Print"y=";y
EndIf
EndSub
程序8.写出程序运行后窗体上显示的结果。
DimxAsInteger
PrivateSubForm_Load()
Timer1.Interval=1000:
Timer1.Enabled=True
EndSub
PrivateSubTimer1_Timer()
Callsub1(x)
x=x+1
Ifx>=5ThenTimer1.Enabled=False
EndSub
PublicSubsub1(nAsInteger)
n=n+1
Print"n=";n
EndSub
五、程序填空题
1.【程序说明】窗体上已建立命令按钮Command1(开始)、Command2(结束)和文本框Text1,Text1中输入字符个数不得超过100个。
开始运行时,“结束”命令按钮不能响应;按“开始”命令按钮后,将文本框中的字符按其ASCII码值由小到大顺序从左到右重新排列,并在窗体上输出重新排列后的字符串,同时“结束”命令按钮能响应,“开始”按钮不能响应。
PrivateSubCommand1_Click()
DimnAsByte,iAsByte,jAsByte,pAsByte
Dima(100)AsString*1,str1AsString,tAsString
str1=Text1.Text:
n=Len(str1)
Fori=1Ton:
(1):
Nexti
Fori=1Ton-1
p=i
Forj=i+1Ton
Ifa(p)>a(j)Then
(2)
Nextj
Ifp<>iThent=a(i):
(3):
a(p)=t
Nexti
Fori=1Ton:
Printa(i);:
Nexti
(4)
Command1.Enabled=False
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Command2.Enabled=False
EndSub
2.【程序说明】窗体上有两个命令按钮:
Command1(显示)和Command2(退出)。
下列程序运行时,“显示”按钮能响应,“退出”按钮不能响应;单击“显示”按钮后,在窗体上显示一个用字符“*”组成的5层的金字塔,同时“显示”按钮不能响应,“退出”按钮能响应。
PrivateSubCommand1_Click()
DimiAsInteger,jAsInteger
Fori=1To5
PrintSpc(5-i);
Forj=
(1):
Print"*";:
Nextj
Nexti
Command1.Enabled=False
(2)
EndSub
PrivateSubCommand2_Click()
End
EndSub
PrivateSubForm_Load()
Command1.Enabled=True
(3)
EndSub
3.【程序说明】下列程序能在一定范围内找出所有素数,要求:
文本框用来输入所要找的数的范围,且只能先在Text1(必须大于1)输入结束后才能在Text2(必须大于Text1中的数)中输入,按回车键表示输入结束。
在Text2输入结束后,才能单击“Command1”(确定)命令按钮,并在窗体上输出该范围内的所有素数。
以上过程可重复。
PrivateSubForm_Load()
Command1.Enabled=False:
(1)
EndSub
PrivateSubCommand1_Click()
DimnAsInteger,mAsInteger,iAsInteger,pAsInteger
n=Val(Text1.Text):
m=Val(Text2.Text)
Fori=nTom
(2)
DoWhilep<=Int(Sqr(i))
IfiModp=0ThenExitDoElsep=p+1
Loop
Ifp>Int(Sqr(i))Then(3)
Nexti
Text1.Text="":
Text2.Text=""
Text1.Enabled=True:
Text2.Enabled=False
Command1.Enabled=False
EndSub
PrivateSubText1_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
If(4)Then
Text1.Text=""
Else
Text2.Enabled=True:
Text1.Enabled=False
EndIf
EndIf
EndSub
PrivateSubText2_KeyPress(KeyAsciiAsInteger)
If(5)Then
IfVal(Text2.Text)<=Val(Text1.Text)Then
Text2.Text=""
Else
Text2.Enabled=False
Command1.Enabled=True
EndIf
EndIf
EndSub
4.【程序说明】以下程序可以将列表框中同时选中的多个列表项删除,请将程序补充完整。
PrivateSubcmdDel_Click()
i=0
DoWhilei<
(1)
IfList1.Selected(i)=TrueThen
(2)
Else
(3)
EndIf
Loop
EndSub
5.【程序说明】利用1个定时器、1个标签和2个命令按钮制作一个动态秒表。
各控件名称取缺省值,控件Command1、Command2标题分别为“开始”、“结束”。
运行时,单击“开始”按钮后秒表开始计时,并在标签上显示总秒数;单击“结束”按钮后,计时结束,在窗体上显示出运行的时间(折算成小时、分钟和秒数)。
DimxAsLong
PrivateSubForm_Load()
Timer1.Interval=1000:
Timer1.Enabled=False
EndSub
PrivateSubCommand1_Click()
Cls
x=0
(1)
EndSub
PrivateSubCommand2_Click()
DimhAsInteger,mAsInteger,sAsInteger
Timer1.Enabled=False
h=
(2)
m=(3)
s=xMod3600Mod60
Print"运行了"+Str(h)+"小时"+Str(m)+"分"+Str(s)+"秒"
EndSub
PrivateSubTimer1_Timer()
(4)
Label1.Caption=x
EndSub
6.【程序说明】本题是利用计时器控件来实现文字的水平移动,要求:
(1)运行时标签框内的文字从窗体左边向右边移动,当标签框的左边界超出窗体的右边界时,从窗体的左边进入窗体(尾部先进入)。
(2)文字移动时颜色不断产生随机变化。
PrivateSubForm_Load()
Form1.WindowState=2
Timer1.Interval=100
EndSub
PrivateSubTimer1_Timer()
Label1.ForeColor=RGB(255*Rnd,255*Rnd,255*Rnd)
(1)=Label1.Left+150
IfLabel1.Left>=Form1.WidthThen
(2)
EndSub
六、程序设计题
1.在窗体上建立命令按钮“Command1”(显示)和“Command2”(退出)。
运行时,“Command2”按钮始终显示“退出”;单击“显示”按钮后窗体上显示“欢迎使用VisualBasic!
”,同时标题改为“清除”,再单击“清除”按钮后,界面恢复窗体装入时的初始状态。
2.编程,查看所按键的ASCII码:
在文本框控件内输入某个字符,用标签控件显示输入字符的ASCII码。
3.编程,建立1个文本框用于输入口令(显示为“*”,按回车键作为结束)、1个命令按钮(标题为“进入”)。
运行时,“进入”按钮不能响应,直到输入的口令正确时才响应。
输入口令时,有相应的提示信息。
当单击“进入”按钮时,在窗体上显示“欢迎进入!
”。
4.编程,窗体标题为“猜数游戏”。
基本要求:
单击“出题”按钮则生成一个1~100间的随机整数;然后在文本框中输入若干数(以回车键结束),大于或小于随机数则给出提示信息,猜1个数超过10次不
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 常用 控件 习题