(3)编写代码如下: Private Sub commandl click t=Label. Caption Label3. Caption= Label4 Caption Label. Caption=t End sub 2021/2/22 16
2021/2/22 16 （3）编写代码如下： Private Sub Command1_Click() t = Label3.Caption Label3.Caption = Label4.Caption Label4.Caption = t End Sub
(4)按F5键运行工程,出现如下图左边所 示的界面,再按“交换”按钮结果如下图 右边所示: orm 口区 a. Form1 口区 A=卩234B= ABCDE A= ABCDE B=1234 交换 交换 2021/2/22 17
2021/2/22 17 （4）按F5键运行工程，出现如下图左边所 示的界面，再按“交换”按钮结果如下图 右边所示：
2.Set语句(赋值对象的引用) Se语句的作用是将对象引用赋值给变量 或属性。所谓对象引用,是指被赋与对象引用 的变量或属性并不是在内存中新建的变量或属 性,它只是表示这个对象又多了一个别名,可 以用这个被赋与对象引用的变量或属性来引用 这个对象。 对于声明为 object数据类型的变量,其后 可用Se语句来指定一个被声明为 objectE变量 去引用应用程序中所识别的任何实际对象。 2021/2/22 18
2021/2/22 18 2. Set语句（赋值对象的引用） Set语句的作用是将对象引用赋值给变量 或属性。所谓对象引用，是指被赋与对象引用 的变量或属性并不是在内存中新建的变量或属 性，它只是表示这个对象又多了一个别名，可 以用这个被赋与对象引用的变量或属性来引用 这个对象。 对于声明为object数据类型的变量，其后 可用Set语句来指定一个被声明为object的变量 去引用应用程序中所识别的任何实际对象
Se语句的使用格式为: <Set> <objectvar>=[New] <objectexpress>[Nothing 说明: 这里关键字Set为必选项。< objector>为必 选项,表示类型为obet变量名,[New为可 选项,通常在声明时使用New,以便可隐式创 建对象。< objectexpress>是必选项,表示类型为 objectE表达式。由对象名、所声明的相同对象 类型的其他变量,或者返回相同类型的函数或方 法所组成的表达式。 2021/2/22
2021/2/22 19 Set语句的使用格式为： <Set> <objectvar> = [New] <objectexpress>[Nothing] 说明： 这里关键字Set为必选项。<objectvar>为必 选项，表示类型为object的变量名， [New] 为可 选项，通常在声明时使用New ，以便可隐式创 建对象。<objectexpress>是必选项，表示类型为 object的表达式。由对象名、所声明的相同对象 类型的其他变量，或者返回相同类型的函数或方 法所组成的表达式
Nothing是可选项。其作用是断绝 objectvar与任何指定对象的关联。若没有 其他变量指向 objectvar原来引用的对象, 将其赋值为 Nothing会释放该对象所关联 的所有系统及内存资源 在set语句中, objector必须与所赋 值对象具有一致的对象类型。 例如: Dim obiDb as object Set objDb Open Data base(c: vb98\biblio. mdb") 2021/2/22 20
2021/2/22 20 [Nothing] 是可选项 。 其 作 用 是 断 绝 objectvar与任何指定对象的关联。若没有 其他变量指向objectvar原来引用的对象， 将其赋值为Nothing会释放该对象所关联 的所有系统及内存资源。 在Set语句中，objectvar必须与所赋 值对象具有一致的对象类型。 例如： Dim objDb As Object Set objDb = OpenDatabase(c:\vb98\biblio.mdb”)