VB编程小实例-----儿童识字

简介：

程序下载：马上下载

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

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

文件相关：

|--PIC ' 动物图片文件夹

主目录--|--PIC1 ' 字图片文件夹

|--bg.jpg ' 背景图片

|--其它VB文件

代码：

' CopyRight @ 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