简介:
程序下载:马上下载
随机产生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