实战项目：VB龟兔赛跑游戏+猜数字游戏
文章目录：
一：效果演示
二：实现思路
三：代码实现
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