信息技術(shù)加試題

答題思路及解題技巧1.解題信息來源于題干、截圖和程序中的注釋語句；2.解題時可以利用截圖中的示例；3.如果有多個過程或函數(shù)，優(yōu)先執(zhí)行Load，再執(zhí)行Click，最后根據(jù)函數(shù)名調(diào)用函數(shù)；4.做題時可以將程序段劃分成程序片段，了解每一個程序片段的功能，根據(jù)具體功能進(jìn)行填空或者改錯；5.熟悉常用程序片段，如循環(huán)、分支、枚舉、排序、查找等等；6.改錯題一般情況下只需要進(jìn)行改動，不需要自己重寫代碼；7.如果確實(shí)不會，可以根據(jù)感覺寫，絕對不能空著;加試題答題技巧XX年街道農(nóng)業(yè)綜合站工作計(jì)劃匯報_1XX年街道農(nóng)業(yè)綜合站工作計(jì)劃XX年街道農(nóng)業(yè)綜合站工作計(jì)劃為加快我街道農(nóng)業(yè)產(chǎn)業(yè)化建設(shè)步伐,進(jìn)一步優(yōu)化農(nóng)作物及水產(chǎn)品種結(jié)構(gòu),推進(jìn)現(xiàn)代農(nóng)業(yè)發(fā)展,促進(jìn)農(nóng)業(yè)增效、農(nóng)民增收,現(xiàn)就XX年工作做如下計(jì)劃:一、指導(dǎo)思想以鄧小平理論和“三個代表”重要思想為指導(dǎo),深入貫徹中央、省、市、區(qū)、鄉(xiāng)農(nóng)業(yè)農(nóng)村工作會議精神,落實(shí)科學(xué)發(fā)展觀,以新的理念和思路破解農(nóng)村發(fā)展難題,以發(fā)展現(xiàn)代農(nóng)業(yè)、精品農(nóng)業(yè)、高效農(nóng)業(yè)、特色農(nóng)業(yè)為主題,以打牢基礎(chǔ)、創(chuàng)新科技、做強(qiáng)產(chǎn)業(yè)、龍頭帶動為著力點(diǎn),以推廣應(yīng)用現(xiàn)代農(nóng)業(yè)科技為支撐,提高基地規(guī)?；?biāo)準(zhǔn)化和品牌化水平,為農(nóng)業(yè)增效、農(nóng)民增收、農(nóng)產(chǎn)品增強(qiáng)競爭力做貢獻(xiàn),為三農(nóng)事業(yè)的發(fā)展,提供全方面的服務(wù)。二、目標(biāo)任務(wù)(一)、糧食生產(chǎn)1、穩(wěn)糧促增收。XX計(jì)劃全年糧食總面積69400畝,產(chǎn)量3242萬公斤。大春作物水稻37000畝,產(chǎn)量1389萬公斤,玉米17500畝,產(chǎn)量1080萬公斤,薯類2500畝,產(chǎn)量100萬公斤,雜糧面積1000畝,產(chǎn)量19萬公斤,晚秋作物1000畝,產(chǎn)量25萬公斤;小春作物26900畝,總產(chǎn)629萬公斤。2、狠抓各項(xiàng)科技措施。一1.【2015年10月浙江技術(shù)考試加試題第16題】

n個數(shù)據(jù)的冒泡排序需要經(jīng)過n-1遍加工，每一遍加工自下而上比較相鄰兩個數(shù)據(jù)，把較小者交換到上面。小劉發(fā)現(xiàn)：當(dāng)某一遍加工過程中沒有數(shù)據(jù)交換，說明數(shù)據(jù)已經(jīng)有序，無需進(jìn)一步加工。為此，小劉對算法進(jìn)行優(yōu)化，編寫了一個VB程序，功能如下：運(yùn)行程序時，在列表框List1中顯示排序前數(shù)據(jù)，單擊“排序”按鈕Command1，在列表框List2中顯示這些數(shù)據(jù)按升序排序后的結(jié)果，在標(biāo)簽Label3中顯示排序過程的加工遍數(shù)。運(yùn)行效果如圖所示。實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正。Dima(1To8)AsIntegerDimnAsIntegerPrivateSubForm_Load()

'n=8，排序前數(shù)據(jù)存儲在數(shù)組a中，并在列表框Listl中顯示

'代碼略EndSubPrivateSubCommand1_Click()

DimflagAsBoolean'flag值為True表示一遍加工中發(fā)生過交換

i=1

flag=True

DoWhile

i<=n-1Orflag=True'（1）

flag=False

Forj=nToi+1Step-1

Ifa(j)<a(j-1)Then

k=a(j):a(j)=a(j-1):a(j-1)=k

flag=True

EndIfNextj

i=i+1

Loop

Label3.Caption="排序過程的加工遍數(shù)為"+Str(i)'（2）

Fori=1Ton

List2.AddItemStr(a(i))

NextiEndSubFori=1ton-1

Forj=nToi+1Step-1

Ifa(j)<a(j-1)Then

k=a(j)

a(j)=a(j-1)

a(j-1)=k

EndIfNextjLoop在左側(cè)列表框中顯示初始數(shù)據(jù)冒泡排序的改進(jìn)算法在右側(cè)列表框中顯示排序后的數(shù)據(jù)2.【2015年10月浙江技術(shù)考試加試題第17題】某數(shù)據(jù)加密方法描述如下：(1)以字節(jié)為單位進(jìn)行加密處理；(2)將1個字節(jié)的8位二進(jìn)制數(shù)分割成前4位與后4位兩個二進(jìn)制數(shù)；(3)分別將上述兩個4位二進(jìn)制數(shù)轉(zhuǎn)換為十進(jìn)制數(shù)；(4)將每個十進(jìn)制數(shù)轉(zhuǎn)換為1個加密字符，對應(yīng)的“密碼表”如下：值(十進(jìn)制)0123456789101112131415加密字符IlikeCHNP0stcard小明按照上述方法，設(shè)計(jì)了一個字符串（僅包含ASCII字符）加密的VB程序，功能如下:單擊“加密”按鈕Commandl,程序依次將文本框Textl中每個字符的ASCII碼值作為1個字節(jié)轉(zhuǎn)換為兩個加密字符，連接這些加密字符，最后在文本框Text2中輸出加密結(jié)果。下表顯示了字符串中一個字符的加密過程：程序運(yùn)行效果如圖所示PrivateSubCommand1_Click()

DimnAsInteger,sAsString,iAsInteger,ssAsString

DimaAsInteger'存儲加密前字符的ASCII碼

Dimb1AsInteger,b2AsInteger'分別存儲分割、轉(zhuǎn)換后的兩個十進(jìn)制數(shù)

s=Text1.Text

①

Fori=1Ton

a=Asc(Mid(s,i,1))

b1=a\16

b2=aMod16

ss=ss+Code2Char(b1)+Code2Char(b2)

Text2.Text=ss

NextiEndSub'十進(jìn)制值轉(zhuǎn)換為加密字符的函數(shù)FunctionCode2Char(cAsInteger)AsString

DimsAsString

s="IlikeCHNpostcard"

Code2Char=②

EndFunction(2)若將“密碼表”中值為“0”對應(yīng)的加密字符“I”改成“i”，加密后的密文可能無法解密，原因是

。n是什么？n=len(s)mid(s,c,1)3.【2016年4月浙江技術(shù)考試加試題第16題】

某地1900-1999年的平均降水量數(shù)據(jù)保存在數(shù)據(jù)庫中。現(xiàn)要求找出相鄰兩年年平均降水量變化（即本年度與上年度“年平均降水量”差值的絕對值）最大的年份區(qū)間。如果多個符合要求的年份區(qū)間，只輸入距今最近的。小吳為此編寫了VB程序，程序運(yùn)行時，單擊按鈕Command1后，在文本框Text1中輸出運(yùn)行結(jié)果。實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正。Dimw(1To100)AsSingle'依次存儲1900-1999年的年平均降水量數(shù)據(jù)Constn=100PrivateSubForm_Load()

'本過程從數(shù)據(jù)庫中按1900-1999年依次讀取年平均降水量數(shù)據(jù)，并存儲在數(shù)組w中

'代碼略EndSubPrivateSubCommand1_Click()

DimiAsInteger,imaxAsInteger

imax=1

Fori=3Ton

IfAbs(w(i)-w(i-1))>=

Abs(w(i-1)-w(i-2))Thenimax=i

Nexti

Text1.Text="年平均降水量變化最大的年份區(qū)間是"+Str(imax+1898)+"-"+

Str(imax+1899)EndSub找出相鄰兩年年平均降水量變化最大的年份imax=2Abs(w(imax)-w(imax-1))4.【2016年4月浙江技術(shù)考試加試題第16題】某數(shù)據(jù)壓縮方法描述如下：1）原始數(shù)據(jù)中，某數(shù)不為0且相鄰無重復(fù)，壓縮數(shù)據(jù)用該數(shù)據(jù)表示；2）原始數(shù)據(jù)中，某數(shù)為0且相鄰無重復(fù)，壓縮數(shù)據(jù)用兩個數(shù)表示，第1個位0，第2個為0；3）原始數(shù)據(jù)中，某數(shù)據(jù)相鄰有重復(fù)，壓縮數(shù)據(jù)用3個數(shù)表示：第1個位0，第2個為重復(fù)數(shù)的個數(shù)，第3個為該數(shù)本身；根據(jù)上述壓縮方法，對應(yīng)的解壓縮方法示例如圖所示。小明編寫了一個解壓縮VB程序，功能如下：窗體加載時，自動讀取壓縮數(shù)據(jù)，依次存儲在數(shù)組元素a(1)、a(2)、a(3)……中，壓縮數(shù)據(jù)的個數(shù)存儲在變量n中，壓縮數(shù)據(jù)顯示咋文本框Text1中。單擊“解壓縮”按鈕Command1，程序?qū)嚎s數(shù)據(jù)依次進(jìn)行解壓縮處理，解壓縮數(shù)據(jù)顯示在文本框Text2中。程序運(yùn)行界面如圖所示。數(shù)據(jù)壓縮方法描述如下：1）原始數(shù)據(jù)中，某數(shù)不為0且相鄰無重復(fù)，壓縮數(shù)據(jù)用該數(shù)據(jù)表示；2）原始數(shù)據(jù)中，某數(shù)為0且相鄰無重復(fù)，壓縮數(shù)據(jù)用兩個數(shù)表示，第1個位0，第2個為0；3）原始數(shù)據(jù)中，某數(shù)據(jù)相鄰有重復(fù)，壓縮數(shù)據(jù)用3個數(shù)表示：第1個位0，第2個為重復(fù)數(shù)的個數(shù)，第3個為該數(shù)本身；根據(jù)上述壓縮方法，對應(yīng)的解壓縮方法示例如圖所示。（1）如果壓縮數(shù)據(jù)為“23,0,21,66,0,0,77,0,5,0”，則解壓縮數(shù)據(jù)的個數(shù)是

。23666666…6607700000原始數(shù)據(jù)壓縮后的數(shù)據(jù)29（2）實(shí)現(xiàn)上述功能的VB程序如下。請?jiān)趧澗€處填入合適代碼。Dima(1To100)AsInteger'存儲壓縮數(shù)據(jù)，最大處理個數(shù)為100Dimb(1To1000)AsInteger'存儲解壓縮數(shù)據(jù)，最大處理個數(shù)為1000DimnAsInteger'存儲壓縮數(shù)據(jù)的個數(shù)PrivateSubCommand1_Click()

DimpaAsInteger'存儲壓縮數(shù)組當(dāng)前處理位置

DimpbAsInteger'存儲解壓縮數(shù)組當(dāng)前處理位置

DimfirstdataAsInteger,countAsInteger,iAsInteger

pa=1:pb=1

DoWhilepa<=n

firstdata=a(pa)

Iffirstdata<>0Then'示例1情況處理b(pb)=firstdata

pa=pa+1:pb=pb+1

Elsecount=a(pa+1)Ifcount=0Then'示例2情況處理b(pb)=0pa=①:pb=pb+1Else'示例3情況處理Fori=1Tocount

②

Nextipa=pa+3:pb=pb+countEndIf

EndIf

Loop

Text2.Text=Str(b(1))

Fori=2To③

Text2.Text=Text2.Text+","+Str(b(i))

NextiEndSub12345678910a25000778bpa+2b(pb+i-1)=a(pa+2)pb-1解壓縮輸出解壓后數(shù)據(jù)5.【

2016年9月嘉興市基礎(chǔ)測試信息技術(shù)加試第16題】

數(shù)學(xué)黑洞數(shù)6174。一個任意的四位正整數(shù)（四位數(shù)字完全相同除外），將數(shù)字重新組合成一個最大的數(shù)和最小的數(shù)相減，重復(fù)這個過程，最多七步，必得6174。如取四位數(shù)5462，按以上方法作運(yùn)算如下：①6542-2456=4086②8640-0468=8172③8721-1278=7443④7443-3447=3996⑤9963-3699=6264⑥6642-2466=4176⑦7641-1467=6174

從文本框Text1中輸入一個任意的數(shù)字不完全相同的四位正整數(shù)，在文本框Text2中輸出掉進(jìn)黑洞的步數(shù)。實(shí)現(xiàn)上述功能的VB代碼如下，但加框處代碼有錯，請改正：①

②

PrivateSubCommand1_Click()Dima(1To4)AsInteger,cAsInteger,tAsIntegerDimxAsInteger,yAsInteger,iAsInteger,jAsIntegerx=Val(Text1.Text)c=0DoWhilex<>6174Fori=1To4'把四位正整數(shù)x的每一位數(shù)字取出并存放到數(shù)組a中a(i)=xMod10x=x/10'①NextiFori=1To3Forj=i+1To4Ifa(i)>a(j)Then'②t=a(i):a(i)=a(j):a(j)=tEndIfNextjNextix=a(1)*1000+a(2)*100+a(3)*10+a(4)y=a(1)+a(2)*10+a(3)*100+a(4)*1000x=x-yc=c+1LoopText2.Text=Str(c)EndSub將四位整數(shù)落入數(shù)字黑洞a(1)a(2)a(3)a(4)升序or降序？x=x\10a(i)<a(j)6.【

2016年9月嘉興市基礎(chǔ)測試信息技術(shù)加試第17題】約瑟夫問題

編號為1、2、3、……、n的n個人按順時針方向圍坐一圈，每人手持一個密碼（正整數(shù)）。開始任意選一個正整數(shù)m作為報數(shù)的上限值，從第一個人開始順時針自1開始順序報數(shù)，報到m時停止，同時報m的人出列，并將他的密碼作為新的上限值m，從他順時針下一個人開始重新自1開始報數(shù)，如此下去直到所有人全部出列為止。要求：由用戶輸入隊(duì)列人數(shù)n和正整數(shù)m，以及游戲的密碼上限x。隊(duì)列中每人所持的密碼隨機(jī)產(chǎn)生，大小必須在[1，x]區(qū)間。在程序界面中按出列順序顯示每個人的編號和出列時他所持的密碼。運(yùn)行效果如圖所示。實(shí)現(xiàn)上述功能的VB程序如下。請?jiān)趧澗€處填入適當(dāng)?shù)恼Z句和代碼，把程序補(bǔ)充完整。（1）在程序畫線①處應(yīng)填入；（2）在程序畫線②處應(yīng)填入；（3）在程序畫線③處應(yīng)填入。PrivateSubCommand1_Click()Dima()AsInteger,b()AsInteger,mAsInteger,nAsIntegerDimiAsInteger,kAsInteger,cAsInteger,xAsIntegern=Val(Text1.Text):m=Val(Text2.Text):x=Val(Text3.Text)ReDima(1Ton)AsInteger'重新定義數(shù)組a，存儲下標(biāo)對應(yīng)編號人的隊(duì)列