2018屆浙江省信息技術選考復習數(shù)組應用專題

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

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