件过程，则命令按钮的名称属性和Caption属性分别是（A “OK”和“确定”）
41.窗体的MouseDown的事件过程有4个参数，关于这些参数，这些参数，正确的描述是（A.通过Button参数判定当前按下的哪一个鼠标键）Form_MouseDown(Button As Integer, Shift As Integer,X As Single,Y As Single)。
43.窗体上有1个文本框Text1,然后编写如下事件过程，程序运行后在文本框中输入a，在窗体上显示(C.aC)。
Private Sub Text1_KeyUp(KeyCode As Integer, Shift As Integer) Print Chr(KeyCode+2); End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer) Print Chr(KeyAscii); End Sub
45.若窗体上图片框中有一个命令按钮，则此按钮的Left属是指（B.按钮左端到图片框左端的距离）
47.下列(B.Private Sub Command3_Click())程序段能删除列表框List1中的所有相。 For I=0 To List1.ListCount-1 List1.RemoveItem 0 Next I End Sub
49.窗体上有一个名称为Frame1的框架，若要把框架上显示的“Frame1”改为汉字“框架”，下面正确的语句是（B.Frame1.Caption=“框架”）。
51.在程序运行的时，下面的叙述中正确的是（C.只装入而不显示窗体，也会执行窗体的Form_Load事件过程）。
53.运行状态，在文本框Txtinput中输入“ABC”时，窗体上显示（C.A ）.
AB ABC
Private Sub Txtinput_Change()
Print txtinput.Text End Sub
55.设有如图3-3所示窗体和以下程序 Private Sub Command1_Click() Text1.Text=”Visual Basic” End Sub
Private Sub Text1_LostFocus() If Text1.Text<>”BASIC”Then Text1.Text=”” Text1.SetFocus End If End Sub
程序运行时，在Text1文本框中输入“Basic”，然后单击Command1按钮，则产生的结果是（A.文本框中无内容，焦点在文本框中）。
二．填空题
1.Cls方法适用于（窗体）和（图片框）的清除，若是对列表框和组合框进行清空则使用（Clear）
方法。
3.运行状态时，用户无法将光标定位在文本框中，是由于（Enable）的属性为False，用户无法对文本框中已有内容进行编辑，是由于（Locked）的属性为Ture。 5.一般情况下，控件有两个属性项的默认值是相同的，这两个属性项是（Name和Caption）。 7.滚动条控件主要支持两个事件，它们是（Scroll和Change）事件。 9.在程序代码中，使用方法（Hide）和（Show）可以隐藏或显示窗体。
11.在对象的KeyPress事件过程中，参数KeyAscii表示所按键的（ASCII码）值。 13.为了执行对象的自动拖放，必须把该对象的（DragMode）属性设置为（1）；而为了执行对象的手动拖放，必须把该对象的（DragMode）属性设置（0）。
15.窗体上有一个组合框，其中已输入了若干个项目。程序运行时，单击其中一项，即可把该项与最上面的一项交换。下面是可实现此功能的程序，请填空。 Private Sub Combo1_Click() Dim temp temp=Combo1.Text
(Combo1.List(Combo1.ListIndex))=Combo1.List(0) Combo1.List(0)=temp End Sub
17．填写下表中的相关内容 对象 窗体 标签 文本框 命令按钮 名称 Form1 Label1 Text1 Command1 标题 (1)密码验证 (2)请输入密码 (4)验证 口令字符 (3)* 19.填写相关内容
Private Sub Command2_Click()
Shape1.BorderColor=vbBlue Shape1.((1)BorderStyle)=2 End Sub
Private Sub Command1_Click() Shape1.((2)Shape)=3 End Sub 21.填写相关内容 对象 窗体 框架 选项按钮1 选项按钮2 名称 Form1 Frame1 Option1 Option2 Caption (1)选择 (2)性别 女 男 Value (3)False (4)True 23.在窗体上从左到右有Text1、Text2两个文本框，要求程序运行时，在Text1中输入1个成绩后按回车键，则判断成绩的合法性，若成绩为0~100中的某个数，则光标移到Text2中，否则Text1中内容反向选中，光标设置在Text1中，并弹出对话框显示“输入成绩不合法”。 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim a As Integer
If ((1)KeyAsicc=13) Then
a =Val(Text1.Text)
If ((2)a<=100) And a>= 0 Then
((3)Text2.SetaFocus)
Else
MsgBox”输入成绩不合法” Text1.SelStart=0
Text1.SelLength=((4)Len(Trm(Text1.Text)) Text1.SetFocus End If End If End Sub
三、默写 （一）文本框：
属性： 1.Name名称 2.Text内容 3.Locked锁定 4.Passwordchar密码显示 5.MaxLength可输入最大字符数 6.MultiLine多行显示 7.ScrollBars滚动条 8.MousePointer鼠标指针 9.MouseIcon鼠标图标 10.SelText选中文本的内容 11.SelStart选中文本起始位置 12.SelLength选择文本的长度 方法：
1.SetFocus焦点 2.Refresh刷新 事件：
1.KeyPress按下某ASCⅡ键触发 2.KeyDown按某键触发 3.KeyUp放起某键触发
4.Change内容变化触发 5.GotFocus得焦点触发 6.LostFocus失焦点触发
（二）标签
属性：
1、 Caption:标签上的文字。
2、 AutoSize:标签随着上面的文字的变化而变化。 3、 BackColor:标签的背景颜色。 4、 Font:设置标签的字体。 事件：
1、 Click:点击标签时发生的。
2、 Change:当标签上面的文本发生变化时发生。 3、 DblClick:当双击标签时发生的。 方法：
1、 Move:移动标签，必须有坐标。如：Label1.Move 0,0将标签移动到坐标植为0，0的位置。
（三）图片框：
属性：
1.Name:图片框名称 2.Picture:加载图片
3.Autosize:自动调节图片大小 4.font:字体
5.CurrentX:当前位置的横坐标 6.CurrentY:当前位置的纵坐标 方法：
图片框可以像窗体一样使用Print方法输出文本，使用绘图方法绘制图片，使用Cls方法清除图片和图形 事件：
图片框可以接受Click事件和Dbclick事件
（四）命令按钮：
属性：
1、 Caption:表示按钮上面的文字。
2、 Picture:按钮上面的图片(适用于图片按钮)。 3、 Font:按钮上字体的设置。 事件：
1、Click:点击按钮时发生的。 方法：
1、 Move:移动按钮，必须有坐标值。
（五）组合框：
属性：
1、 ListCount: 用于返回列表框里的选项的总数。
2、Sorted: 列表框里元素的排序方式--值为True:列表项自动按升序排序； False:列表项按插入的顺序排序
3、ListIndex: 表示列表框里当前所选中的项的索引值。 5、 Style:列表框的样式：
值为0：下拉组合框，用户可以选择也可以自己输入；
值为1：简单组合框，由一个文本框和列表框构成，可以选择也可以自己输入； 值为2：下拉列表组合框，用户只能从组合框中选择；
6、 Locked:值为True:用户不可以自己输入；False:用户可以自己输入。 事件：
1、 Click:输入用户点击组合框中的选项时发生的。 2、 Scroll:用户滚动滚动条时发生。
3、 Change:当用户改变组合框中的内容时发生。 4、 DropDown:当用户点击向下箭头时发生。 方法：
1、AddItem 2、RemoveItem 用法和列表框一样的。
（六）列表框：
属性：
1、 ListIndex:表示列表框里当前所选中的项的索引值。