中山网站的建设,免费制作永久企业网站,网站空间有免费的吗,设计网站推广的广告语文章目录#xff1a; 一#xff1a;效果演示 二#xff1a;实现思路 三#xff1a;代码实现 form1 效果图 代码 form2 效果图 代码 form3 效果图 代码 一#xff1a;效果演示 效果图◕‿◕✌✌✌ 代码下载 二#xff1a;实现思路 窗口1#xff1a;龟兔赛…文章目录 一效果演示 二实现思路 三代码实现 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 Subform2  效果图 代码 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 HC000End If End SubPrivate Sub Form_Load()Form3.BackColor HC000 End Sub