VB编程小实例-----儿童识字
来源:互联网 发布:像素制作软件 编辑:程序博客网 时间:2024/04/27 22:57
简介:
程序下载:马上下载
随机产生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
- VB编程小实例-----儿童识字
- 手机软件之儿童识字项目实践
- 小识字符编码
- 儿童识字量测试3090字(倪铂颖)
- 儿童编程
- VB编程小练习
- shell编程小实例
- 儿童BASIC编程
- 儿童编程用书
- 儿童学编程
- VB编程的8个小技巧
- Vb.net 编程的几个小技巧
- vb.net编程中一些小细节
- c# 经典小编程实例
- Coding4Fun:儿童的编程语言
- Coding4Fun:儿童的编程语言
- [编程实例] Lucene Demo 小实例
- AOP编程-面向行为编程小实例
- [健康生活]8种恢复精力的方法
- 营销时代的三个笑话
- HR眼中的职业经理人的素质的重点培养
- 广东河源初步定性围殴事件为群体恶性斗殴
- 女孩,你知道成为人妻前需要懂得的事吗?
- VB编程小实例-----儿童识字
- 打开linux的端口
- 职业经理人必备十素质
- 给大家推荐几款杀毒软件
- 夜已深,万籁俱寂。
- USBKill v5.0 - U盘病毒防火墙实时保护系统
- 9种防止电脑辐射的方法
- Linux下的WebLogic安装部署
- 编码互相转换