红糖水与白糖水的交换

1. 打开VB软件

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

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

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

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

6. cls

7. me.font.size=50

8. Dim a As String

9. a = Me.Label1.Caption

10. 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