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

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

二級VisualBasic第八講專題

專題一矩陣1

專題二字符串2專題一——矩陣矩陣行運算求最值對角線元素操作行列交換矩陣轉(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矩陣的行運算39套-5：讀順序文件中的數(shù)據(jù)到二維數(shù)組并按矩陣輸出，輸出第三行的和；17套-5：順序文件讀，矩陣輸出，矩陣行交換（類似47套-5）；73套-5：二維數(shù)組求每行小于50的數(shù)之和以及平均值；70套-5：計算二維數(shù)組中各行的最小數(shù)，并求最小數(shù)的最值（類似63套-4，69套-5，71套-5，74套-5）。矩陣求最值求矩陣中的最大值（或最小）：假定整個矩陣中第一個元素a(1,1)為最大（或最?。?，然后依次訪問矩陣中每個元素，若找到新的最大（或最?。┑脑兀葱薷淖畲螅ɑ蜃钚。┲底兞?，直到矩陣元素訪問結(jié)束。

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

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