二級(jí)VB考試系統(tǒng)第8次課矩陣和字符串專(zhuān)題124學(xué)時(shí)課件

2010年9月等級(jí)考試輔導(dǎo)

二級(jí)VisualBasic第八講專(zhuān)題

專(zhuān)題一矩陣1

專(zhuān)題二字符串2專(zhuān)題一——矩陣矩陣行運(yùn)算求最值對(duì)角線元素操作行列交換矩陣轉(zhuǎn)置矩陣的輸入和輸出For雙重循環(huán)Open"\in5.dat"ForInputAs#1Fori=1To20Forj=1To5

Input#1,a(i,j)

Text1=Text1+Str(a(i,j))+Space(2)NextjText1=Text1+Chr(13)+Chr(10)NextiClose#1Open"in5.dat"ForInputAs#1Fori=1To20Forj=1To5

Input#1,a(i,j)

Text1=Text1+Str(a(i,j))+Space(2)Nextj

Text1=Text1+Chr(13)+Chr(10)NextiClose#1矩陣的行運(yùn)算39套-5：讀順序文件中的數(shù)據(jù)到二維數(shù)組并按矩陣輸出，輸出第三行的和；17套-5：順序文件讀，矩陣輸出，矩陣行交換（類(lèi)似47套-5）；73套-5：二維數(shù)組求每行小于50的數(shù)之和以及平均值；70套-5：計(jì)算二維數(shù)組中各行的最小數(shù)，并求最小數(shù)的最值（類(lèi)似63套-4，69套-5，71套-5，74套-5）。矩陣求最值求矩陣中的最大值（或最?。杭俣ㄕ麄€(gè)矩陣中第一個(gè)元素a(1,1)為最大（或最?。?，然后依次訪問(wèn)矩陣中每個(gè)元素，若找到新的最大（或最小）的元素，即修改最大（或最?。┲底兞浚钡骄仃囋卦L問(wèn)結(jié)束。

上機(jī)教程P159-真題12.1【例】捷成36-5有一個(gè)名為datain.txt的文本文件，其內(nèi)容為：324376281298573142536475869713243546576879805937程序運(yùn)行后，單擊窗體，將把文件datain.txt中的數(shù)組輸入到二維數(shù)組Mat中，在窗體上按5行、5列的矩陣形式顯示出來(lái)，并輸出矩陣左上-右下對(duì)角線上的數(shù)據(jù)，如下圖所示。上機(jī)教程P161-真題12.2【例】捷成46-5其功能是，找出矩陣元素的最大值，并求出矩陣對(duì)角線元素之和，窗體外觀如圖所示。程序運(yùn)行時(shí)，矩陣數(shù)據(jù)被放入二維數(shù)組a中。當(dāng)單擊“找矩陣元素最大值”命令按鈕時(shí)，找出矩陣中最大的數(shù)，并顯示在標(biāo)簽Label3中。當(dāng)單擊“對(duì)角線元素之和”命令按鈕時(shí)，計(jì)算矩陣主對(duì)角線元素之和，并顯示在標(biāo)簽Label4中。題型一：大小寫(xiě)轉(zhuǎn)換題型二：?jiǎn)卧~的操作題型三：統(tǒng)計(jì)某些字母的個(gè)數(shù)題型四：替換題型五：加密解密題型六：反向顯示題型七：字符刪除專(zhuān)題二——字符串題型一：大小寫(xiě)轉(zhuǎn)換[上機(jī)教程P175-真題13.1]捷成1-4運(yùn)行時(shí)，在Text1中輸入若干個(gè)大寫(xiě)和小寫(xiě)字母，并選中一個(gè)單選按鈕，再單擊“轉(zhuǎn)換”按鈕，則按選中的單選按鈕的標(biāo)題進(jìn)行轉(zhuǎn)換，結(jié)果放入Text2（如圖所示）。題型二：?jiǎn)卧~的操作判斷單詞的關(guān)鍵在于判斷空格，因?yàn)閱卧~與單詞之間用空格隔開(kāi)。題型二：?jiǎn)卧~的操作[上機(jī)教程P178-真題13.3]捷成13-3程序運(yùn)行后，在文本框中輸入一個(gè)英文句子（由多個(gè)單詞組成，各單詞之間僅用一個(gè)空格分開(kāi)），然后單擊命令按鈕，程序?qū)言撚⑽木渥臃纸鉃閱卧~，并把每個(gè)單詞作為一個(gè)項(xiàng)目添加到列表框中，如圖所示。題型三統(tǒng)計(jì)某些字母的個(gè)數(shù)[上機(jī)教程P181-真題13.5]捷成48-5方法：利用字符ASCII碼的特點(diǎn)，將字符“a”、“b”…出現(xiàn)次數(shù)順序存放在數(shù)組中，然后在數(shù)組中找“特定值”位置，并由位置確定該字母統(tǒng)計(jì)in5.dat文件中所含各字母（不區(qū)分大小寫(xiě)）的出現(xiàn)的次數(shù)，并將出現(xiàn)次數(shù)最多的字母顯示在Text1文本框內(nèi)，它所出現(xiàn)的次數(shù)顯示在Text2文本框內(nèi)。題型三統(tǒng)計(jì)某些字母的個(gè)數(shù)捷成56-5在Text1文本框中選中內(nèi)容后，單擊“統(tǒng)計(jì)”按鈕，則統(tǒng)計(jì)選中文本中出現(xiàn)次數(shù)最多的字母（不區(qū)分大小寫(xiě)），以大寫(xiě)形式在Text2文本框內(nèi)顯示這些出現(xiàn)次數(shù)最多的字母。題型四替換首先是找到要被替換的字母，在該條件下進(jìn)行替換，由于是替換，所以一般需要用一個(gè)變量做連接，如不是被替換的字符，就直接連接，如果是替換的字符就連接替換字符，最后把該變量的值賦值給文本框顯示出現(xiàn)。題型五：加密解密加密操作主要是將有意義的字句根據(jù)某種規(guī)則（一般是用其他字母代替）變成無(wú)意義的字句，所以一般的操作是取出每個(gè)字符按規(guī)則進(jìn)行轉(zhuǎn)換，再把轉(zhuǎn)換后的連接起來(lái)作為加密后的字符串。而解密是加密操作的逆運(yùn)算。捷成79-5加密規(guī)則：對(duì)于第奇數(shù)個(gè)字符，若是字母，則把它變?yōu)樗竺娴淖址ㄈ魹椤甖’則變?yōu)椤瓵’），不是字母則不變；對(duì)于第偶數(shù)個(gè)字符，若是字母，則把它變?yōu)樗懊娴淖址ㄈ魹椤瓵’則變?yōu)椤甖’），不是字母則不變。大小寫(xiě)字母都遵循此規(guī)則。題型六：反向顯示將字符串倒序連接，方法類(lèi)似于判定回文。25套-5：判斷回文，寫(xiě)函數(shù)提示：刪除字符其實(shí)就是字符的查找，也需要一個(gè)字符一個(gè)字符的取出來(lái)進(jìn)行判斷，如果是需要?jiǎng)h除的字符，就不進(jìn)行連接，否則就連接到字符串變量中題型七：刪除字符筆試真題出現(xiàn)的字符串操作題1.下面程序運(yùn)行時(shí)，若輸入“VisualBasicProgramming”，則在窗體上輸出的是____。（2010年3月選擇題35題）PrivateSubComand1_Click()Dimcount(25)AsInteger,chAsStringch=Ucase(InputBox("請(qǐng)輸入字母字符串"))Fork=1ToLen(ch)n=Asc(Mid(ch,k,1))-Asc("A")Ifn>=0Thencount(n)=count(n)+1EndIfNextkm=count(0)Fork=1To25Ifm<count(k)Thenm=count(k)EndIfNextkPrintmEndSub(A)0(B)1(C)2(D)3OptionBase1PrivateSubcode(a()AsInteger,mystrAsString)DimchAsString,c1AsStringn=UBound(a)-Len(mystr)Ifn>0Thenmystr=mystr&String$(n,"*")EndIfch=mystrFork=【1】ToUBound(a)c1=Mid(mystr,k,1)n=【2】Mid$(ch,n)=c1Nextkmystr=chEndSub4.設(shè)窗體上有一個(gè)文本框Text1和一個(gè)命令按鈕Command1，并有以下事件過(guò)程：（2008年4月選擇題33題）PrivateSubCommand1_Click()DimsAsString,chAsStrings=""Fork=1ToLen(Text1)ch=Mid(Text1,k,1)s=ch+sNextkText1.Text=sEndSub程序執(zhí)行時(shí)，在文本框中輸入“Basic”，然后單擊命令按鈕，則Text1中顯示的是

。（A）Basic（B）cisaB（C）BASIC（D）CISAB5.在窗體上畫(huà)一個(gè)命令按鈕和一個(gè)文本框，然后編寫(xiě)命令按鈕的Click事件過(guò)程。程序運(yùn)行后，在文本框中輸入一串英文字母（不區(qū)分大小寫(xiě)），單擊命令按鈕，程序可找出未在文本框中輸入的其他所有英文字母，并以大寫(xiě)方式降序顯示到Text1中。例如，若在Text1中輸入的是abDfdb，則單擊Command1按鈕后Text1中顯示的字符串是ZYXWVUTSRQPONMLKJIHGEC。請(qǐng)?zhí)羁铡＃?005年9月填空題7題）PrivateSubCommand1_Click()DimstrAsString,sAsString,cAsStringstr=UCase(Text1)s=""c="Z"Whilec>="A"IfInStr(str,c