VB-交换

1，打开VB.“

2，拖动鼠标画出俩标签，分别改名“红糖水”和“白糖水”，字体颜色分别改为“白色”和“红色”，底纹颜色分别改为“黑色”和“白色”。

3，拖动鼠标画出一个按钮，改名为“交换”。

4，双击“交换”，在弹出来的对话框中输入以下内容：

Private Sub 交换 Click（）

Dim d As String

d=红糖水.ForeColor

红糖水.ForeColor=白糖水.ForeColor

白糖水.ForeColor=d

Dim b As String

b=Me.红糖水.BackColor

Me.红糖水.BackColor=Me.白糖水.BackColor

Me.白糖水.BackColor=b

Dim a As String

a=红糖水

红糖水=白糖水

白糖水=a

5，运行。