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

简介：

程序下载：马上下载

随机产生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

'将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编程小实例-----儿童识字相关推荐

java 模拟停车_Java多线程编程小实例模拟停车场系统
下面分享的是一个Java多线程模拟停车场系统的小实例(Java的应用还是很广泛的,哈哈),具体代码如下: Park类 public class Park { boolean []park=new bo ...
python基础编程小实例12——比赛票数排序（初级）
编程语言:python3.9 题目比赛采用计票机制,选手获得的票数越多,排名就越靠前. 本实例要求编写程序,接收选手的姓名和票数,输出排序后的成绩. 本题基于还没有学到如何使用python打开文件的 ...
python基础编程小实例9——过滤敏感词
编程语言:python3.9 题目敏感词通常是指带有敏感政治倾向.暴力倾向.不健康色彩的词或不文明的词语,对于文章中出现的敏感词常用的处理方法是使用特殊符号(如"*")对敏感词进 ...
python基础编程小实例13——手机通讯录
本文更新于2022/05/18,bug已修复. 编程语言:python3.9 题目可以在通讯录中通过姓名查看相关联系人的联系方式等信息,也可以在其中新增联系人,或修改.删除联系人信息. 本实例要求编 ...
python基础编程小实例2——绝对温标
编程语言:python3.9 题目绝对温标的单位为开尔文(简称开,符号为K),绝对温标的零度对应我们日常使用的摄氏温度(单位为摄氏度,简称度,符号为℃)的-273.15℃. 要求编写代码,实现将用户 ...
python基础编程小实例1——计算圆的面积
编程语言:python3.9 题目编写程序,要求程序能根据用户输入的圆半径数据计算圆的面积(圆的面积公式:S=πr^2),并分别输出圆的直径和面积 import mathpi = round(mat ...
vb 字符串长度_学习VB编程第5天基础知识需要一点点积累
今天学习了刘金玉老师VB编程教程的第9期和第10期,学习的主要内容是string变量类型的运用和Boolean布尔变量类型. 一.string变量类型的运用 (一)string类型:字符串类型变量,用 ...
spring aop实例讲解_小实例理解Spring中的AOP----面向切面编程
关于面向切面编程(Spring AOP),是在java面试中经常提及的,只有在充分理解了,日常工作中才能得心应手. 如何理解AOP呢?首先我们要思考为什么要使用切面编程,如下图: 对于一个系统来说保存 ...
Python版儿童识字游戏源代码，结合植物大战僵尸和儿童识字的小游戏，含学习模式和娱乐模式
Python版儿童识字游戏源代码,结合植物大战僵尸和儿童识字的小游戏,含学习模式和娱乐模式. 娱乐模式下,僵尸会头顶不同的汉字,此时屏幕会提示要消灭的汉字,移动豌豆消灭对应汉字的僵尸,如果攻击非提示汉 ...

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

VB编程小实例-----儿童识字相关推荐

最新文章

热门文章