1.在工具箱窗口找到Label图标,单击图标并在窗体中适当位置创建,在属性窗口中找到“caption”一栏并将后面改为“红糖水”。在属性窗口中,双击forecolor将后面字体颜色改为红色,双击 font将后面的字体调整为适当大小,双击backcolor将背景颜色改为灰色。 2.在工具箱窗口找到Label,单击图标并在窗体中适当位置创建,在属性窗口中找到“caption”一栏并将后面改为“白糖水”。在属性窗口中,双击forecolor将后面字体颜色改为白色,双击 font将后面的字体调整为适当大小,双击backcolor将背景颜色改为灰色。 3.在工具箱窗口找到command button的图标,单击图标并在窗体的适当位置创建,在属性窗口中找到caption并把其后面改为“交换”。 4.双击交换按钮,在弹出的对话框中输入以下内容: 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 5.在如图所示的工具栏中点击启动按钮即可。 最后结果如图