3最值标志及子序列问题信息技术选考_第1页
3最值标志及子序列问题信息技术选考_第2页
3最值标志及子序列问题信息技术选考_第3页
3最值标志及子序列问题信息技术选考_第4页
3最值标志及子序列问题信息技术选考_第5页
已阅读5页,还剩23页未读 继续免费阅读

下载本文档

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

文档简介

.(2019·4月浙江省选考)给定m个区间和1个数组(有n个元素),现要求根据各区间限定的取值范围,将数组依次分隔成m+1个段。具体分割方法如下:第1段是从数组首个元素开始、元素值都属于第1区间的最长连续元素段。如果首个元素不属于第1区间,则第1段元素个数为0;第1段分割后的剩余元素,用同样的方法来依次分割第2段、第3段、…、第m段;第m段分割后的剩余元素分割到第m+1段(剩余段)。若第p(1≤p≤m-1)段末尾连续元素的值也同时属于第p+1区间,则这块连续元素称为第p段“重叠块”,该段其余部分称为第p段“非重叠块”。由于不存在第m+1区间,这里特别规定:第m段的全部元素都分割到m段“非重叠块”,第m段“重叠块”的元素个数为0,一个数组分段示例如下图。图中数组第1个元素10不属于第1区间[0,5],因此第1段的元素个数为0。10和20属于第2区间,而33不属于第2区间,因此第2段只包含10和20两个元素。第3段末尾连续3个元素的值也同时属于第4区间,因此,第3段“非重叠块”包含33,58,46,第3段“重叠块”包含55,62,69。(1)给定2个区间依次为[10,50]、[30,80],数组各元素为“12,44,34,45,66,50,45,70”,则第1段“重叠块”中的元素个数为________个。(2)小李根据上述描述,设计了一个统计各段“非重叠块”、“重叠块”和剩余段中元素个数的算法。算法的VB程序如下,请在划线处填入合适的代码。Constn=18,m=6Dima(1Ton)AsIntegerDimb(1To2*m)AsInteger′b(1)、b(2)为第1区间的下限和上限,b(3)、b(4)为第2区间的下限和上限,…Dimc(1To2*m+1)AsInteger′数组c用于保存统计结果:′c(1)、c(2)分别存储第1段“非重叠块”和“重叠块”的元素个数,′c(3)、c(4)分别存储第2段“非重叠块”和“重叠块”的元素个数,…′c(2m-1)存储第m段“非重叠块”元素个数,c(2m)存储第m段“重叠块”元素个数(值为0)′c(2m+1)存储剩余段元素个数PrivateSubCommand1_Click()DimiAsInteger,pAsInteger,LAsInteger,LLAsInteger′读取n个数据并保存在数组a中,代码略′读取m个区间的下限和上限并保存在数组b中,代码略Fori=1To2*m+1c(i)=0Nextii=1:p=1L=0:LL=0DoWhile______①____IfIsIn(i,p)ThenIfIsIn(i,p+1)ThenLL=LL+1Else______②____LL=0EndIfi=i+1Elsec(2*p-1)=Lc(2*p)=LLL=0:LL=0p=p+1EndIfLoopIfi<=nThenc(2*p-1)=n-i+1Elsec(2*p-1)=Lc(2*p)=LLEndIf′输出统计结果,代码略EndSub′函数IsIn用来判断a(i)值是否属于第p区间FunctionIsIn(iAsInteger,pAsInteger)AsBooleanIfp>mThenIsIn=FalseElseIf____③____ThenIsIn=TrueElseIsIn=FalseEndIfEndFunction答案(1)3(2)①i<=nAndp<=m②L=L+LL+1③a(i)>=b(2*p-1)Anda(i)<=b(2*p)2.(2018·4月浙江省选考)为分析数组a中各元素依次变化的情况,进行如下定义:•变化段:数组中相邻两个元素构成一个变化段。变化段有上升段(a(i)>a(i-1))、下降段(a(i)<a(i-1))和持平段(a(i)=a(i-1))。数组a中的n个元素可构成n-1个依次排列的变化段。•波峰:从上升段转到下降段形成一个波峰。波峰的起点是峰顶前所有连续上升段中的第1个,终点是峰顶后所有连续下降段中的最后1个。•对称波峰:上升段与下降段个数相同的波峰称为对称波峰。下图为一组数据的变化段及波峰示意图。现要求统计数组a各元素依次变化过程中“对称波峰”的个数。小李依据上述描述设计如下VB程序。请回答下列问题:(1)数组元素“1,4,3,3,2,6,8,7,9,3,4,7,9,6,3,1”依次变化过程中“对称波峰”的个数为________。(2)请在划线处填入合适的代码。Constn=20Dima(1Ton)AsIntegerPrivateSubForm_Load()′读取数据,并存储到数组a中,代码略EndSubPrivateSubCommand1_Click()DimflagAsInteger′存储变化段的状态:1表示升,-1表示降,0表示平DimcountAsInteger′存储对称波峰段的个数DimstepsAsIntegerDimiAsIntegerflag=0:steps=0:count=0Fori=____①____TonIfa(i)>a(i-1)ThenIfIsSymPeak(flag,steps)Thencount=count+1Ifflag=0Orflag=-1Then____②____Elsesteps=steps+1EndIfflag=1ElseIfa(i)=a(i-1)ThenIfIsSymPeak(flag,steps)Thencount=count+1steps=0flag=0Elsesteps=steps-1flag=-1EndIfNextiIfIsSymPeak(flag,steps)Thencount=count+1Text1.Text=Str(count)EndSubFunctionIsSymPeak(flagAsInteger,stepsAsInteger)AsBooleanIf____③______ThenIsSymPeak=TrueElseIsSymPeak=FalseEndIfEndFunction答案(1)3(2)①2②steps=1③flag=-1Andsteps=0或其他等价表达式3.(2016·4月浙江选考)某地1900~1999年的平均降水量数据保存在数据库中。现要求找出相邻两年年平均降水量变化(即本年度与上年度“年平均降水量”差值的绝对值)最大的年份区间。如果有多个符合要求的年份区间,只输入距今最近的。小吴为此编写了VB程序,程序运行时,单击按钮Command1后,在文本框Text1中输出运行结果。实现上述功能的VB代码如下,但加框处代码有错,请改正。Dimw(1To100)AsSingle′依次存储1900~1999年的年平均降水量数据Constn=100PrivateSubForm_Load()′本过程从数据库中按1900~1999年依次读取年平均降水量数据,并存储在数组w中′代码略EndSubPrivateSubCommand1_Click()DimiAsInteger,imaxAsIntegerimax=eq\x(1)′(1)Fori=3TonIfAbs(w(i)-w(i-1))>=eq\x(Abs(w(i-1)-w(i-2)))Thenimax=i′(2)NextiText1.Text=“年平均降水量变化最大的年份区间是+Str(imax+1898)+“-”+Str(imax+1899)EndSub其中,加框(1)处应改正为________,加框(2)处应改正为________________。答案(1)2(2)Abs(w(imax)-w(imax-1))最值问题【例1】小王编写VB程序,功能如下:在文本框Text1中输入一段英语短文,点击“统计”按钮Command1,在标签Label2中输出该短文中出现次数最多的小写字母、次数和频率(若有多个,则全部输出)。PrivateSubCommand1_Click()DimiAsInteger,nAsInteger,fAsIntegerDimmaxAsInteger′变量max表示出现最多的字母DimsumAsInteger′sum表示字母总数Dimzm(1To26)AsInteger′数组zm存放26个字母出现的次数DimsAsString,cAsStringDimcxAsString′变量cx存放次数最多的字符s=Text1.TextFori=1ToLen(s)c=Mid(s,i,1)Ifc>=”a”Andc<=”z”Then____①____zm(n)=zm(n)+1sum=____②____EndIfNextimax=0Forj=1To26Ifzm(j)>maxThenmax=j:cx=Chr(Asc(”a”)+j-1)If____③____Thencx=cx+””+Chr(Asc(”a”)+j-1)Nextjf=Int(max/sum*100)Label2.Caption=”字母:”&cx&”次数:”&max&”频率:”&Str(f)&”%”EndSub答案①n=Asc(c)-Asc(”a”)+1②sum+1③max=zm(j)【变式训练1】小王用VB编写一个自动统计离散数据的“极大值”(如图a所示)个数的程序。功能如下:在列表框List1中随机产生n个介于[1,99]的正整数,单击“统计极大值”命令按钮Command1,程序自动统计出极大值,并将其输出到列表框List2,且将其中的最大值输出在标签Label1中。程序界面如图b所示,实现上述功能的VB程序如下。(假设:数据的左右两个端点不计入极大值,且相等的两个值也不计入极大值)。请回答以下问题:(1)当n=6,原始数据为“8392457125”,此时极大值有:________。(2)请在划线处填入合适的代码。Constn=10Dima(1Ton)AsInteger′存储原始数据DimMax(1Ton)AsInteger′存储极大值数据PrivateSubForm_Load()′原始数据初始化RandomizeFori=1Tona(i)=____①______′产生[1,99]间随机整数List1.AddItemStr(a(i))NextiEndSubPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDimcountAsInteger,MaxaAsIntegercount=0List2.ClearFori=2Ton-1′统计极大值,左右两边端点值除外If____②____Thencount=count+1____③____EndIfNextiMaxa=0Fori=1TocountList2.AddItemStr(Max(i))IfMaxa<Max(i)ThenMaxa=Max(i)NextiLabel1.Caption=”极大值中的最大值为:”+Str(Maxa)EndSub答案(1)39、71(2)①Int(Rnd*99)+1或int(Rnd*99+1)Rnd可写成Rnd()②a(i)>a(i+1)Anda(i)>a(i-1)③Max(count)=a(i)考点2标志问题【例2】小刘为班级的抽奖活动编写了一个VB程序。单击“确定”按钮Command1时,在列表框List1中显示按用户抽取人数在学号起讫范围内[n1,n2](最大学号不超过100)随机抽取到不重复的学号。输入的抽取人数不会超过学号范围内的人数。程序运行界面如下图所示。实现上述功能的VB程序如下,请在划线处填入合适代码。Dimxh(1To100)AsInteger,numAsIntegerPrivateSubCommand1_Click()Dimn1,n2,n,xAsIntegerRandomizen1=Val(Text1.Text)n2=Val(Text2.Text)n=Val(Text3.Text)num=1DoWhilenum<=n____①____Ifnum=1Thenxh(num)=xnum=num+1ElseIfunique(x)=TrueThen____②____num=num+1EndIf____③____LoopFori=1TonList1.AddItemStr(xh(i))NextiEndSubFunctionunique(tAsInteger)AsBooleanDimjAsIntegerForj=1TonumIfxh(j)=tThenunique=False:ExitForNextjIf____④____Thenunique=TrueEndFunction答案①x=Int(Rnd*(n2-n1+1))+n1②xh(num)=x③EndIF④j>num或j=num+1【变式训练2】编写“数字提取”程序,实现如下功能:在文本框Text1中输入包含数字和其他非数字字符混合的原始数据,点击“数字提取”按钮Command1,将数据中的数字以“,”间隔输出到文本框Text2中。程序运行界面如图所示,VB代码如下。请回答以下问题:(1)要使程序运行后,窗体Form1标题立即自动显示为“数字提取”,可在________(单选,填字母:A.Form_Load/B.Form_Click/C.Command1_Click)事件过程中添加语句Form1.Caption=“数字提取”。(2)实现上述功能的VB程序如下,请在划线处填入合适的代码。PrivateSubCommand1_Click()DimsAsString,chAsString,flagAsBooleanDimtmpAsString,ansAsStrings=Text1.Texts=s+"."tmp="":ans=""flag=FalseFori=1ToLen(s)ch=Mid(s,i,1)Ifch>=”0”Andch<=”9”Then___①____flag=TrueElseIfflag=TrueThenans=ans+tmp+","____②____flag=FalseEndIfNextiText2.Text=ansEndSub(3)若删除程序中的语句“s=s+”.””,输入不变,则提取后的数字信息为__________。答案(1)A(2)①tmp=tmp+ch②tmp=“”(3)86,1,1.某地2017.1~2017.2月的日期及日最高气温据保存在数据库中。要求根据日最高气温,找出两个月中连续降温的次数、最长降温天数及其日期。小刘为此编写了VB程序,程序运行后,单击按钮Command1后,在Label1和Label2上输出运行结果。实现上述功能的VB代码如下,但加框处有错,请改正。Dima(1To59)AsString′依次存2017.1~2017.2月的日期数据Dimb(1To59)AsInteger′依次存2017.1~2017.2月的日最高气温数据PrivateSubFormLoad()′从数据库中按2017.1~2017.2的日期次序,取日期和日最高气温据,分别存储在数组a和b中,代码略EndSubPrivateSubCommand1_Click()DimdAsInteger,nAsInteger,dmaxAsInteger,mAsIntegern=0:d=1:dmax=1Fori=2To59Ifeq\x(a(i-1)<a(i))Then′(1)d=d+1Elsed=1EndIfIfd=2Thenn=n+1Ifd>dmaxThendmax=dm=iEndIfNextiLabel1.Caption=”连续降温次数”&Str(n)Label2.Caption=”连续最长降温日期为”&eq\x(Str(a(m)-dmax+1))&”-”&Str(a(m))′(2)EndSub答案(1)b(i-1)>b(i)(2)Str(a(m-dmax+1))2.小杜编写了一个会议签到统计的VB程序。假设人员名单中没有重名。运行界面如图所示,列表框1显示会议应到人员名单,列表框2显示会议实际出席人员名单,单击“统计”按钮Command1后,列表框3显示缺席人员名单。实现上述功能的VB程序如下,请将划线处的代码补充完整。Dimb(1Ton)AsString′存储会议实际到的人员名单Dimflag(1Ton)AsBoolean,mAsIntegerPrivateSubForm_Load()′将n个应到人员姓名依次存储在数组a中,将m个实际参加会议人员姓名依次存储在数组b中′在列表框1显示应到人员姓名,在列表框2显示实到人员姓名,该过程代码略EndSubPrivateSubCommand1_Click()DimiAsInteger,jAsIntegerFori=1Tonflag(i)=FalseNextii=1DoWhilei<=mForj=1TonIf____①____Thenflag(j)=TrueExitFor′退出for循环EndIfNextji=i+1LoopFori=1TonIf____②____ThenList3.AddItema(i)NextiEndSub答案①b(i)=a(j)②flag(i)=False或Notflag(i)3.如果一个正整数从高位到低位上的数字依次递减,则称其为降序数(如9752、9772是降序数,而7524不是降序数)。现编写VB程序实现如下功能:在文本框Text1种输入一个正整数,单击“判断”按钮Commmand1,在标签Label2中显示出该数是不是降序数。程序运行界面如图所示。(1)代码“Command1_Click()”中的Click是________(选填字母:A.对象名/B.属性名/C.事件名/D.方法名)。(2)请完善下列程序代码:PrivateSubCommand1_Click()DimiAsInteger,sAsString,flagAsBoolean____①____flag=True:i=2DoWhilei<=Len(s)AndflagIf____②______Then____③____i=i+1LoopIfflagThenLabel2.Caption=s+”是降序数!”ElseLabel2.Caption=s+”不是降序数!”EndIfEndSub答案(1)C(2)①s=Text1.Text②Mid(s,i,1)<Mid(s,i-1,1)③flag=False4.VB程序,功能如下:单击“生成数组”按钮Command1,则随机生成13个取值范围是1~13的正整数,分别存储到数组a中,对数组a的元素进行升序排列,并在标签label1中显示;再单击“连续数”按钮Command2,则在排序后的数组a中查找连续个数最多(忽略重复数值)的一组数值即:连续数),若有两组连续数个数一样多,则取数值小的一组,将连续数显示在标签label2中。运行界面如图所示。若实现上述功能的程序如下,请在划线处填写合适代码。Dima(1To13)AsInteger,nAsIntegerPrivateSubCommand1_Click()DimiAsInteger,sAsString,jAsIntegerRandomizen=13Fori=1Tona(i)=Int(Rnd*13)+1NextiFori=1Ton-1Forj=i+1TonIfa(j)<a(i)Thent=a(j):______①____:a(i)=tEndIfNextjNextis=””Fori=1Tons=s+Str(a(i))If____②____Thens=s+”,”NextiLabel1.Caption=sEndSubPrivateSubCommand2_Click()DimiAsInteger,jAsInteger,tAsInteger,kAsIntegerDimmaxAsInteger′存储连续数个数最大值DimbeginAsInteger′存储连续数开始的数值k=1max=1Fori=2To13Ifa(i)=a(i-1)+1Ora(i)=a(i-1)ThenIf____③____Thenk=k+1Ifk>maxThenmax=kbegin=____④____EndIfElsek=1EndIfNextis=””Forj=beginTobegin+max-1s=s+Str(j)NextjLabel2.Caption=sEndSub答案①a(j)=a(i)②i<n或i<>n或i<13或i<>13③a(i)=a(i-1)+1④a(i)-k+1或a(i)-max+15.在某打牌游戏中,一开始每个玩家各有17张牌,牌型从小到大分别为“3~10、J、Q、K、A、2”,每种牌最多4张,现在按指定规则的顺序打牌,打完为止。规则如下:先打顺子牌(顺子指连续的5个及以上牌型,如45678,顺子最大到A),若有多个顺子,先长后短,长度相同按先小后大的顺序打出。然后按4张、3张、2张、1张的顺序出牌,同一个牌型从小到大。小刘依据上述算法设计了VB程序,其中牌型“10”用数字“0”代替表示,如图所示,请回答下列问题。(1)若初始牌型为344445566790JQKA2,第2次出的牌为________。(2)请在划线处填入合适代码。PrivateSubCommand1_Click()DimiAsInteger,jAsIntegerDima(1To13)AsInteger,maxAsInteger,tAsInteger,lastAsIntegerDimsaAsString,stemAsString,flagAsBooleanConsts=”34567890JQKA2”′用0代替牌10′发牌和洗牌代码略,在标签Label1显示初始牌型,洗牌后数组a各元素分别存储牌型3~2的数量t=17′刚开始牌有17张DoWhilet>0′打牌flag=TrueDoWhileflag′寻找牌中有没有顺子牌max=0:k=1:flag=FalseFori=1To11If____①____Thenk=k+1Ifk>MaxThenMax=kLast=i+1′记录连续牌的最后一张EndIfElsek=1EndIfNextiIfMax>=5Then′有顺子牌,把最长的这把顺子打出来flag=True:sa=””Forj=____②____Tolaststem=Mid(s,j,1)sa=sa+stem+””a(j)=a(j)-1NextjList1.AddItemsa′顺子在列表框显示t=t-maxEndIfLoopFori=1To13′出4个一样的牌Ifa(i)=4Thenstem=Mid(s,i,1)List1.AddItemstem+stem+stem+stema(i)=0____③____EndIfNexti′3张、2张、单张出牌,具体代码略LoopEndSub答案(1)34567(2)①a(i)>0Anda(i+1)>0②last-max+1③t=t-46.对英文字母进行加密的规则:用26个互不重复的ASCII字符作为密钥,字母“A”用密钥中第1个字符代替,字母“B”用密钥中第2个字符代替,其他字母用类似方法进行加密。现编写一个验证密钥合法性的程序。在文本框Text1中输入密钥,单击“验证”按钮Command1,在文本框Text2中输出相应的信息。(1)实现验证功能事件的过程名称是________。(2)为实现上述功能,请在划线处填入合适的代码。PrivateSubCommand1_Click()DimiAsInteger,chAsString,sAsStringDimmy(0To127)AsBoolean′0~127表示128个ASCII字符的ASCII值s=Text1.TextFori=0To127my(i)=FalseNextiIf____①____ThenText2.Text=”密钥长度不足26个字符!”ElseFori=1To26ch=Mid(s,i,1)t=____②____Ifmy(t)=FalseThenmy(t)=TrueElseText2.Text=”密钥中有重复字符!”ExitSubEndIf____③____Text2.Text=”密钥正确!”EndIfEndSub答案(1)Command1_Click(2)①Len(s)<26②t=Asc(ch)③Nexti7.尼克斯彻定理:任何一个大于等于1的整数的立方等于一串连续奇数之和,如:13=1,23=3+5,33=7+9+11。编写一个VB程序验证尼克斯彻定理,程序运行时,在文本框Text1中输入一个大于等于1的整数,单击“验证”按钮Command1,在文本框Text2中显示验证结果,运行界面如图所示。实现上述功能的VB代码如下,请完善代码:PrivateSubCommand1_Click()DimnAsInteger,iAsInteger,tAsInteger,sumAsLong,sAsStringn=Val(Text1.Text)Fori=1Ton^3Step2′变量i表示连续奇数的首个整数sum=0:t=i:flag=FalseDoWhilesum<n^3Andflag=Falsesum=____①____t=t+2If____②____Thenflag=TrueLoopIfflag=TrueThenExitForNextis=Str(n)+”^”+Str(3)+”=”DoWhilesum>0____③____Ifsum=0Thens=s+Str(i)Elses=s+Str(i)+”+”EndIfi=i+2LoopText2.Text=sEndSub答案①sum+t②sum=n^3③sum=sum-i8.某种纸牌游戏,三人一起玩一副牌,每人17张。5张及以上的连续单牌(不分花色)称为顺子,顺子最大到K,如“A,2,3,4,5,6”是长度为6的顺子。编写程序,判断游戏刚开始时某玩家有没有顺子,最长的顺子是几张。(1)实现上述功能的VB代码如下,但加框处代码有误,请改正。(2)请将划线处的代码补充完整。Dima(n)AsIntegerPrivateSubCommand1_Click()DimmaxAsInteger,countAsIntegerDimiAsInteger,jAsIntegercount=0:max=0i=1DoWhilei<=n-1eq\x(count=0)′①j=i+1DoWhilej<=nIfeq\x(a(j)=a(j-1)–1)Then′②j=j+1count=count+1ElseIfa(j)=a(j-1)Thenj=j+1ElseExitDoEndIfLoopi=____③____Ifcount>maxThenmax=countLoopIfmax<5Thens=”无顺子”Elses=”最长顺子长度:”+Str(max)EndSubPrivateSubForm_Load()′获取17张牌的数值(J、Q、K、A分别对应11、12、13、1),升序存储在数组a中EndSub答案①count=1②a(j)=a(j-1)+1③j9.小夏用VB编写了一个统计单词重复情况的程序,实现的功能如下:在文本框Text1中输入字符串,并以“#”字符结束,单击“确定”按钮Command1,在列表框List1中输出每个单词及其重复的次数,并在Label2中显示重复次数最多的单词,在Label3中显示该单词重复的次数。在该程序中,区分大小写,例如,单词“Baby”和“baby”是不相同的。运行界面如图所示。实现上述功能的VB程序如下,请回答以下问题:(1)变量f2的作用是______________________________。(2)请在划线处填入合适的代码。PrivateSubCommand1_Click()DimsAsString,mAsString,wordAsString,iAsInteger,DimjAsInteger,f1AsBoolean,f2AsBooleanDima(1To100)AsString,b(1To100)AsInteger′a数组存储单词,b数组存储该单词出现的次数s=Text1.Textk=0:word=””Fori=1To100′数组初始化b(i)=0:a(i)=””Nextif1=FalseFori=1ToLen(s)m=Mid(s,i,1)If____①____Thenword=word+mIfNotf1Thenk=k+1:f1=TrueElsef1=False:f2=FalseForj=1Tok-1Ifa(j)=wordThenb(j)=b(j)+1:f2=True:k=k–1:ExitForEndIfNextjIff2=FalseAnda(k)=””Then____②____b(k)=b(k)+1EndIf____③____EndIfNexti′对数组进行排序,并输出结果要,代码略EndSub答案(1)标记该单词在数组a中是否已经存在,值为TRUE,表示该单词已经存在(2)①(m>=”a”Andm<=”z”)Or(m>=”A”Andm<=”Z”)②a(k)=word③word=””10.某县有15所初中,其中代码01、02和03为城区学校,其他为乡镇初中,为鼓励乡镇初中报考县重点高中,该高中为乡镇初中分配了定向名额,当该校上线人数未达到定向人数时,在未到分数线10分以内的学生中,从高分到低分录取增加学生,直到总人数达到定向人数。该高中总的招生人数(含定向生)不得超出800人。小明依据上述描述设计了如下VB程序。算法基本思路:1)先找到第801名学生的成绩,向前查找高1分的学生,把该分数记为分数线;2)统计该分数线以上,各校录取人数;3)从该分数线向下查找10分以内的学生,如果某校上线人数未达到定向人数,则作为定向增加的录取人数;4)若录取人数加定向增加人数超过800人,将分数再提高1分,重复以上操作。程序运行时的界面如下图所示。请回答下列问题:(1)该程序运行后,第1个被定向录取的学生所在学校代码是__________。(2)请在划线处填入合适的代码。Constn=5992Dimxdm(n)AsString,xm(n)AsString′xdm存储学生所在学校代码,从01~15.Dimdx(15)AsInteger,zkz(n)AsString,cj(n)AsInteger′dx存储每所学校定向指标PrivateSubCommand2_Click()DimiAsInteger,jAsInteger′按成绩从高到低序号DimsAsInteger′总的招生人数DimfsxAsInteger′招生分数线Dimxrs(15)AsInteger′大于等于分数线人数Dimzjdx(15)AsInteger′未到定向指标而录取人数s=801:i=801DoWhiles>800DoWhilecj(

温馨提示

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

评论

0/150

提交评论