文章目录：

一：效果演示

二：实现思路

三：代码实现

form1 

效果图

代码

form2 

效果图

代码

form3 

效果图

代码

---

一：效果演示

效果图◕‿◕✌✌✌ 

代码下载

二：实现思路

窗口1：龟兔赛跑单击按钮，通过图片属性控制移动Timer控制自动移动窗口2：猜数字游戏输入框和文本框信息进行比较判断窗口3：背景颜色变换设置初始背景颜色，再依次对窗体背景颜色进行判断，然后重新赋值背景颜色，最好行成一个一个判断闭环主窗口页面之间的跳转是通过可见否，判断那些窗口显示那些窗口隐藏

三：代码实现

form1 

效果图

代码

Private Sub Command1_Click()Picture1.Left = Picture1.Left + 70
End SubPrivate Sub Command2_Click()Form1.Visible = FalseForm3.Visible = True
End SubPrivate Sub Form_Load()End SubPrivate Sub Timer1_Timer()Picture2.Left = Picture2.Left + 20
End Sub

form2 

效果图

代码

Option ExplicitPrivate Sub Command1_Click()Dim num As Variantnum = Val(InputBox("请输入我猜想的数："))If num = Text1.Text ThenMsgBox ("恭喜你，猜想正确！")ElseMsgBox ("抱歉，你猜错了！")End If
End SubPrivate Sub Command2_Click()Form2.Visible = FalseForm3.Visible = True
End SubPrivate Sub Form_Load()End Sub

form3 

效果图

代码

Option ExplicitPrivate Sub Command1_Click()Form3.Visible = FalseForm1.Visible = True
End SubPrivate Sub Command2_Click()Form3.Visible = FalseForm2.Visible = True
End SubPrivate Sub Command3_Click()If Form3.BackColor = &HC000& ThenForm3.BackColor = vbRedElseIf Form3.BackColor = vbRed ThenForm3.BackColor = vbBlueElseIf Form3.BackColor = vbBlue ThenForm3.BackColor = vbGreenElseForm3.BackColor = &HC000&End If
End SubPrivate Sub Form_Load()Form3.BackColor = &HC000&
End Sub