2011年9月二級VB等級考試輔導(dǎo)第10次課

1、2011年9月等級考試輔導(dǎo) 二級Visual Basic1第十講 專題 專題一 矩陣1 專題二 過程2 專題三 字符串3 專題四 文件4專題一矩陣 對角線元素操作2 矩陣轉(zhuǎn)置4 行（列）交換33 求最值31矩陣將N行M列數(shù)據(jù)集合稱為矩陣，對矩陣的定義方法是用二維數(shù)組實(shí)現(xiàn)。 例如： Dim a(1 to 4,1 to 5) as Integer 二維數(shù)組定義后，第一維表示矩陣的行，第二維表示列。 矩陣求最值求矩陣中的最大值（或最?。?假定整個(gè)矩陣中第一個(gè)元素a(1,1)為最大（或最?。?，然后依次訪問矩陣中每個(gè)元素，若找到新的最大（或最?。┑脑兀葱薷淖畲螅ɑ蜃钚。┲底兞?，直到矩陣元素訪問結(jié)束

2、。 上機(jī)真題【例9.1】捷成46-5上機(jī)真題09年47-5對角線元素只有行、列數(shù)相同的矩陣（即方陣）才有對角線元素，矩陣對角線分主對角線和副對角線。 主對角線元素：a(1,1)、a(2,2)、a(i,i）、 a(N,N)，左上-右下元素，即元素行、列下 標(biāo)相同； 副對角線元素：a(1,N)、a(2,N - 1)、a(i,N - i + 1）a(N,1)，右上-左下元素即第1行最后一個(gè)、第2行倒數(shù)第2個(gè)第i行倒數(shù)第i個(gè)元素。上機(jī)真題【例9.2】捷成36-5行（列）交換交換兩行方法：兩行對應(yīng)位置元素交換，即用一個(gè)循環(huán)實(shí)現(xiàn)列下標(biāo)取值（列最小下標(biāo) to 列最大下標(biāo)），順序訪問到兩行中的對應(yīng)元素，并及時(shí)

3、進(jìn)行數(shù)據(jù)交換。上機(jī)真題【例9.3】捷成47-5題型一：大小寫轉(zhuǎn)換 題型二：單詞的操作 題型三：統(tǒng)計(jì)某些字母的個(gè)數(shù)題型四：替換題型五：加密解密題型六：反向顯示題型七：字符刪除專題三字符串題型一：大小寫轉(zhuǎn)換 字符串操作函數(shù)LCase、UCaseMid(s$,p,n)LenAsc、Chr常出現(xiàn)在字符串操作中，如取從A Z所有字符。For i = 1 To 26 Text1.Text = Text1.Text & Chr(Asc(A) - 1 + i)Next i題型一：大小寫轉(zhuǎn)換 例9.6捷成1-4方法一：使用LCase、UCase函數(shù)方法二：利用字符ASCII編碼特點(diǎn) 大小寫ASCII碼差值：As

4、c(“A”)-Asc(“a”)題型二：單詞的操作 判斷單詞的關(guān)鍵在于判斷空格，因?yàn)閱卧~與單詞之間用空格隔開，這里通常是沒有標(biāo)點(diǎn)符號題型二：單詞的操作 捷成13-3題型二：單詞的操作 捷成51-5提醒：單詞操作需注意最后一個(gè)單詞的處理題型三 統(tǒng)計(jì)某些字母的個(gè)數(shù)捷成48-5方法：利用字符ASCII碼的特點(diǎn)，將字符“a”、“b”出現(xiàn)次數(shù)順序存放在數(shù)組中，然后在數(shù)組中找“特定值”位置，并由位置確定該字母題型三 統(tǒng)計(jì)某些字母的個(gè)數(shù)捷成56-5捷成6-5題型四 替換首先是找到要被替換的字母，在該條件下進(jìn)行替換，由于是替換，所以一般需要用一個(gè)變量做連接，如不是被替換的字符，就直接連接，如果是替換的字符就連接

5、替換字符，最后把該變量的值賦值給文本框顯示出現(xiàn)。 題型五：加密解密加密操作主要是將有意義的字句根據(jù)某種規(guī)則（一般是用其他字母代替）變成無意義的字句，所以一般的操作是取出每個(gè)字符按規(guī)則進(jìn)行轉(zhuǎn)換，再把轉(zhuǎn)換后的連接起來作為加密后的字符串。而解密是加密操作的逆運(yùn)算。捷成35-4題型六：反向顯示將字符串倒序連接， 方法類似于判定回文。用交換的方法怎么實(shí)現(xiàn)？提示：刪除字符其實(shí)就是字符的查找，也需要一個(gè)字符一個(gè)字符的取出來進(jìn)行判斷，如果是需要?jiǎng)h除的字符，就不進(jìn)行連接，否則就連接到字符串變量中 題型七：刪除字符過程調(diào)用函數(shù)過程調(diào)用：只能作為表達(dá)式 格式：函數(shù)過程名（實(shí)參表）與系統(tǒng)函數(shù)使用方法一致 Sub過程的

6、調(diào)用：為一條獨(dú)立語句格式：Call 過程名（實(shí)參表）過程名 實(shí)參表專題二過程專題二 過程編寫函數(shù)Item（A,N）功能是由數(shù)字A組成的不多于N位數(shù)的整數(shù)，并利用該整數(shù)求8+88+888+8888怎么改成Sub過程？判斷素?cái)?shù)的過程Private Function isprime(a As Integer) As Boolean Dim flag As Boolean flag = True b% = 2 Do While b% = Int(a / 2) And flag If Int(a / b%) = a / b% Then flag = False Else b% = b% + 1 End

7、If Loop isprime = flagEnd Function怎么調(diào)用？上機(jī)真題【例9.5】捷成43-5專題四文件順序文件隨機(jī)文件順序文件打開、關(guān)閉讀寫Open “文件名” For Input /Output/Append As #1closePrint #1,要寫的內(nèi)容Write #1,要寫的內(nèi)容Input #文件號，變量表Line Input #文件號，字符串變量Input$（n，#文件號）Input #文件號，變量表數(shù)值數(shù)據(jù)：以空格或換行符為一個(gè)數(shù)讀取結(jié)束字符串：以“，”或換行符作為讀取結(jié)束把文件中的一個(gè)數(shù)據(jù)讀入捷成2-5把文件中的多個(gè)數(shù)據(jù)讀入一個(gè)數(shù)組中捷成15-5把文件中的多個(gè)數(shù)

8、據(jù)讀入一個(gè)數(shù)組中捷成54-5把文件中的數(shù)據(jù)讀到一個(gè)二維數(shù)組中67-5把文件中的字符串讀入到文本框中捷成44-5把文件中的字符串讀入到文本框中捷成52-5自定義數(shù)據(jù)類型Private Type StudentInfo Name As String * 8 Tel As LongEnd Type隨機(jī)文件定義數(shù)據(jù)類型。（隨機(jī)文件的讀寫與自定義數(shù)據(jù)類型相關(guān)，一般在讀寫之前都有自定義數(shù)據(jù)類型的聲明）打開隨機(jī)文件將內(nèi)存中的數(shù)據(jù)寫入磁盤關(guān)閉文件隨機(jī)文件Open “文件名“ For Random As 文件號 Len=記錄長度Put #1，3，a變量a的值作為第三個(gè)記錄被寫入文件 Get #1，3，a從文件中讀取第三條記錄由