3最值标志及子序列问题信息技术选考

．(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(