郑丁元 傅馨竹

(德阳市岷山路小学，四川 德阳 618000)

2017年7月，国务院发布了《新一代人工智能发展规划》，其中提到“在中小学阶段设置人工智能相关课程，逐步推广编程教育”。VB语言是国家计算机等级考试二级语言中的一种。笔者在培训小学生学习VB程序语言过程中，以实际项目推动，带领小学生完成了“儿童益智游戏”的设计与测试。

一、概述

“儿童益智游戏”包括三个游戏，图1是其界面。“警察捉小偷”游戏主要训练小朋友使用鼠标、“吉祥数”游戏训练小朋友们的反应能力、“售货机”游戏培养孩子们的理财意识。

点击游戏将打开对应的exe文件，对应的代码是，gouwu = Shell(App.Path + “快乐购物.exe”，1)

设置初始界面为椭圆的方法是使用VBAPI。

二、游戏开发

(一)“警察捉小偷”游戏开发

一共有2个图像，分别是“警察”、“小偷”。游戏中，计算机控制小偷移动，用户操作键盘的上下左右箭头去抓捕小偷。有一个滚动条，可以控制警察速度。标签则可以显示警察一个移动了多少步。窗体每10秒改变一种颜色。

改变“警察”图标背景颜色的代码是，

jc.BackColor = RGB(Int(Rnd()* 256)，Int(Rnd()* 164)，Int(Rnd()* 256))

小偷下一步运动方向的方法是，在小偷当前位置，如果朝上下左右的四个位置走一步，判断哪个方向是增大距离，然后小偷向距离大的方向移动，实现逃离。

(二)“吉祥数”游戏开发

设置显示吉祥数的三个标签为控件组。可以用一句代码就实现在三个标签中产生吉祥数。

Randomize

For Index = 0 To 2

Label1(Index).Caption = Int(Rnd()* 10)

Next

制订了吉祥数得分规则，如“三个吉祥数，999分”、“三个数相同但不是吉祥数，666分”，不重复计分。

输入自己的“吉祥数”，点击“开始”后即可在标签上快速闪现0-9的数字，“开始”按钮变成“停止”。此时，不可以修改吉祥数。

判断得分的方法是，停止计时器Timer工作后，读取标签上三个数字，从第一条规则开始判断，符合某一条规则则给出相应的分数并跳出判断循环，否则继续判断是否符合下一条规则。

图2是某次运行时，显示3个数字符合规则2，得分888分。此时已经运行了10次，总分数是3088分。

数字的显示速度可以调整。如果将速度调成“特别慢”，可以有效地训练孩子们的反应能力。设置速度是通过改变计时器Timer1的Inteval值来实现的。“特别慢”的代码是，Timer1.Interval = 200

(三)“自动售货机”游戏开发

进入游戏时，因为还未投钱，左侧的所有图标均是灰色，不可操作。在右侧投入金额，如1元、5元、10元，则左侧对应可购买的货物将变为可操作状态，不再是灰色。

购买了相应的物品，则在中间的列表框中购买的全部物品。随着金额的减少，若金额低于某类物品价格，则该类物品将会变成灰色，又不可购买了。

金额少于5元时，使对应金额物品标签变成灰色的代码是，

If qian<5 then

Label5.enable=false

EndIf

这个程序可以训练小朋友们的理财能力，让他们懂得钱的流失，同时，也可以让他们懂得钱的来之不易。

三、结束语

游戏实现了预定的功能，经调试后发布，得到了小朋友们的喜爱，增强了学生的成就感，提升了学习编程语言的兴趣。

美中不足的是，游戏界面的美化还有很多工作可以做。