15电气郄慧敏vb作业3红糖水白糖水的交换

实验名称：红糖水白糖水的交换

打开电脑桌面上的VB软件


在工具箱窗口找到Label，单击图标并在窗体中适当位置创建，在属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中，双击forecolor将后面字体颜色改为红色，双击
font将后面的字体调整为适当大小，双击backcolor将背景颜色改为灰色。

在工具箱窗口找到Label，单击图标并在窗体中适当位置创建，在属性窗口中找到“caption”一栏并将后面改为“白糖水”。在属性窗口中，双击forecolor将后面字体颜色改为白色，双击
font将后面的字体调整为适当大小，双击backcolor将背景颜色改为灰色，

在工具箱窗口找到command button的图标，单击图标并在窗体的适当位置创建，在属性窗口中找到caption并把其后面改为“交换”。

在窗体中双击“交换”，并在弹出的对话框中输入

Dim a As String

a = Me.Label1.Caption

Me.Label1.Caption = Me.Label2.Caption

Me.Label2.Caption = a

Dim b As String

b = Me.Label1.ForeColor

Me.Label1.ForeColor= Me.Label2.ForeColor

Me.Label2.ForeColor = b


6.在工具栏中单击“启动”即可出现效果。


15电气郄慧敏15050341023