游戏vb
选项？明确的
暗淡？Label2X？作为？整数？记录要在标签控件数组中移动的标签控件的左上角x的位置。
暗淡？Label2Y？作为？整数？记录要在标签控件数组中移动的标签控件的左上角y的位置。
让标签数组中每个标签控件上显示的数字是随机的，不重复的。
私人？Sub？初始化()
使不规则化
暗淡？答(7)？作为？整数
暗淡？我？作为？整数，？k？作为？整数
Label1。标题？=?""
为了什么？我？=?0?去哪？七
甲(我)？=?我
然后
为了什么？我？=?0?去哪？七
？k？=?Int(Rnd？*?8)
？
？做什么？什么时候？a(k)？=?-1 'a(k)=-1表示与数组元素对应的数字已被使用。
？k？=?Int(Rnd？*?8)?重新生成k的值，直到a(k)的值不等于-1。
？环
？
？标签2(一)。标题？=?Trim(Str(a(k)))
？a(k)？=?值-1 'a(k)已被使用，不能再使用。它不同于其他元素值，它被重新指定为-1。
？
下一个？我
结束？潜水艇
私人？Sub？Command1_Click()
暗淡？x？作为？整数，？y？作为？整数
暗淡？z？作为？整数
初始化
图片1。启用？=?真实的
让空白标签Label1随机出现。
使不规则化
记录空白标签Label1的位置。
x？=?Label1。左边的
y？=?Label1。顶端
z？=?Int(Rnd？*?8)
将空白标签1与标签控件数组中的任何控件交换。
Label1。搬家？标签2(z)。左，？标签2(z)。顶端
标签2(z)。搬家？x，？y
命令1。启用？=?错误的
结束？潜水艇
私人？Sub？Command2_Click()
结束
结束？潜水艇
私人？Sub？Form_Load()
暗淡？我？作为？整数
图片1。启用？=?错误的
在标签中显示游戏描述信息。
标签3。标题？=?“如左图所示，按顺序按数字0-7”？& amp？vbCrLf？& amp？vbCrLf？& amp？“依次排列，即胜利。”
在标签中的排列规则后显示数字顺序
Label1。标题？=?0
为了什么？我？=?0?去哪？六
？标签2(一)。标题？=?我？+?1
然后
结束？潜水艇
私人？Sub？Label1_DragDrop(来源？作为？控制，？x？作为？单身，？y？作为？单身)
暗淡？Label1X？作为？整数？记录X在空白对照标签1左上角的位置。
暗淡？Label1Y？作为？整数？记录空白对照标签1左上角y的位置。
暗淡？旗帜(3)？作为？布尔代数学体系的
获取空白控件标签1的位置。
Label1X？=?Label1。左边的
Label1Y？=?Label1。顶端
要移动的控件位于空白控件标签1的右侧。
标志(0)？=?(Label2X？=?Label1X？-?来源。宽度)？然后呢。(Label2Y？=?标签1Y)
要移动的控件位于空白控件标签1的右侧。
flag(1)？=?(Label2X？=?Label1X？+?来源。宽度)？然后呢。(Label2Y？=?标签1Y)
要移动的控件位于空白控件标签1的正上方。
旗帜(2)？=?(Label2X？=?Label1X)？然后呢。(Label2Y？=?Label1Y？-?来源。高度)
要移动的控件位于空白控件标签1的正下方。
旗帜(3)？=?(Label2X？=?Label1X)？然后呢。(Label2Y？=?Label1Y？+?来源。高度)
如果？标志(0)？还是？flag(1)？还是？旗帜(2)？还是？旗帜(3)？然后
？Label1。搬家？Label2X，？标签2Y
？来源。搬家？Label1X，？标签1Y
结束？如果
胜利
结束？潜水艇
私人？Sub？Label2_MouseDown(Index？作为？整数，？按钮？作为？整数，？移位？作为？整数，？x？作为？单身，？y？作为？单身)
如果？按钮？=?vbLeftButton？然后呢？如果你按下鼠标左键。
？
记录要拖动的控件的位置。
Label2X？=?Label2(索引)。左边的
Label2Y？=?Label2(索引)。顶端
？
Label2(索引)。拖？1 '开始拖动操作。
结束？如果
结束？潜水艇
私人？Sub？Label2_MouseUp(Index？作为？整数，？按钮？作为？整数，？移位？作为？整数，？x？作为？单身，？y？作为？单身)
Label2(索引)。拖？2 ?结束拖动操作。
结束？潜水艇
私人？Sub？赢()
暗淡？赢家？作为？整数
暗淡？我？作为？整数
暗淡？回答？作为？整数
对于给定标签控件数组中的任何标签控件，都可以满足要求(相应的数字要显示在相应的位置)
的八个位置中的任何一个。
用循环语句检查标签控件数组中的每个标签控件。如果它落在符号要求的位置，
变量winner的值加上1。如果所有标签控件都位于符号要求的位置，变量winner的值应该是8。
为了什么？我？=?0?去哪？七
？如果？标签2(一)。向左？=?0?然后呢。标签2(一)。Top？=?0?然后呢。_
标签2(一)。标题？=?0?然后
赢家？=?赢家？+?1
？埃尔瑟夫？标签2(一)。向左？=?标签2(一)。宽度？然后呢。标签2(一)。Top？=?0?然后呢。_
标签2(一)。标题？=?1?然后
赢家？=?赢家？+?1
？埃尔瑟夫？标签2(一)。向左？=?2?*?标签2(一)。宽度？然后呢。标签2(一)。Top？=?0?然后呢。_
标签2(一)。标题？=?2?然后
赢家？=?赢家？+?1
？埃尔瑟夫？标签2(一)。向左？=?0?然后呢。标签2(一)。Top？=?标签2(一)。身高？然后呢。_
标签2(一)。标题？=?3?然后
赢家？=?赢家？+?1
？埃尔瑟夫？标签2(一)。向左？=?标签2(一)。宽度？然后呢。标签2(一)。Top？=?标签2(一)。身高？然后呢。_
标签2(一)。标题？=?4?然后
赢家？=?赢家？+?1
？埃尔瑟夫？标签2(一)。向左？=?2?*?标签2(一)。宽度？然后呢。标签2(一)。Top？=?标签2(一)。身高？然后呢。_
标签2(一)。标题？=?5?然后
赢家？=?赢家？+?1
？埃尔瑟夫？标签2(一)。向左？=?0?然后呢。标签2(一)。Top？=?2?*?标签2(一)。身高？然后呢。_
标签2(一)。标题？=?6?然后
赢家？=?赢家？+?1
？埃尔瑟夫？标签2(一)。向左？=?标签2(一)。宽度？然后呢。标签2(一)。Top？=?2?*?标签2(一)。身高？然后呢。_
标签2(一)。标题？=?7?然后
赢家？=?赢家？+?1
？结束？如果
下一个？我
如果？赢家？=?8?然后
MsgBox？"?恭喜你，你赢了！”,?0?+?64?+?0,?"提示"
图片1。启用？=?错误的
回答？=?MsgBox("要继续吗？",?4?+?32?+?0,?"提示")
如果？回答？=?vbYes？然后
命令1。启用？=?真实的
其他
结束
结束？如果
结束？如果
结束？Sub？