2016年10月技术选考VB算法加试题周练消消乐_第1页
2016年10月技术选考VB算法加试题周练消消乐_第2页
2016年10月技术选考VB算法加试题周练消消乐_第3页
2016年10月技术选考VB算法加试题周练消消乐_第4页
2016年10月技术选考VB算法加试题周练消消乐_第5页
全文预览已结束

下载本文档

版权说明：本文档由用户提供并上传，收益归属内容提供方，若内容存在侵权，请进行举报或认领

文档简介

1、算法加试题一周一练（6）行政班：教学班：姓名：学号：【加试题】小明非常喜欢玩消消乐游戏，因此编写了一个简单的消消乐程序，当相邻重复字符个数大于等于3时消掉字符。例如输入ABBBC，消掉后变成AC。程序运行如下：在文本框Textl中输入一个字符串。单击按钮Commandl后，在标签Label上显示消掉后的字符长度，文本框Text2上显示消后的字符。程序运行界面如下图所示:图a图a图c（1）如图b所示要在窗体上添加Commandl对象，应该选择（填字母）。（2）如图c所示，要修改窗体左上角“消消乐”为“消消乐游戏”，应该修改该对象的（填对应的属性名）属性。（3）如图c所示，其中所示的&H80000

2、00F&是（填字母：A.对象名/B.类名/C.属性值/D.属性名）。（4）代码Command1_Click（）”中的Commandl是（填：A.对象名/B.方法名/C.事件名/D属性名）。（5）根据题意规则，字符串“AAAYBBBOKKKUU”，则消掉后的字符串为命题：杜宗飞命题：杜宗飞 (6)实现上述功能的VB程序如下。请在划线处填入合适代码。PrivateSubCommand1_Click()DimsAsString,iAsInteger,jAsIntegerDima(1To100)AsString依次存储输入的每个字符Dimb(1To100)AsString依次存储消后每个字符DimnA

3、sInteger输入字符串的长度DimpaAsInteger数组a当前下标位置DimpbAsInteger数组b当前下标位置DimcountAsInteger存储当前相邻重复个数n=Len(s)Fori=1Tona(i)=Mid(s,i,1)Nextipa=1:pb=1DoWhilepa=n-1Ifa(pa)a(pa+1)Then相邻无重复b(pb)=a(pa)pa=pa+1pb=pb+1Else相邻有重复j=pa+1DoWhilej=n-1IfThenj=j+1ElseExitDo退出Do循环EndIfLoopcount=Ifcount=2Thenb(pb)=a(pa)b(pb+1)=a(pa+1)pa=pa+2pb=pb+2Elsepa二EndIfEndIfLoopIfpa=nThenb(pb)=a(pa)pb=pb+1EndIfLabell.Caption=消后的长度为：+Text2.Text二Fori=1Topb-1Text2.Text=Text2.Text+b(i)NextiEnd

人人文库> 全部分类> 图纸下载 > 毕业设计

温馨提示

  • 1. 本站所有资源如无特殊说明，都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
  • 2. 本站的文档不包含任何第三方提供的附件图纸等，如果需要附件，请联系上传者。文件的所有权益归上传用户所有。
  • 3. 本站RAR压缩包中若带图纸，网页内容里面会有图纸预览，若没有图纸预览就没有图纸。
  • 4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
  • 5. 人人文库网仅提供信息存储空间，仅对用户上传内容的表现方式做保护处理，对用户上传分享的文档内容本身不做任何修改或编辑，并不能对任何下载内容负责。
  • 6. 下载文件中如有侵权或不适当内容，请与我们联系，我们立即纠正。
  • 7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

最新文档

评论

0/150

提交评论