雨中拼图游戏源码 共享

雨中拼图游戏源码

源码描述：
用vb做的一款拼图游戏
开始可以打乱图片的排序，然后根据设置好的按钮组合图片
代码片段
Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        Dim temp1, temp2, temp3, temp4 As String
        Dim a, b, c, d As Integer
        a = rnd.Next(1, 5)
        b = rnd.Next(1, 5)
        c = rnd.Next(1, 5)
        d = rnd.Next(1, 5)
        Dim i As Integer
        For i = 1 To 50
            'temp1 = a & ".gif"
            If a = b Or a = c Or a = d Then
                a = rnd.Next(1, 5)
            End If
            temp1 = a & ".gif"
            Me.PictureBox1.Image = Image.FromFile(temp1)

            If b = a Or b = c Or b = d Then
                b = rnd.Next(1, 5)
            End If
            temp2 = b & ".gif"
            Me.PictureBox2.Image = Image.FromFile(temp2)

            If c = a Or c = b Or c = d Then
                c = rnd.Next(1, 5)
            End If
            temp3 = c & ".gif"
            Me.PictureBox3.Image = Image.FromFile(temp3)

            If d = c Or d = b Or d = a Then
                d = rnd.Next(1, 5)
            End If
            temp4 = d & ".gif"
            Me.PictureBox4.Image = Image.FromFile(temp4)
            i += 1
        Next
    End Sub