如：msgbox List.ListIndex 若当前选中了列表框里的第二项，则返回1 2、 List:表示列表框里的选项内容，后面要加上索引值。
如:Text1.Text=List1.List()若开表框里的第一项为aaa，则文本框Text1，里边的内容为aaa
综合例子：Text1.Text=List1.List(List1.ListIndex)
3、 Sorted:列表框里元素的排序方式--值为True:列表项自动按升序排序； False:列表项按插入的顺序排序
4、 Selected:设置一个选中的状态，后面要加上索引值--值为True:表示选中； False:表示未选中；
如：If List1.Selected(0)=True then List1.RemoveItem 0 End If
5、 MultiSelect:指定列表框里的选项是否可以多选。 值为1：每次只能从中选择一项； 值为2：可以普通多选，只用鼠标实现；
值为3：可以多选，用Ctrl+鼠标或Shift+鼠标实现 6、 ListCount:用于返回列表框里的选项的总数。 事件：
1、 Click:点击列表框中的选项时发生的。 2、 Scroll:滚动列表框的滚动条时发生的。 方法：
1、 AddItem:向列表框中的添加选项，后面跟添加的内容 如：List1.AddItem\
2、 RemoveItem:从列表框中删除一选项，后面跟索引值
如：List1.RemoveItem 0 表示删除列表框中的第一项，若删除全部选项应用循环实现 3、 SetFocus:使列表框获得焦点 4、 Clear:清空列表框里的列表项
3.3 同步练习题
一、选择题
2.若要使标签控件显示时，不覆盖其背景内容，应设置标签控件的（D.BackStyle）。 4.Image控件加载图片后的尺寸（D.与图片大小相同）。 6.当用户单击命令按钮时，（B.Enabled）属性可以使得命令按钮对激发事件无效。 8.使用（B.AddItem）方法可将新的列表项添加到一个列表框中。 10.(C.时钟)控件可以帮助控制动画效果。
12.下列叙述中正确的是（A.标签控件不能接受焦点事件）。 14.下面（D.ListBox）控件不支持Change事件。
16.Timer控件的（A.Enabled）属性决定该控件是否对时间的推移做出响应。将该属性设置False会关闭Timer控件，设置为True则会打开它。
18.指定列表的元素是否按字母表顺序自动排序的属性为（D.Stored）。
20.以下关于时钟控件的说法，正确的是（C.运行时时钟控件在窗体上不可见，如果时钟控件的Interval属性为0，则时钟控件无效）。
22.当某一按钮的（B.Enabled）属性设置为False时，该按钮为灰白显示。 24.引用列表框List1的最后一项使用（A.List1.List（List1.ListCount-1））。
26.为了删除ComboBox控件中的项目内，需要使用（D.RemoveItem）方法。
28.设窗体上有一个滚动条，要求单击滚动条右端的箭头一次，滚动块移动一定刻度值，决定此刻度值的属性是（C.SmallChange）。
30.在窗体上有一个名称为Text1的文本框和一个名称为Command1的命令按钮，要求在执行程序时，每单击按钮一次，文本框向右移动一定距离。下面能够正确实现上述功能的程序是（C.Private Sub Command1_Click() Text1.MoveText1.Left+100 End Sub)。
32.为了删除窗体上的一个控件，下列正确的操作是（D.选择要清除的控件后按Del键）。 34.假定在图片框P1中装入了一个图形，为了清除该图形（不删除图片框），应采用的正确方法是（B.执行语句P1.Picture=LoadPicture(“”)）。
36.窗体上有名为Option1的单选按钮，则以下语句中与IfOption1.Value=TrueThen不等价的是（C.IfValue=True Then）。
38.在窗体上画1个命令按钮和2个文本框，其名称分别为Command1、Text1和Text2，然后编写如下程序：
Dim sl As String, s2 As String Private Sub Form_Lodad()
Text1.Text=”” Text2.Text=”” End Sub
Private Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)
S2=s2&Chr(KeyCode) End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
s1=s1&Chr(KeyAscii) End Sub
Private Sub Command1_Click()
Text1.Text=s2 Text2.Text=s1
S1=”” S2=”” End Sub
运行程序后，在Text1中输入“abc”，然后单击命令按钮，在文本框Text1和Text2中显示的内容分别是（C.ABC和abc）。
40.在窗体上画一个名称为Text1的文本框和一个名称为Command1的命令按钮，然后编写如下事件过程
Private Sub Command1_Click()
Text1.Text=”Visual”:Me.Text1=”Basic”:Text1=Text1&”Program” End Sub
程序运行后，如果单击命令按钮，则文本框中显示的是（C.BasicProgram）。
42.以下关于图片框控件的说法中，错误的是（D.用Stretch属性可以自动调整图片框中图形的大小）
44.以下叙述中错误的是（B.在KeyPress事件过程中不能回避回车键）
46.如果窗体Form1上有“字体”框架在代码编辑窗口有框架FontFrame_DblClick()事件过程和窗体的单击事件过程，则框架的名称属性和Caption属性分别为（A.”FontFrame”和“字体”），窗体的单击事件过程名为（Form_Click）
48.下列关于某对象SetFocus和GotFocus的描述中，正确的的是（D.SetFocus是方法，GotFocus是事件）
50.能够存放组合框的所有项目内容的属性是（C.List）
52.图像框有一个属性，可以自动调整图形的大小，以适应图像框的尺寸，这个属性是（A.Autosize）
54.设窗体上有1个水平滚动条，已经通过属性窗口把它的Max属性设置为0，Min属性设置为100，下列叙述正确的是（A.程序运行时，若使滚动块向左滑动，滚动条的Value属性值就增加）
56.若看到程序中有以下事件过程，并希望运行后窗体上有文本输出，则可以肯定的是（B.鼠标右键单击Click对象，执行此过程） If Button =2Then Print “VB Program” End Sub
二、填空题
2.时钟控件不同于其他控件之处在于（周期性地自动引发事件）。 4.设置是否可以用Tab键来选取命令按钮，应该用（TabStop）属性。 6.设置时钟控件只能触发（Timer）事件。
8.列表框的ListIndex属性值为最后选中的列表项序号，第一个列表项的序号为（0）如果未选中任何项目，则其值为（-1）
10.列表框的（List）和（Selected）属性是数组。
12.在对象的KeyDown和KeyUp事件过程中，当参数Shift的值为1、2、4时，分别表示用户按下了（Shift）、（Ctrl）和（Alt）键。
14.为了自定义鼠标光标的形状，首先应该把对象的（MousePointer）属性设置为（99），然后再把（MouseIcon）属性设置为一个图标文件。
16.在窗体上有1个名称为Command1的命令按钮和1个名称Text1的文本框，程序运行后，Command1为禁用(灰色)，此时如果在文本框中输入字符，则命令Command1变为可用。请填空。
Private Sub Form_Load()
Command1.Enabled=False End Sub
Private Sub Text1_(Change)() Command2.Enabled=Ture
18.假定建立了一个工程，该工程包括两个窗体，其名称分别为Form1和Form2启动窗体为Form1画一个命令按钮Command1，程序运行后，要求当单击该命令按钮时，Form1窗体消失，显示窗体Form2，补充。 Private Sub Command1_()Click() (Unload)Form1 Form2.(Show) End Sub
20.以下程序的功能是：当向文本框Text2输入密码时，若“显示密码”复选框Chk没有被选中，再重新输入密码时，则在文本框Text3中同时显示的是密码字符本身。完善程序。 Private Sub Text2_Change()
If (Chk1.Value)=1 Then (Text3.Passwordchar=””) Else Text3.Passwordchar=”#” Text3.Text=(Text2.Text) End Sub
22.将现存在D盘Pic文件夹中的名为Fishing.bmp的图片加载到图片框Pic1中的语句为ing（Pic1.Picture=loadpicture(“D:\\Pic\\Fishing.bmp”)）
三．写出下列的属性方法事件
1.单选按钮 属性 Name名称
Style样式
Caption标题
Picture图片
Alignment标题对齐方式
DownPicture图形按钮被按下时的设置
Value状态
DisablePicture图形按钮无效时的图片设置
Enabled有无效 事件 Click单击
GotFoucs获焦点
方法 SetFocus选中 2.复选框 属性 Name名称
Style样式
Caption标题
Picture图片
Alignment标题对齐方式
DownPicture图形按钮被按下时的设置
Value状态
DisablePicture图形按钮无效时的图片设置
Enabled有无效 事件 Click单击
GotFoucs获焦点
方法 SetFocus选中
3.框架 属性 Name名称
Visible显示隐藏
Caption标题
Enabled有无效
事件 Click单击
DblClick双击
4.形状 属性 Name名称
BorderColor边框色
Shape种类
BorderWidth边框宽度
BackStyle背景样式
FillColor填充色
BackColor背景色
FillStyle底纹图案
5.时钟 属性 Enabled有无效
Interval 时间间隔
事件 Timer触发事件
4.3同步练习题
一、选择题
1.下面B.”6/12/2001”是合法的字符串行常量。 3./、\\、mod、*4中优先级最低的是C.MOD 5.字符%是表明Ainteger类型变量的的定义符。
7.求一个三位整数N的十位数的正确方法是A.Int（N/10）-Int（N/100）*10 9.下列表达式中，值为true的是D.14/2\\2<16/4
11.下列说法不正确的是D.语句print5+”7”的+是连接符，相当于运算符“&” 13.逻辑表达式（（10>9）And(8>9)）Or(Not(4>5))的值是（A.True）。 15.下面表达式中，（A.Exp(-3.5)）的运算结果与其他三个不同。
17.如果x是一个正实数，对x的第3位小数四舍五入的表达式是 （B.Int(100*(x+0.005))/100）。
19.表达式Int(-17.8)+Sgn(17.8)的值是（B.-17）。 21.函数Len(Str(Val(“123.4”)))的值为（C.6）。
23.下列说法错误的是（C.产生0.01至100.99范围内的随机数，包括两端点，间隔为0.01的表达式可写成Myvalue=Int(101.98*Rnd+0.01)）。 25.函数InStr(“Visual Basi程序设计教程”，“ua”)的值为（D）。
27.选拔身高T超过1.7M且体重W小于62.5KG的人，表示该条件的布尔表达式为（C.T＞1.7AndW＜62.5）
29.将任意一个正的两位整数N的个位数与十位数对换的表达式为（A.（N-Int（N/10）*10+Int（N/10）））
31.X，Y之一小于Z的VB条件表达式是（D.X＜ZNotY＜Z）