22VB加试填空题

《22VB加试填空题》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、瓯海一高学考专题练习叶胜利编辑VB选考填空题【201509】编写VB程序，实现如下功能：在文本框Text1中输入一个整数，单击按钮Command1，采用对分查找法在数组A（从小到大排序，并显示在标签Label1中）中查找该数。若找到，则从数组A中删除该数（该数后面的数组元素都前移一位），并在标签Label2中显示删除后的结果，运行效果如图所示；否则，在标签Label2中显示“该数没有找到”。实现上述功能的VB代码如下，但加粗加下划线部分代码有错，请改正。DimA(1to10)asIntegerForm_Load事件过程产生10个整数，按升序保存在数组A中，并在标签Label1中显示

2、PrivateSubCommand1_click()DimIasinteger,jasinteger,masinteger,kasintegerDimxasinteger,fasboolean‘变量f用于标记是否在数组中找到xX=val（Text1.text）I=1:j=10F=falseDowhile(i<=j)and(f=false)M=int((i+j)/2)Ifa(m)=xthenf=trueIfa(m)>xthenI=m+1elsej=m-1LoopIff=truethenFork=mto9A(k+1)=a(k)NextLabel2.caption=””Fork=1to9

3、Label2.caption=label2.caption+str(a(k))+””NextkElseLabel2.caption=”该数没有找到”EndifEndsub【201509】用VB编写一个字符串分行程序，功能如下：单击“分行”按钮Command1，将文本框Text1中的英文文本在列表框List1中分行显示(分行时单词不得跨行，每行字符尽可能多但不超过40个)，并在标签Label1中输出总行数，运行效果如第17题图所示。分行算法如下：12/12瓯海一高学考专题练习叶胜利编辑(1)将文本框中的字符串保存到变量s中;(2)当s中字符个数超过40时，循环执行下列①、②、③步，否

4、则跳转到(3)：①如果第41个字符不是英文字母，则分行位置p=40;否则，向左逐个查找，直至找到第一个非英文字母，将其位置作为分行位置p;②截取s的前p个字符，作为新增行显示在列表框List1中，同时总行数加1;③将s中未分行部分重新赋值给变量s。(3)将s作为新增行显示在列表框List1中，同时总行数加1。实现上述功能的VB程序如下，请在划线处填入合适代码。PrivateSubCommand1_click()Dimsasstring,casstringDimrasinteger,totalasinteger,pasintegerTotal=0S=_______________Do

5、Whilelen(s)>40R=41C=mid(s,r,1)Ifnot((c>=”a”andc<=”z”)or(c>=”A”andc<=”Z”))thenP=40Else‘从第41个字符开始向左找到第1个非英文字母，并将其位置值赋给pDoWhile((c>=”a”andc<=”z”)or(c>=”A”andc<=”Z”))r=_________________c=mid(s,r,1)LoopP=rEndifList1.additemmid(s,1,p)Total=total+1S=__________________Loop12/12瓯海一高学考专题练习叶胜利编辑List1.add

6、itemsTotal=total+1Label1.caption=“共”+str(total)+“行”EndSub【201510】n个数据的冒泡排序需要经过n-1遍加工，每一遍加工自下而上比较相邻两个数据，把较小者交换到上面。小刘发现：当某一遍加工过程中没有数据交换，说明数据已经有序，无需进一步加工。为此，小刘对算法进行优化，编写了一个VB程序，功能如下：运行程序时，在列表框List1中显示排序前数据，单击“排序”按钮Commaiid1，在列表框List2中显示这些数据按升序排序后的结果，在标签Label3中显示排序过程的加工遍数。运行效果如图所示。实现上述功能的VB代码如下，但加

7、框处代码有错，请改正。Dima(1To8)AsIntegerDimnAsIntegerPrivateSubForm_Load()'n=8，排序前数据存储在数组a中，并在列表框Listl中显示'代码略EndSubPrivateSubCommand1_Click()DimflagAsBoolean'flag值为True表示一遍加工中发生过交换i=1flag=TrueDoWhile'（1）i<=n-1Orflag=Trueflag=FalseForj=nToi+1Step-