第三章算法與程序?qū)崿F(xiàn)2課件-高中信息技術(shù)浙教版必修1

算法與程序設計——方衛(wèi)龍1.編寫VB程序，實現(xiàn)如下功能：在文本框Text1中輸入一串字符，單擊"查看"按鈕后，在列表框顯示每個字符對應的內(nèi)碼。運行界面如圖所示。(1)代碼"List1.Additem"中"Additem"是______(填:對象/方法/事件/事件處理過程)(2)為實現(xiàn)上述功能，請在劃線處填入合適的代碼。PrivateSubCommand1_Click()DimsasString,chasStringDimiasInteger,nasIntegers=Text1.TextFori=1to________ch=Mid(s,i,1)_____________List1.Additemch+“內(nèi)碼為："+Str(n)NextiEndSub六、字符串問題（三）字符與內(nèi)碼方法Len(s)n=Asc(ch)2.編寫VB程序，實現(xiàn)如下功能：在文本框Text1中輸入一串字符，單擊"轉(zhuǎn)換"按鈕CmdConver,V把該字符串中所有出現(xiàn)的大小寫字母進行轉(zhuǎn)換（即大寫字母替換成小寫字母，小寫字母替換成大寫字母），轉(zhuǎn)換后的結(jié)果輸出到文本框Text2中，同時在標簽Label1中輸出字母轉(zhuǎn)換的次數(shù)。(1)下面代碼事件處理過程名是_________________________。(2)為實現(xiàn)上述功能，請在劃線處填入合適的代碼。PrivateSubCmdConver_Click()DimsasString,tasString,chasString,iasInteger,kasIntegers=Text1.textt="":k=0Fori=1tolen(s)ch=Mid(s,i,1)IFch>="a"andch<="z"Thench=Chr(Asc(ch)-32)'小寫字母a的ASCII碼為97________ch>="A"andch<="Z"Thench=Chr(Asc(ch)+32)‘大寫字母A的ASCII碼為65Elsek=k+1Endift=t＆chNextiText2.Text=tLabel1.Caption=_________________EndSub(3)下列代碼與虛線框代碼功能相同的是_____________(單選：A.ch>=97andch<=122B.Asc(ch)>=97andAsc(ch)<=122C.Chr(ch)>=97andChr(ch)<=122)六、字符串問題（三）字符與內(nèi)碼CmdConver_ClickElseIFStr(Len(s)-k)B3.編寫VB程序，實現(xiàn)如下功能：在文本框Text1中輸入一個字母，單擊"產(chǎn)生回文字母"按鈕Command1,在標簽Label2中顯示相應的回文字符串。例如：若輸入的是大寫字母"G"，則產(chǎn)生從"A"開始的回文字母"ABCDEFGFEDCBA";若輸入的是小寫字母"g"，則產(chǎn)生從"a"開始的回文字母"abcdefgfedcba".(1)觀察運行界面，選項中沒有用到的控件是______（選填：A.B.C.D.）。(2)請完善下列程序代碼：PrivateSubCommand1_Click()DimnasInteger,iasInteger,initasInteger,masString,sasStringm=Text1.Text:s=""Ifm>="a"andm<="z"Theninit=Asc("a")Ifm>="A"andm<="Z"Theninit=Asc("A")n=Asc(m)-init+1Fori=1to_______IFi<=nThens=s+Chr(Asc(m)+i-n)Else______________EndifNextiLabel2.Caption=sEndSub六、字符串問題（三）字符與內(nèi)碼D2*n-1S=s+Chr(Asc(m)+n-i)不會4.VB程序計算某單詞的"分值"，具體功能:在文本框Text1中輸入一個英文單詞，"計算"按鈕Command1,在列表框List1中顯示計算的結(jié)果。字母A至Z對應1至26的分值（即：A=1,B=2…,Z=26，小寫字母同理），程序運行的界面如圖所示：(1)觀察程序界面和代碼，除窗體外使用了__________（填數(shù)字）類控件。(2)實現(xiàn)上述功能，在劃線處填入合適的代碼。PrivateSubCommand1_Click()DimsasString,xasString,ssasStringDimtasInteger,nasInteger_______________t=0:ss=""Fori=1tolen(s)x=Mid(s,i,1)Ifx>="a"andx<="z"Thenn=Asc(x)-96'小寫字母a的ASCII值97_____________________________n=Asc(x)-64'大寫字母A的ASCII值65ElseList1.additems＆"該單詞輸入有誤!"Endif_______________IFi<>len(s)Thenss=ss+Str(n)+"+"Elsess=ss+Str(n)+"="NextiList1.additems+":"+ss+Str(t)EndSub六、字符串問題（三）字符與內(nèi)碼4S=Text1.textElseifx>=“A”Andx<=“Z”Thent=t+n1.編寫"單詞查詢"程序，實現(xiàn)如下功能：在文本框Text1中輸入一段英文文本(以“.”為結(jié)束符）。在文本框Text2輸入一個英文字母，單擊"獲取單詞"按鈕Command1，在列表框List1依次顯示Text1中包含該英文字母表的所有單詞。程序運行界面如圖所示。(1)程序運行時文本框Text1顯示為"請輸入英文短句"，可在Form_Load事件過程中添加代碼_______(單選：A.Text1.Caption="請輸入英文短句"/B.Text1.text="請輸入英文短句"/C.Text1.additem="請輸入英文短句"）(2)實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適的代碼。PrivateSubCommand1_Click()DimsasString,tmpasString,casString,nasInteger,iasIntegerDimflagasBoolean,cntasIntegers=Text1.Textn=len(s)flag=FalseList1.ClearFori=1tonc=Mid(s,i,1)Ifc>="a"andc<="z"orc>="A"andc<="Z"Then______________Ifc=Text2.Textflag=True:cnt=cnt+1ElseIfflagThenList1.additemtmptmp=""______________EndifNextiIfcnt=0ThenList1.additem"找不到符合條件的單詞。"EndifEndSub(3)若文本框Text2中輸入"M",單擊"獲取單詞"按鈕后，列表框List1中顯示的單詞個數(shù)是_________。六、字符串問題（四）字符與統(tǒng)計Btmp=tmp+cflag=False12.用VB編寫求句子中最長單詞的程序。輸入要求：句子以"."結(jié)束：單詞之間用空格分隔，單詞沒有縮寫形式和其它特殊形式。運行界面如圖所示，程序功能：在文本框Text1中輸入待統(tǒng)計的句子，單擊"統(tǒng)計"按鈕Command1,將結(jié)果顯示在文本框Text2和Text3中。(1)結(jié)合運行界面，當前窗體中共使用了_________類對象（填數(shù)字）。(2)根據(jù)題意將下列程序補充完整。PrivateSubCommand1_Click()Dimiasinteger,kasInteger,sasString,chasStringDimmaxasInteger,ssasString'max存儲句子中最長單詞的長度'ss存儲句子中最長的單詞s=Text1.Texti=1:k=0:max=0:ch=""DoWhilech<>"."ori<=len(s)ch=Mid(s,i,1)Ifch<>""andch<>"."Then___________Elsek=0EndifIf____________Thenmax=kss=Mid(s,i-k+1,k)Endifi=i+1LoopText3.Text=ssText2.Text=Str(max)EndSub六、字符串問題（四）字符與統(tǒng)計3k=k+1max>kText1Text2Text3Command1Label23.設計VB程序，輸入一段由字母和標點符合組成的英文句子(以"."為結(jié)束符),統(tǒng)計單詞個數(shù)和單詞平均長度。程序界面如圖所示。為實現(xiàn)上述功能，請在劃線處填入合適的代碼。PrivateSubCommand1_Click()DimsasString,cntasInteger,iasIntegerDimnasInteger,numasSingle,aveasSingles=Text1.Text:n=len(s)num=0:ch=0:cnt=0Fori=1tonc=Mid(s,i,1)If__________________Thencnt=cnt+1Elseifc>="A"andc<="Z"Thencnt=cnt+1ElseIfcnt>0Thennum=num+1ch=ch+cnt___________EndifEndifNextiIfcnt>0Thennum=num+1:ch=ch+cnt_____________Label1.Caption="總共有"+Str(num)+"個單詞，平均長度為"+Str(ave)EndSub六、字符串問題（四）字符與統(tǒng)計c>=“a”andc<=“z”cnt=0ave=ch/num4.密碼強度檢測。編寫VB程序，實現(xiàn)如下功能：在文本框Text1中輸入要檢測的密碼，單擊"檢測"按鈕Command1，則在標簽Label3中輸出檢測結(jié)果.將密碼字符分為數(shù)字、字母和其他符號三類。密碼強度的檢測方法為：若密碼位數(shù)少于8位，則不進行強度檢測，給出提示"密碼位數(shù)不能少于8位,請重新輸入！".若密碼位數(shù)在8位以上，則進行強度檢測；若密碼字符屬于同一類字符，則密碼強度為"弱";若密碼字符屬于不同的二類字符，則密碼強度為"中等"；若密碼字符屬于不同的三類字符，則強度為"強".(1)當前編輯的對象的屬性窗口如圖b所示，則其對象為_____。程序代碼"PrivateSubCommand1_Click()"中"Click"是____（填:對象/方法/事件/事件處理過程。)(2)為實現(xiàn)上述功能,請在程序劃線處填入合適的代碼。PrivateSubCommand1_Click()DimpasswordasString,stasStringDimiasInteger,nasInteger,tj1asInteger,tj2asInteger,tj3asIntegerpassword=Text1.Textn=len(password)If____________ThenLabel3.Caption="密碼位數(shù)不能少于8位，請重新輸入！"Elsetj1=0:tj2=0:tj3=0:i=1DoWhile______________st=Mid(password,i,1)Ifst>="0"andst<="9"Thentj1=1Elseifst>="a"andst<="z"orst>="A"andst<="Z"Thentj2=1Elsetj3=1Endifi=i+1LoopIftj1+tj2+tj3=3ThenLabel3.Caption="強"Elseif__________________ThenLabel3.Caption="中等"ElseLabel3.Caption="弱"EndifEndifEndSub六、字符串問題（四）字符與統(tǒng)計Label3事件n<8i<=ntj1+tj2+tj3=2數(shù)組的定義：.數(shù)組中數(shù)據(jù)累加和統(tǒng)計數(shù)組中最大值（以知識點1數(shù)組為例子）七、數(shù)組

數(shù)組是用于儲存多個相同類型數(shù)據(jù)的集合，由數(shù)組名和下標兩部分構(gòu)成。數(shù)組是程序設計的核心，而數(shù)組下標操作運算則是算法的靈魂。無論是接下來的排序算法，還是查找算法，本質(zhì)上都是對數(shù)組下標進行操作。Dim數(shù)組變量名（A1toA2)as元素的類型變量S用于存儲數(shù)組中所有正數(shù)之和變量c用于存儲數(shù)組中正數(shù)的個數(shù)s=0Fori=1tonIfa(i)>0Thens=s+a(i)EndifNextiC=0Fori=1tonIfa(i)>0Thenc=c+1EndifNexti變量k用于存儲數(shù)組中最大元素的值變量k用于存儲數(shù)組中最大元素的下標k=a(i)Fori=2tonIfa(i)>kThenk=a(i)NextiText1.Text=Str(k)文本框Text1顯示__32___k=1Fori=2tonIfa(i)>a(k)Thenk=iNextiText1.Text=Str(k)文本框Text1顯示__6___數(shù)組a(i)、a(i+1)……a(j)中最大值和最大值下標數(shù)組相鄰元素差值的最大值。④數(shù)組中所有大于key的元素中的最小值。例如a(1),a(2),a(3),a(4),a(5),a(6)的值分別為12，7，9，13，18，2時，所有大于10的元素中最小值為12。七、數(shù)組k=a(i)Fori=i+1tojIfa(I)>kThenk=a(i)Nexti變量k用于存儲數(shù)組中最大元素的值k=iFori=i+1tojIfa(I)>a(k)Thenk=iNexti變量k用于存儲數(shù)組中最大元素的下標k=a(2)-a(1)Fori=3tonIfa(i)-a(i-1)>kThenk=a(i)-a(i-1)Nextiflag=TrueFori=1tonIFa(i)>keyThenIfflagora(i)<minThenmin=a(i):flag=FalseEndifNexti七、數(shù)組（一）數(shù)組選擇題1.有8個數(shù)據(jù)：46,78,12,55,17,9,33,80依次存放在數(shù)組d(1)到d(8)中,k=1程序段如下所示：Fori=2to8Ifd(i)<d(k)Thenk=iEndIFNextiText2.Text=Str(k)程序運行時，單擊命令按鈕Command1,則文本框Text2顯示的是（）A.9B.6C.80D.82.有如下VB程序段Dima(0to10)asIntegern=10Fori=0ton/2a(i)=2*i+1NextiFori=nto6Step-1a(I)=a(n-i)NextiText1.Text=Str(a(n-3))n的值為10,程序執(zhí)行后,Text1中顯示的內(nèi)容是()A.3B.5C.7D.93.有如下VB程序段Fork=1to10f=kmod2Iff=0Thena(k)=0Elsea(k)=1Forj=1tokIff=0Thena(k)=a(k)+1Elsea(k)=a(k)*jNextjNextk執(zhí)行該程序段后，數(shù)組元素a(4)的值為()A.6B.4C.2D.14.有VB編寫的程序如下：Dima(0to9)asInteger,tasLongt=Val(Text1.Text)DoWhilet<>0a(tmod10)=1t=t\10LoopFori=0to9x=x+a(i)NextiText1中輸入的10242048則程序執(zhí)行后x的值為（）A.14B.235C.25D.234√√√√1.數(shù)字個數(shù)統(tǒng)計。編寫VB程序，實現(xiàn)如下功能：在文本框Text1中輸入僅由ASCII碼字符組成的字符串（長度不超過100),單擊"統(tǒng)計"按鈕Command1,在列表框List1中輸出字符串中包含的不同數(shù)字及其相應的個數(shù)，程序運行效果如圖所示。(1)為方便調(diào)試，要讓程序每次運行時文本框Text1中的初始內(nèi)容為"ab12*{}78ab12()778ab34",應修改文本框Text1的_________屬性。(2)實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適代碼。PrivateSubCommand1_Click()Dima(0to9)asInteger'數(shù)組元素a(i)中存儲數(shù)字的個數(shù)DimsasString,chasString,tasIntegerFori=0to9a(i)=0Nextis=Text1.TextFori=1toLen(s)____________Ifch>="0"andch<="9"Thent=Val(ch)__________EndifNextiFori=0to9Ifa(i)<>0ThenList1.additem"數(shù)字："+Str(i)+",共"+_______+”個“NextiEndSub七、數(shù)組（二）數(shù)組與字符處理Textch=Mid(s,i,1)a(t)=a(t)+1Str(a(i))2.對英文字母進行加密的規(guī)則：用26個互不重復的ASCII字符作為密鑰，字母"A"用密鑰中第1個字符代替，字母"B"用密鑰中第2個字符代替，其他字母用類似方法進行加密?，F(xiàn)編寫一個驗證密鑰合法性的程序。在文本框Text1中輸入密鑰，單擊"驗證"按鈕Command1,在文本框Text2中輸出相應的信息.(1)實現(xiàn)驗證功能事件的過程名稱是____________________。(2)為實現(xiàn)上述功能,請在劃線處填入合適代碼。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)______________Ifmy(t)=FalseThenmy(t)=TrueElseText2.Text="密鑰中有重復字符！"ExitSubEndif_____________Text2.Text="密鑰正確！”EndifEndSub七、數(shù)組（二）數(shù)組與字符處理Command1_ClickLen(s)<26t=Asc(ch)Nexti3.小林編寫了一個實現(xiàn)英文句子每個單詞首字母大寫功能的VB程序,運行界面如圖所示。文本框Text1顯示原文內(nèi)容，單擊"首字母大寫"按鈕Command1后，Text2顯示首字母大寫的結(jié)果。實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適的代碼。PrivateSubCommand1_Click()Dima(1to1000)asString,sasString,resultasStrings=Text1.Textn=Len(s)Fori=1tona(i)=Mid(s,i,1)NextiIfa(1)>="a"anda(1)<="z"Then_________________________result=a(1)Fori=2ton-1If______________________and(a(i)<"A"ora(i)>"Z")ThenIfa(i+1)>="a"anda(i+1)<="z"Thena(i+1)=Chr(Asc(a(i+1)-32)Endifresult=result+a(i)Else_____________________EndifNextiText2.Text=result+a(n)EndSub七、數(shù)組（二）數(shù)組與字符處理a(1)=Chr(Asc(a(1))-32(a(i)<“a”ora(i)>“z”result=result+a(i)1.二進制十六進制，從文本框TextB輸入二進制整數(shù)，單擊"轉(zhuǎn)換"按鈕，將二進制轉(zhuǎn)換為十六進制并顯示在文本框TextH中。程序界面如右圖所示：轉(zhuǎn)換方法，先從右往左將二進制分割成4位一組，若最左邊的一組不足4位，則用0將高位補足，然后將每4位二進制轉(zhuǎn)換為1位十六進制數(shù)。(1)觀察程序代碼，"轉(zhuǎn)換"按鈕的對象名為___(A.TextB/B.TextH/C.Command1/D.Convrt/E.轉(zhuǎn)換)(2)為實現(xiàn)上述功能，請在劃線處填入合適的代碼。PrivateSubConvert_Click()Constzf="0123456789ABCDEF"Dima(1to100)asInteger,tempasInteger,sasString,resasString,nasInteger,rasIntegerres="":s=TextB.Text:n=Len(s)Fori=1tona(i)=Val(Mid(s,i,1))Nextit=n\4Ifnmod4=0Thenr=4:t=t-1Else______________temp=0Fori=1tor'將最高的r位轉(zhuǎn)換為十六進制temp=temp*2+a(i)Nextires=Mid(zf,temp+1,1)Fori=1tot'將t組4位二進制轉(zhuǎn)換為十六進制temp=0Forj=1to4temp=temp*2+_______________Nextjres=res+Mid(zf,temp+1,1)NextiTextH.Text=resEndSub(3)若在文本框TextB中輸入"101000111",則單擊"轉(zhuǎn)換"按鈕后的輸出結(jié)果為______________。七、數(shù)組（三）數(shù)組與進制運算Dr=nMod4(r=n-t*4)a(j+r+4*(i-1))1472.編寫VB程序采用逢二進一的方法模擬"寫二進制數(shù)"過程。程序功能如下:在文本框Text1中輸入一個不大于100的數(shù)字n，點擊"寫二進制數(shù)"按鈕，在列表框List1中逐一顯示1到n之間所有的二進制數(shù)。(1)可用右圖中所示"控件工具箱"中的_______(填編號)添加用于列表框。(2)補充代碼PrivateSubCommand1_Click()Dimd(1to7)asInteger'數(shù)組d用于存儲二進制數(shù)值的每一位的值n=Val(Text1.Text)Fori=1to7d(i)=0NextiFori=1ton'最低位加1后，"逢二進一"處理進位，從而產(chǎn)生下一個二進制數(shù)__________d(k)=d(k)+1s=""Fork=1to6IFd(k)=2Thend(k+1)=d(k+1)+1______________Endif_______________NextkList1.AdditemStr(i)+""+str(d(k))+sNextiEndSub七、數(shù)組（三）數(shù)組與進制運算④k=1d(k)=0s=str(d(k))+s3.在計算機系統(tǒng)中，數(shù)值一般用補碼來表示和存儲，補碼由符號位和數(shù)值位兩部分組成，符號位用0表示正數(shù)，用1表示負數(shù)。例如，整數(shù)n(-128<=n<=127)用8位二進制補碼的表示方法為：

正數(shù)：正整數(shù)補碼的數(shù)值即其二進制表示。例：12的8位二進制表示00001100，最高位即符號位“0”表示正數(shù)。負數(shù)：除符號位外，所有位數(shù)取反，然后+1。例：-5的8位二進制補碼表示方法如下，5對應7位二進制數(shù)為0000101（原碼），所有位取反后為1111010（反碼),再加1后為1111011（補碼），再設置符號位為1，因此-5用8位二進制補碼表示為11111011。小明設計了一個VB程序，點擊“補碼”按鈕Command1，將文本框Text1中輸入的整數(shù)n（-128<=n<=127)轉(zhuǎn)換成相應的補碼，并在文本框Text2中輸出，請將劃線處的代碼補充完整。(1)-27用8位二進制補碼表示為____________________(2)請在劃線處填入合適的代碼。七、數(shù)組（三）數(shù)組與進制運算符號位（1位）數(shù)值位(7位）第1位（最高位）第2~8位11100101PrivateSubCommand1_Click()DimnasInteger,aasInteger,iasInteger,m(1to8)asIntegerText2.Text=""n=Val(Text1.Text)Ifn>=0ThenFori=8to2step-1'計算二進制原碼m(i)=nMod2n=n\2Nextim(1)=0Elsen=-nFori=8to2Step-1‘計算二進制反碼m(i)=__________________________n=n\2Nextii=8DoWhilem(i)=1’加1計算_________________________i=i+1Loopm(i)=1m(1)=1'設置符號位EndifFori=1to8Text2.Text=Text2.Text＆m(I)NextiEndSub(n+1)Mod2(或1-nmod2)M(i)=0(或m(i)=m(i)-11.雙重數(shù)列是指兩個數(shù)列交替排在一起而形成的一種數(shù)列律，位于偶數(shù)項的數(shù)字 構(gòu)成另一種規(guī)律，現(xiàn)編寫一個VB程序，實現(xiàn)如下功能：在文本框Text1中輸入項數(shù)n，單擊"求和"Command1按鈕，求出雙重數(shù)列0，2，1，4，1，6，2，8，3，10，5，12，8……前n項中的奇數(shù)項和，顯示在文本框Text2中。程序運行界面如圖所示。(1)代碼"PrivateSubCommand1_Click()"中的Command_Click是__(A.對象名/B.過程名/C.事件名。)(2)實現(xiàn)上述功能的VB程序如下，請在劃線處填入合適的代碼PrivateSubCommand1_Click()DimsasInteger,nasInteger,a(1to100)asIntegern=Val(Text1.Text)a(1)=0:a(3)=1:s=1Fori=5tonStep2_____________s=s+a(i)Nexti________________EndSub(3)運行該程序，在文本框Text1輸入9，運行程序后文本框Text2顯示的是___________。七、數(shù)組（四）數(shù)組及下標運算BA(i)=a(i-2)+a(i-4)Text3.text=str(s)2.小明使用VB編寫了一個按降序排名次的程序（當數(shù)據(jù)相同時，排名相同）。程序運行，隨機產(chǎn)生n個[30,60]之間的隨機數(shù)，并輸出在列表框List1中，單擊"排名"按鈕Command1,在列表框List2中輸出數(shù)據(jù)及其排名，程序運行界面如圖所示。為了實現(xiàn)上述功能，請在劃線處填入合適的代碼。Constn=10Dima(1ton)asInteger,mc(1ton)asIntegerPrivateSubForm_Load()'隨機產(chǎn)生n個[30,60]之間的隨機數(shù)，保存在數(shù)組a中，并輸出到列表框List1,代碼略EndSubPrivateSubCommand1_Click()DimiasInteger,jasInteger,kasIntegerFori=1tonk=0Forj=1tonIf______________Thenk=k+1Nextj_______________NextiFor