2007秋等级考试上机题（VB04）改错题(14分)[题目]本程序的功能是，将文本框中输入的以逗号分隔的若干数据存入一个数组：如果相邻数据的和为素数，则将其输出到列表框中。[要求]1.新建工程,输入上述代码,改正程序中的错误;2.改错时,不得增加或删除语句,但可适当调整语句位置;3.将窗体文件上传到服务器。OptionExplicitPrivateSubCommand1_Click()Dima()AsInteger,iAsIntegerDimkAsInteger,sAsString,stAsStrings=Text1Callchange(s,a)Fori=1ToUBound(a)k=a(i)+a(i+1)Ifprime(k)Thenst=a(i)&"+"&a(i+1)&"="&kList1.AddItemstEndIfNextiEndSubPrivateSubchange(sAsString,a()AsInteger)DimkAsInteger,nAsIntegerDon=InStr(s,",")k=k+1ReDimPreservea(k)Ifn<>0Thena(k)=Val(Left(s,n-1))Elsea(k)=Val(s)EndIfs=Mid(s,n+1,Len(s)-n)LoopUntiln<0EndSubPrivateFunctionprime(nAsInteger)AsBooleanDimiAsIntegerFori=2ToSqr(n)IfnModi=0ThenExitForNextiprime=TrueEndFunction二、编程题(26分)[题目]编写程序，输入整型数据范围m、n，求出介于m、n之间所有的升序数，并输出到列表框中。所谓升序数是指组成数据的各位数字从左到右依次递增的整数。例如135就是一个升序数。[编程要求]1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见：2．运行程序，首先在文本框1和文本框2中分别输入m与n的值，按“运行”按钮，则开始查找符合要求的数据并在列表框中显示结果；按“清除”按钮，则将文本框与列表框清空，焦点置于文本框1：按“结束”按钮，结束程序运行：程序中应定义一个函数过程，用于判断一个正整数是否为升序数。2007秋等级考试上机题（VB05）一、改错题(14分)[题目]设stl和st2是两个无重复字符的且已按字典序排序的字符串。本程序功能是，stl中的与st2不重复的字符插入到st2的适当位置，使得st2中的字符仍保持字典序。[要求]1.新建工程,输入上述代码,改正程序中的错误;2.改错时,不得增加或删除语句,但可适当调整语句位置;3.将窗体文件上传到服务器。OptionExplicitPrivateSubCommand1_Click()Dimst1AsString,st2AsStringDimiAsInteger,jAsInteger,sAsString*1,opAsInteger,KAsIntegerst1=Text1st2=Text2op=1Fori=1ToLen(st1)s=Mid(st1,i,1)K=Fun(st2,s,op)IfK<>0Then‘将字符插入到st2中st2=st2&""Forj=Len(st2)ToK+1Mid(st2,j,1)=Mid(st2,j-1,1)NextjMid(st2,K,1)=sEndIfNextiText3=st2EndSubPrivateFunctionFun(StAsString,sAsString*1,PAsInteger)AsIntegerDimiAsIntegerFori=PToLen(St)Ifs<Mid(St,i,1)ThenExitForElseIfs=Mid(St,i,1)ThenFun=0ExitforEndIfNextiFun=iP=i+1EndFunction二、编程题(26分)[题目]编写程序，求出介于正整数A、B之间所有包含4个因子的数(因子不包括l和自身)。[编程要求]1．程序参考界面如图所示，编程时不得增加或减少界面对象或改变对象的种类，窗体及界面元素大小适中，且均可见；2．运行程序，在文本框1与文本柜2中分别输入A与B的数值，按“运行”按钮，开始查找，并在列表框中按参考界面格式显示查找结果(要求使用循环结构输出因子)；按“清除”按钮，则将所有文本框和列表框清空，焦点置于文本框l按“结束”按钮，结束程序运行：程序中应定义一个求整数的因子(因子存于数