＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
《排行榜窗体 frmscorelist 代码》——
private record(9) as therecord '记录得分在前10名的 玩家的得分和名字
option explicit
private sub form_load()
dim filenum as integer, i as integer
lstpos.clear
for i = 1 to 10
lstpos.additem i, i - 1
next
lstscore.clear
lstname.clear
'读入得分记录
filenum = freefile
open app.path & record_file_name for random as #filenum len = len(record(0))
' call scoresort(filenum)
for i = 0 to 9
get #filenum, , record(i)
lstscore.additem record(i).score, i
lstname.additem record(i).name, i
next
close #filenum
end sub
'同步3个listbox——
private sub lstname_click()
lstpos.listindex = lstname.listindex
lstscore.listindex = lstname.listindex
end sub
private sub lstpos_click()
lstscore.listindex = lstpos.listindex
lstname.listindex = lstpos.listindex
end sub
private sub lstscore_click()
lstpos.listindex = lstscore.listindex
lstname.listindex = lstscore.listindex
end sub
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
《说明窗体 frmhelp 》——
只需添加一个textbox,其text属性填入操作说明如下：
《贪食蛇 1.1单人版(穿墙)》游戏说明
（1）控制键：
“enter”－－新游戏/中止游戏；
“5”－－暂停/恢复－(数字键盘区,numlock状态)；
方向控制－(数字键盘区,numlock状态)：
“8、2、4、6”－－上、下、左、右；
“1”－－左 / 下；
“3”－－右 / 下；
“7”－－左 / 上；
“9”－－右 / 上。 ( 当蛇头和蛇身任一节重合时,游戏结束
（2）地图：
蓝色方格－－食物 (吃进食物后,蛇身长度增加一节)；
红色方格－－炸弹；
淡紫色方格－－蛇头；
亮绿色长条－－蛇身。
闪烁的方格－－奖品；
(奖品上面的数字表示吃进奖品后 增加的分数。)
( 每个奖品分数的 初始值是20～50之间的随机数，当奖品出现
后奖励的分数就会不断减少。)
（3）计分方法：
( 当总分 < = 0 时,游戏结束)
每吃进一个食物 增加的分数等于 级别的数值；
每吃进一个炸弹 扣掉的分数是 级别数值的2倍；
玩家起始分数等于 级别数值的 2倍再加1分。
(例如 等级为6，则玩家起始分数是13分；每吃进一个食物加6
分；
每吃进一个炸弹减12分)
游戏运行之后会在所在目录下创建一个"record.dat"的文件，
