2018屆浙江省信息技術(shù)選考復(fù)習(xí)數(shù)組應(yīng)用專題

2018屆第一階段復(fù)習(xí)數(shù)組專題命題人：杜宗飛班級(jí)：姓名：學(xué)號(hào)：數(shù)組的定義Dim數(shù)組變量名(A1ToA2)As元素的種類此中A1為數(shù)組的下標(biāo)下界,A2為數(shù)組的下標(biāo)上界。①定義數(shù)組時(shí),若省略下標(biāo)1,則默認(rèn)下標(biāo)從0開始。②數(shù)值型數(shù)組變量默認(rèn)初值為0，邏輯種類默認(rèn)初值為False。1.基礎(chǔ)習(xí)題已知n=10，Dima(1ton)asInteger,假定每個(gè)數(shù)組元素已經(jīng)賦值以下：a(i)對(duì)應(yīng)的值

a(1)a(2)a(3)a(4)a(5)a(6)a(7)a(8)a(9)a(10)59-1121132-722231）將數(shù)組元素a(i)的值在文本框Text1上顯示的代碼2）將數(shù)組元素a(i)的值在標(biāo)簽Label1上顯示的代碼3）將數(shù)組元素a(i)的值增添到列表框List1中顯示的代碼4）將數(shù)組的全部元素挨次在列表框List1上輸出For循環(huán)實(shí)現(xiàn)代碼：程序界面Fori=1TonList1.AddItemStr(a(i))Nexti請(qǐng)?zhí)顚慏o循環(huán)實(shí)現(xiàn)代碼：（5）數(shù)組中數(shù)據(jù)累加變量s用于儲(chǔ)存數(shù)組中全部元素之和變量s用于儲(chǔ)存數(shù)組中正數(shù)元素之和，請(qǐng)?zhí)顚懘a：s=0Fori=1Tons=s+a(i)Nexti（6）數(shù)組中數(shù)據(jù)統(tǒng)計(jì)變量c用于儲(chǔ)存數(shù)組中正數(shù)的個(gè)數(shù)變量c用于儲(chǔ)存數(shù)組中偶數(shù)的個(gè)數(shù)，請(qǐng)?zhí)顚懘a：c=0Fori=1TonIfa(i)>0Thenc=c+1EndIfNexti1（7）求數(shù)組中最大值變量k用于儲(chǔ)存數(shù)組中最大元素的值求數(shù)組a(i)、a(i+1),,a(j)中最大值，儲(chǔ)存在變量中，請(qǐng)?zhí)顚懘a：k=a(1)Fori=2TonIfa(i)>kThenk=a(i)Nexti（8）數(shù)組相鄰元素差值的最大值。（即a(2)-a(1)、a(3)-a(2),,a(n)-a(n-1)中的最大值）最大值儲(chǔ)存在變量k中，請(qǐng)?zhí)顚懘a：2.小明編寫了一個(gè)VB程序。程序運(yùn)轉(zhuǎn)是自動(dòng)產(chǎn)生n個(gè)隨機(jī)整數(shù)儲(chǔ)存在數(shù)組a中，隨機(jī)整數(shù)的范圍為[-20,20]，并在列表框List1中顯示。單擊按鈕后，在列表框List2輸出正數(shù)，在列表框List3輸出負(fù)數(shù)（0不輸出）。請(qǐng)?jiān)鲅a(bǔ)代碼。Constn=20Dimsz(1Ton)AsIntegerPrivateSubForm_Load( )DimiAsIntegerFori=1TonList1.AddItemStr(sz(i))EndSubPrivateSubCommand1_Click( )DimiAsIntegerFori=1TonIfsz(i)>0ThenList2.AddItemStr(sz(i))List3.AddItemStr(sz(i))EndIfNextiEndSub3.程序運(yùn)轉(zhuǎn)是自動(dòng)產(chǎn)生n個(gè)隨機(jī)整數(shù)儲(chǔ)存在數(shù)組a中，隨機(jī)整數(shù)的范圍為[100,99]，并在列表框List1中顯示。單擊按鈕后，在列表框List2上輸出各位數(shù)以后為偶數(shù)的整數(shù)（比方110的各位數(shù)之和為2，是偶數(shù)；122的各位數(shù)之和為5，不是偶數(shù)）。請(qǐng)?jiān)鲅a(bǔ)代碼。2Constn=15Dima(1Ton)AsIntegerDimflag(1Ton)AsBooleanPrivateSubForm_Load( )DimiAsIntegerFori=1Tona(i)=Int(Rnd*900)+100NextiEndSubPrivateSubCommand1_Click( )DimiAsIntegerDimxAsInteger,yAsInteger,zAsIntegerFori=1Tonflag(i)=FalseNextiFori=1Ton==a(i)\10Mod10=a(i)\100IfThenflag(i)=TrueNextiFori=1TonIfThenList2.AddItemStr(a(i))NextiEndSub4.小明設(shè)計(jì)了一個(gè)密碼安全強(qiáng)度考證程序。假如一個(gè)密碼的長(zhǎng)度大于等于8位而且包括大小寫字母和數(shù)字，則該密碼安全強(qiáng)度高。比方密碼“Du888123”安全強(qiáng)度高，密碼“sf123456”安全強(qiáng)度低。程序運(yùn)轉(zhuǎn)時(shí)從數(shù)據(jù)庫(kù)中讀取用戶密碼儲(chǔ)存在數(shù)組pw中，并在列表框List1上顯示。單擊按鈕后，假如密碼安全強(qiáng)度高，則將密碼在列表框List2上顯示。請(qǐng)?jiān)鲅a(bǔ)代碼。3Constn=10Dimpw(1Ton)AsString'挨次儲(chǔ)存各密碼Dimlength(1Ton)AsInteger'挨次儲(chǔ)存各的密碼長(zhǎng)度Dimflag(1Ton)AsBoolean'假如值為True代表密碼強(qiáng)度高PrivateSubForm_Load( )從數(shù)據(jù)庫(kù)中讀取密碼，并在列表框顯示，代碼略EndSubPrivateSubCommand1_Click( )DimiAsIntegerFori=1Tonflag(i)=FalseNextiFori=1TonNextiFori=1TonIflength(i)>=8AndThenflag(i)=TrueNextiFori=1TonList2.AddItempw(i)+"：長(zhǎng)度為"+Str(length(i))+",安全強(qiáng)度高"EndIfNextiEndSubFunctionmytest(sAsString)AsBooleanDimiAsInteger,chAsStringDimaAsInteger,bAsInteger,cAsIntegera=0:b=0:c=0Fori=1ToLen(s)Ifch>="a"Andch<="z"Thena