简介：

程序下载：马上下载

随机产生5个动物图片，5个相关的字图片，动物图片随机排列，字图片与动物图片混乱排列。

正在装载数据……

点击动物图片，再点击字图片，如正确则弹出“YES”，否则“NO”

文件相关：

              |--PIC         ' 动物图片文件夹
主目录--|--PIC1      ' 字图片文件夹
              |--bg.jpg    ' 背景图片
              |--其它VB文件

代码：

' CopyRight @2007 by dx_andy      

 Dim foo1, foo2 As Integer
Dim fir_click As Boolean

Dim src1(0 To 9) As String  '图片的地址
Dim src2(0 To 9) As String  '字的地址
Dim s1(0 To 9) As Integer
Dim s2(0 To 9) As Integer

Dim i, j As Integer
Dim t As Integer   '大小交换变量

Private Sub Command1_Click()

foo1 = 100
foo2 = 100
fir_click = False

Randomize

'装载图片
For i = 0 To 4
    s1(i) = Val(Rnd * 100) Mod 10
    src1(i) = "\pic\" & s1(i) & ".bmp"
    Image1(i).Picture = LoadPicture(App.Path + src1(i))
    Image1(i).Tag = s1(i) + 10
    s2(i) = s1(i)
Next

'将s1大小排列  目的：把字图片打乱
For i = 0 To 4
    For j = i + 1 To 4
    If s2(i) > s2(j) Then
    t = s2(i)
    s2(i) = s2(j)
    s2(j) = t
    End If
    Next
Next

'装载字图片

For i = 0 To 4
    src2(i) = "\pic1\" & s2(i) & ".gif"
    Image2(i).Picture = LoadPicture(App.Path + src2(i))
    Image2(i).Tag = s2(i) + 20
Next

End Sub

Private Sub Command2_Click()

foo1 = 100
foo2 = 100
fir_click = False

Randomize

'装载图片
For i = 0 To 4
    s1(i) = Val(Rnd * 100) Mod 10
    src1(i) = "\pic\" & s1(i) & ".bmp"
    Image1(i).Picture = LoadPicture(App.Path + src1(i))
    Image1(i).Tag = s1(i) + 10
    s2(i) = s1(i)
Next

'将s1大小排列  目的：把字图片打乱
For i = 0 To 4
    For j = i + 1 To 4
    If s2(i) > s2(j) Then
    t = s2(i)
    s2(i) = s2(j)
    s2(j) = t
    End If
    Next
Next

'装载字图片

For i = 0 To 4
    src2(i) = "\pic1\" & s2(i) & ".gif"
    Image2(i).Picture = LoadPicture(App.Path + src2(i))
    Image2(i).Tag = s2(i) + 20
Next

End Sub

Private Sub Form_Load()

foo1 = 100
foo2 = 100
fir_click = False

Form1.Left = 5000
Form1.Top = 3800

End Sub

Private Sub Image1_Click(Index As Integer)

Dim rgt, err As String
Dim src As String
Dim cha As String

rgt = "YES"
err = "NO"

If Not fir_click Then
    fir_click = True
    foo1 = Image1(Index).Tag
Else
   
    If foo2 <> 100 And foo1 = 100 Then
           
        foo1 = Image1(Index).Tag
        cha = foo2 - foo1
   
        If cha = 10 Then
            MsgBox (rgt)
            foo1 = 100
            foo2 = 100
            fir_click = False
        Else
            MsgBox (err)
            foo1 = 100
            foo2 = 100
            fir_click = False
        End If
    ElseIf foo2 = 100 And foo1 <> 100 Then
        foo1 = Image1(Index).Tag
    End If
End If

End Sub

Private Sub Image2_Click(Index As Integer)

Dim rgt, err As String
Dim src As String
Dim cha As String

rgt = "YES"
err = "NO"

If Not fir_click Then
    fir_click = True
    foo2 = Image2(Index).Tag
Else
   
    If foo1 <> 100 And foo2 = 100 Then
   
        foo2 = Image2(Index).Tag
        cha = foo2 - foo1
   
        If cha = 10 Then
            MsgBox (rgt)
            foo1 = 100
            foo2 = 100
            fir_click = False
        Else
            MsgBox (err)
            foo1 = 100
            foo2 = 100
            fir_click = False
        End If
   
    ElseIf foo1 = 100 And foo2 <> 100 Then
   
        foo2 = Image2(Index).Tag

    End If
   
End If

End Sub

 

本文来源：http://blog.csdn.net/dx_andy/archive/2007/07/03/1676634.aspx