实战项目：VB龟兔赛跑游戏+猜数字游戏

文章目录：

一：效果演示

二：实现思路

三：代码实现

form1 

效果图

代码

form2 

效果图

代码

form3 

效果图

代码

一：效果演示

效果图◕‿◕✌✌✌ 

代码下载

二：实现思路

窗口1：龟兔赛跑
    单击按钮，通过图片属性控制移动
    Timer控制自动移动


窗口2：猜数字游戏
    输入框和文本框信息进行比较判断


窗口3：背景颜色变换
    设置初始背景颜色，再依次对窗体背景颜色进行判断，然后重新赋值背景颜色，最好行成一个一个判断闭环


主窗口页面之间的跳转
    是通过可见否，判断那些窗口显示那些窗口隐藏

三：代码实现

form1 

效果图

代码

Private Sub Command1_Click()
    Picture1.Left = Picture1.Left + 70
End Sub

Private Sub Command2_Click()
    Form1.Visible = False
    Form3.Visible = True
End Sub

Private Sub Form_Load()

End Sub

Private Sub Timer1_Timer()
    Picture2.Left = Picture2.Left + 20
End Sub

form2 

效果图

代码

Option Explicit

Private Sub Command1_Click()
    Dim num As Variant
    num = Val(InputBox("请输入我猜想的数："))
    If num = Text1.Text Then
        MsgBox ("恭喜你，猜想正确！")
    Else
        MsgBox ("抱歉，你猜错了！")
    End If
End Sub

Private Sub Command2_Click()
    Form2.Visible = False
    Form3.Visible = True
End Sub

Private Sub Form_Load()

End Sub

form3 

效果图

代码

Option Explicit

Private Sub Command1_Click()
    Form3.Visible = False
    Form1.Visible = True
End Sub

Private Sub Command2_Click()
    Form3.Visible = False
    Form2.Visible = True
End Sub

Private Sub Command3_Click()
    If Form3.BackColor = &HC000& Then
        Form3.BackColor = vbRed
    ElseIf Form3.BackColor = vbRed Then
        Form3.BackColor = vbBlue
    ElseIf Form3.BackColor = vbBlue Then
        Form3.BackColor = vbGreen
    Else
        Form3.BackColor = &HC000&
    End If
End Sub

Private Sub Form_Load()
    Form3.BackColor = &HC000&
End Sub