module1.bas

大家来找茬 0.90版 漂亮

Attribute VB_Name = "Module1"
Public Const Pname As String = "大家来找茬 " '程序名
Public Const Ver As String = "0.90" '版本号
Public Const MaxTime As Byte = 60 '最大时间
Public Const MaxChance As Byte = 5 '最大机会数
Public Const MaxP As Single = 80000 '最大误差值 (x-rx)^2+(y-ry)^2

Public GameOver As Boolean '游戏是否结束
Public First As Boolean '是否第一次玩游戏
Public FileName As String '读取文件路径
Public Played() As Boolean '标记哪几张图片已经玩过
Public Flag(5) As Boolean '标记是否点击
Public Px(5) As Single '5个不同点的x,y坐标
Public Py(5) As Single
Public Nth As String  '标记当前的图片序号
Public Score As Long '记录分数
Public Time_Left As Byte '剩余时间
Public Chance_Left As Byte '剩余机会
Public Finished As Byte '完成的点数
Public Totle As Byte '总图片数量
Public Fin As Byte '完成的图片总数
Type Player
 Na As String '姓名
 Sc As Long '分数
End Type
Public Record(-1 To 4) As Player '最高分数组