七灯游戏是一款经典的益智类游戏。游戏中,有七盏灯排成一圈,如图a所示,初始时灯的开关状态随机生成,操作其中某一盏灯,则可以切换该灯的“开/关”状态,同时,这盏灯对面的两盏灯也会切换“开/关”状态,如图b所示:

图a

图b

图a为初始状态,操作圈中的灯,则该灯与对面的两盏灯都会切换“开/关”状态,如图b所示。假设这些灯的编号为0到6号,“开/关”状态随机产生,并输出到列表框List1中,接着需要从中选出数盏灯进行操作,使得最后所有灯都打开(已证明方案-一定存在且唯一),并在列表框List2中输出灯的编号。

程序采用枚举策略,一一尝试对每盏灯状态进行“切换"操作,“1”表示对当前灯进行切换,“0”表示不操作。

程序运行界面如图c所示。

图c

(1)0-6号灯的初始状态为“关 关 关 开 关 关 开”,如对1号灯进行切换操作,对面随之切换灯的编号是:_________________和_____________

(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。

Dim a(0 To 6)As Integer,b(0 To 6) As Integer

Private Sub Command1_Click()

Dim i As Integer,x As Integer,pos As Integer

Dim flag As Boolean

List2.Clear

For i = 0 To __________①________

x = i:pos = 0:flag = True

For j = 0 To 6

b(j)= a(j)

Next j

Do While x > 0

If x Mod 2 = 1 Then

b(pos)= 1 - b(pos)

b((pos + 3) Mod 7) = 1 – b((pos + 3) Mod 7)

___________②_______

End If

pos = pos + 1

x = x \ 2

Loop

For j = 0 To 6

If _____③___ Then flag = False:Exit For

Next j

If flag Then

pos = 0

Do While i > 0

If i Mod 2 = 1 Then List2.AddItem  "第" + CStr(pos)+  "号"

i = i \ 2

pos = pos + 1

Loop

Exit For

End If

Next i

End Sub

Private Sub Form_Load()’随机生成初始数据

Dim i As Integer

Randomize

List1.Clear

For i = 0 To 6

a(i)= Int(Rnd * 2)

If a(i)= 1 Then

List1.AddItem  "第" + CStr(i) +  "号:"+  "开"

Else

List1.AddItem "第" + CStr(i) +  "号:" +  "关"

End If

Next i

End Sub

有关计算机代码的游戏,七灯游戏是一款经典的益智类游戏。游戏中,有七盏灯排成一圈,如图a所示,初始时灯的开关状态随机生成,操作其中某一盏灯,则可以切换该灯的“开/关”状态,同时,这盏灯-组卷网...相关推荐

  1. 人与计算机猜数游戏,猜数字(古老的的密码破译类益智类小游戏)_百度百科...

    猜数字 (古老的的密码破译类益智类小游戏) 语音 编辑 锁定 讨论 上传视频 猜数字(又称 Bulls and Cows )是一种古老的的密码破译类益智类小游戏,起源于20世纪中期,一般由两个人或多人 ...

  2. 黑色游戏评测网站模板是一款黑色质感的单页游戏网站模板下载。

    黑色游戏评测网站模板是一款黑色质感的单页游戏网站模板下载.不仅仅是首页,二级页面,三级页面,登陆,购物车等,页面齐全 功能齐全  js+css+html (img,字体均有),前端html纯静态页面! ...

  3. Cocos Creator小游戏-2048(PC、安卓、H5)益智类 项目展示+完整项目源码

    游戏录像 Cocos Creator小游戏-2048 游戏玩法 在棋盘上,每次会增加一个小动物,你可以选择四个方向滑动,然后小动物会按方向移动,遇到相同的小动物就会合并,看谁合并的最多. 功能 1.初 ...

  4. Merge Dragons益智消除类游戏 Blast to merge益智类消除游戏

    该计算机消除类的游戏,是以恐龙为游戏中的人物背景,对游戏中的恐龙在一定的规则下,进行了消除,考研了编程人员对算法知识的应用,也是为毕业设计提供了一个不错的编程学习资料.该设计采用了VSCODE作为开发 ...

  5. 《彩色方块对对碰 Android 版》(TetraVex) 经典休闲益智类游戏免费发布!

    前几天写的一个休闲益智类游戏 <彩色方块对对碰 Android 版>(TetraVex) 终于免费发布了!庆祝一下,欢迎大家下载! 免费下载: 1. http://echozhy.goog ...

  6. 多关卡连连看php源码_奇怪的连连看ios版是一款非常好玩的手机消除闯关游戏,奇怪的连连看采用了最经典的三消玩法,游戏中有着非常多的游戏关卡,是一...

    奇怪的连连看手游是一款完成无尽消除任务闯关的益智游戏应用,奇怪的连连看游戏里玩家需要想办法尽快完成消除任务,奇怪的连连看关卡丰富,难度逐渐升级. 游戏介绍 奇怪的连连看手游是一款非常不错的休闲益智类游 ...

  7. axios+vue 小测试,随机生成笑话,天知道,小黑记事本,图片切换,悦动听

    axios+vue 写个笑话笑笑 <!DOCTYPE html> <html lang="en"> <head><meta charset ...

  8. PC上十款经典的3D次世代游戏

    伴随着索尼公司的Play Station 3和微软公司的XBox 360的发布,游戏进入了高画质高品质时代,由于两台游戏机都是八核心高速处理器,所以在游戏品质上面相比与传统PC游戏更是上了一个大台阶. ...

  9. java游戏黑莓手机,简约而不简单 16款经典黑莓手机小游戏

    [IT168 应用]随着 AppStore 和 Android 市场的发展,大家已经逐渐适应在市场中为自己的智能机淘一些自己喜欢的游戏和应用,黑莓其实也提供了这一市场. 尽管国内黑莓的氛围并不如上两种 ...

最新文章

  1. Android图片褪色,Android – 使用Alpha褪色动画闪烁图片
  2. 如何得到juniper的pe ip device_name filter name等
  3. 通过js适配不同的屏幕大小
  4. 使用echarts(一) 第一次使用echarts
  5. java 字符串编码
  6. vscode使用相关配置
  7. libcrypto.so.1.0.0内容丢失导致sshd无法运行解决方案
  8. 我的梦想——吃喝玩乐
  9. nc(NetCat)命令
  10. MyBatis简介及下载地址
  11. DotNetSkin 完美破解
  12. 量化投资学习——布朗运动、伊藤引理、BS 公式
  13. 机器学习项目(五) 电影推荐系统(二)
  14. Whipple防护结构的建模与仿真技术
  15. 【踩坑日记】阿里云内容安全
  16. 权威发布:《麻省理工科技评论》2020年“全球十大突破性技术”
  17. 【烈日炎炎战后端】Nginx(0.3万字)
  18. 一篇流水账,纪念金庸大侠
  19. 百度回复针对目前相关性问题
  20. BUUCTF SimpleRev(涉及大小端序存储的问题)

热门文章

  1. java 中的 super
  2. 发送临时文件被服务器拒绝,临时会话说服务器拒绝了您发送离线文件的请求 - 卡饭网...
  3. linux网络存储服务器选题意义,基于嵌入式Linux的网络存储的实现和研究
  4. instanceof java list_Java:Instanceof和泛型
  5. shell 中常用到的基础命令
  6. 2017计算机基础教学大纲,2017级大学计算机基础教学大纲设计.doc
  7. Dubbo 和 HSF 在阿里巴巴的实践:携手走向下一代云原生微服务
  8. 活动延期通知 | 7.31 阿里云 Serverless Developer Meetup 杭州站本周六见!
  9. 千万商家的智能决策引擎AnalyticDB
  10. 30行代码如何写一封七夕密书?