2常用标准控件312Word下载.docx
- 文档编号:20870995
- 上传时间:2023-01-26
- 格式:DOCX
- 页数:13
- 大小:19.99KB
2常用标准控件312Word下载.docx
《2常用标准控件312Word下载.docx》由会员分享,可在线阅读,更多相关《2常用标准控件312Word下载.docx(13页珍藏版)》请在冰豆网上搜索。
A)PrivateSubList1_Click()
Label1.Caption=List1.ListIndex
B)PrivateSubList1_Click()
Label1.Name=List1.ListIndex
C)PrivateSubList1_Click()
Label1.Name=List1.Text
D.)PrivateSubList1_Click()
Label1.Caption=List1.Text
(7)在窗体上画一个文本框和一个图片框,然后编写下列两个事件过程:
PrivateSubForm_Click()
Text1.Text="
VB程序设计"
PrivateSubText1_Change()
Picture1.Print"
VBProgramming"
程序运行后,单击窗体,则在文本框中显示的内容是【7】,而在图片框中显示
的内容是【8】。
(18)在窗体上画两个文本框,其名称分别为Text1和Text2,然后编写下列程序:
PrivateSubForm_Load()
Show
Text1.Text=““
Text2.Text=““
Text1.SetFocus
PrivateSubText1Change()
Text2.Text=Mid(Text1.Text,8)
程序运行后,如果在文本框Text1中输入BeijingChina,则在文本框Text2中显示的
内容是()。
A)BeijingChinaB)China
C)BeijingD)BeijingC
(19)在窗体上画一个列表框和一个命令按钮,其名称分别为List1和Command1,然后编
写下列事件过程:
List1.AddItem"
Iterm1"
Iterm2"
Iterm3"
List1.List(List1.Listcount)="
AAAA"
程序运行后,单击命令按钮,其结果为()。
A)把字符串"
添加到列表框中,但位置不能确定
B)把字符串"
添加到列表框的最后(即“Item3”的后面)
C)把列表框中原有的最后一项改为"
D)把字符串"
插入到列表框的最前面(即“Item1”的前面)
(10)如图所示,在列表框list1中已经有若干人的简单信息,运行时在Text1文本框(即
“查找对象”右边的文本框)输入一个姓或姓名,单击“查找”按钮,则在列表框中
进行查找,若找到,则把该人的信息显示在Text2文本框中。
若有多个匹配的列选项,
则只显示第1个匹配项;
若未找到,则在Text2中显示“查无此人”。
请填空。
DimkAsInteger,nAsInteger,
foundAsBoolean
found=False
n=Len(【14】)
k=0
Whilek<List1.ListCountAndnotfound
IfText1=Left$(List1.List(k),n)Then
Text2=【15】
found=True
EndIf
k=k+1
Wend
IfNotfoundThen
Text2="
查无此人"
EndSub__
2006-04
(30)为了使列表框中的项目呈多列显示,需要设置的属性为()。
A)ColumnsB)Style
C)ListD)MultiSelect
2006-09
(11)下列叙述中正确的是()。
A)窗体的Name属性指定窗体的名称,用来标识一个窗体
B)窗体的Name属性值是显示在窗体标题栏中的文本<
caption>
C)可以在运行期间改变窗体的Name属性的值<
只读>
D)窗体的Name属性值可以为空
(12)下列叙述中错误的是()。
A)打开一个工程文件时,系统自动装入与该工程有关的窗体文件
B)保存VisualBasic程序时,应分别保存窗体文件及工程文件
C)VisualBasic应用程序只能以解释方式执行<
解释、编译>
D)窗体文件包含该窗体及其控件的属性
(17)在窗体上画一个文本框(其名称为Text1)和一个标签(其名称为Label1),程序运
行后,如果在文本框中输入指定的信息,则立即在标签中显示相同的内容。
下列可以
实现上述操作的事件过程是()。
A)PrivateSubText1_Click()B)PrivateSubText1_Change()
Label1.Caption=Text1.TextLabel1.Caption=Text1.Text
EndSubEndSub
C)PrivateSubLabel1_Change()D)PrivateSubLabel1_Click()
(7)在窗体上有一个名称为Command1的命令按钮和一个名称为Text1的文本框。
程序运
行后,Command1为禁用(灰色),此时如果在文本框中输入字符,则命令按钮
Command1变为可用。
Command1.Enabled=False
PrivateSubText1_【7】()
Command1.Enabled=True
(10)在窗体上画一个名称为Combo1的组合框,然后画两个名称分别为Label1、Label2,
标题分别为“城市名称”和空白的标签。
程序运行后,在组合框中输入一个新项目并
按回车键,如果输入的项目在组合框的列表中不存在,则自动将其添加到组合框的列
表中,并在Label2中给出提示“已成功添加新输入项”,如图所示。
如果输入的项
目已存在,则在Label2中给出提示“输入项已在组合框中”。
PrivateSubCombol_KeyPress(KeyAsciiAsInteger)
IfKeyAscii=13Then
Fori=0ToCombo1.ListCount-1
IfCombo1.Text=【12】Then
Label2.Caption="
输入项已在组合框中"
ExitSub
Nexti
已成功添加新输入项"
Combo1.【13】Combo1.Text
2007-04
(13)设在名称为Myform的窗体上只有1个名称为C1的命令按钮,下列叙述中正确的是
()。
A)窗体的Click事件过程的过程名是Myform_Click
B)命令按钮的Click事件过程的过程名是C1_Click
C)命令按钮的Click事件过程的过程名是Command1_Click
D)上述3种过程名称都是错误的
(14)设窗体上有1个滚动条,要求单击滚动条右端的按钮一次,滚动块移动一定的刻度
值,决定此刻度值的属性是()。
A)MaxB)MinC)SmallChangeD)LargeChange
(16)若设置了文本框的属性PasswordChar="
$"
,则运行程序时向文本框中输入8个任意字
符后,文本框中显示的是()。
A)8个"
B)1个"
C)8个"
*"
D)无任何内容
(17)设在窗体上有1个名称为Combol的组合框,含有5个项目,要删除最后一项,正确
的语句是()。
A)Combo1.RemoveItemCombo1.Text
B)Combo1.RemoveItem4
C)Combo1.RemoveItemCombo1.ListCount
D)Combo1.RemoveItem5
(18)工程中有2个窗体,名称分别为Form1、Form2,Form1为启动窗体,该窗体上有命
令按钮Command1。
要求程序运行后单击该命令按钮时显示Form2,则按钮的Click
事件过程应该是()。
A)PrivateSubCommand1_Click()B)PrivateSubCommand1_Click()
Form2.VisibleForm2.Show
C)PrivateSubCommand1_Click()D)PrivateSubCommand1_Click()
Form2.LoadLoadForm2
(24)在窗体上有1个名称为Text1的文本框和1个名称为Command1的命令按钮,要求在
程序执行时,每单击命令按钮一次,文本框向右移动一定距离。
下列能够正确实现上
述功能的程序是()。
Text1.Left=100Text1.Left=Text1.Left-100
Textl.MoveText1.Left+100Text1.MoveText1.Left
(25)某人创建了1个工程,其中的窗体名称为Form1;
之后又添加了1个名为Form2的
窗体,并希望程序执行时先显示Form2窗体,那么,他需要做的工作是()。
A)在工程属性对话框中把“启动对象”设置为Form2
B)在Forml的Load事件过程中加入语句LoadForm2
C)在Form2的Load事件过程中加入语句Form2.Show
D)把Form2的TabIndex属性设置为l,把Form1的TabIndex属性设置为2
(30)窗体上有1个名称为Listl的列表框,其中已经输入了若干个项目,如图所示;
还有
2个文本框,名称分别为Text1、Text2,1个名称为Command1的命令按钮,并有下
列事件过程。
DimstrAsString,sAsString,kAsInteger
s=Text1
str=““
Fork=Listl.ListCount-1To0Step-1
IfInStr(Listl.List(k),s)>
0Then
str=str&
Listl.List(k)&
"
Nextk
Ifstr="
Then
没有匹配的项目"
Else
Text2=str
程序运行时,在Text1中输入“京”,单击命令按钮,则在Text2中显示的内容是()。
A)京B)北京南京
C)南京北京D)没有匹配的项目
(32)在窗体上先后画2个图片框,名称分别为Picture1和banana,banana中添加了香蕉图
片,如图1所示,且将banana.DragMode属性设置为1。
要求程序运行时,可以用鼠
标把banana拖拽到Picture1中,如图2所示。
能实现此功能的事件过程是()。
图1图2
A)PrivateSubForm_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
banana.MovePicture1.Left+X,Picture1.Top+Y
B)PrivateSubbanana_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source.MovePicture1.Left+X,Picture1.Top+Y
C)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
Source.MovePicture1.Left+X,Picture1.Top+Y
D)PrivateSubPicture1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)
banana.Movebanana.Left+X,banana.Top+Y
2007-09
(11)要使一个文本框可以显示多行文本,应设置为True的属性是()。
A)EnabledB)MultiLineC)MaxLenthD)Width
(12)在窗体上有一个名为Textl的文本框。
当光标在文本框中时,如果按下字母“A”,
则可被调用的事件过程是()。
A)Form_KeyPress()B)Textl_LostFocus()
C)Textl_Click()D)Textl_Change()
(13)设在窗体上有一个名称为Commandl的命令按扭和一个名称为Textl的文本框。
要求
单击Commandl按钮时可把光标移到文本框中。
下列正确的事件过程是()。
A)PrivateSubCommandl_Click()
Textl.GotFocus
B)PrivateSubCommandl_Click()
Commandl.GotFocus
C)PrivateSubCommandl_Click()
Textl.SetFocus
D)PrivateSubCommandl_Click()
Commandl.SetFocus
Endsub
(15)设在窗体Form1上有一个列表框List1,其中有若干个项目。
要求单击列表框中某一
项时,把该项显示在窗体上,正确的事件过程是()。
PrintList1.Text
B)PrivateSubForm1_Click()
PrintForm1.Text
D)PrivateSubForm1_Click()
List1.PrintList1.Text
(16)若窗体上的图片框中有一个命令按钮,则此按钮的Left属性是指()。
A)按钮左端到窗体左端的距离B)按钮左端到图片框左端的距离
C)按钮中心点到窗体左端的距离D)按钮中心点到图片框左端的距离
(18)在窗体上有如图所示的控件,各控件的名称与其标题相同,并有下列程序:
Command2.Enabled=False∶Check1.Value=1
刚运行程序时,看到的窗体外观是()。
A)
B)
C)
D)
(19)设在窗体中有一个名称为List1的列表框,其中有若干个项目,如图所示。
要求选中
某一项后单击Command1按钮,就删除选中的项,则正确的事件过程是()。
A)PrivateSubCommand1_Click()
ListlClear
B)PrivateSubCommand1_Click()
List1.ClearList1.ListIndex
C)PrivateSubCommand1_Click()
List1.RemoveItemList1.ListIndex
D)PrivateSubCommand1_Click()
List1.RemoveItem
(23)某人在窗体上画了一个名称为Timer1的计时器和一个名称为Label1的标签,计时器
的属性设置为Enabled=True,Interval=0,并编程下列。
希望在程序运行时,可以每2
秒在标签上显示一次系统当前时间。
Label1.Caption=Time$
在程序执行时发现未能实现以上目的,那么,他应做的修改是()。
A)通过属性窗口把计时器的Interval属性设置为2000
B)通过属性窗口把计时器的Enabled属性设置为False
C)把事件过程中的Label1.Caption=Time$语句改为Timer1.Interval=Time$
D)把事件过程中的Label1.Caption=Time$语句改为Label1.Caption=Timer1.Time
(24)形状控件的Shape属性有6种取值,分别代表6种几何图形。
下列不属于这6种几何
图形的是()。
A)B)C)D)
(26)设窗体上有一个图片框Picture1,要在程序运行期间装入当前文件夹下的图形文件
File1.jpg,能实现此功能的语句是()。
A)Picture1.Picture="
File1.jpg"
B)Picture1.Picture=LoadPicture("
)
C)LoadPicture("
D)CallLoadPicture("
(6)窗体上有一个组合框,其中已输入了若干个项目。
程序运行时,单击其中一项,即可
把该项与最上面的一项交换。
如单击图1中的“重庆”,则与“北京”交换,得到图
2的结果。
以下是可实现此功能的程序,请填空。
PrivateSubCombo1_Click()
Dimtemp
temp=Combo1.Text
【6】=Combo1.List(0)
Combo1.List(0)=temp
(7)设窗体有上一个名称为HScrol1的水平滚动条,要求当滚动块移动位置后,能够在窗
体上输出移动的距离(即新位置与原位置的刻度值之差,向右移动为正数,向左移动
为负数)。
Dim【7】AsInteger
PrivateSubFrom_Load()
pos=HScrol1.Value
PrivateSubHScroll1_Change()
Print【8】-pos
pos=HScroll1.Value
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 常用 标准 控件 312