【正文】 a(j)=a(j+1) a(j+1)=temp End If Next j Next i For i =1 To 10 = amp。 a(i) amp。 space(2) Next i End Sub 七、字符操作 字符串取反 例題：在文本框中輸入一個(gè)字符串，比如：ABCDEFGH，然后反向輸出，結(jié)果為：HGFEDCBA。Private Sub Command1_Click() Dim s As String ,n As Integer ,i As Integer n=Len( ) For i = n To 1 Step1 39。 For i = 1 To n s = s + Mid(,i,1) 39。 s = Mid(,i,1) + s Next i Print sEnd Sub判斷字符串中的某個(gè)字符是否為字母 例題：在文本框中輸入一個(gè)字符串，比如：A$4Champ。*Fiy%41H，輸出字符串中的所有字母，結(jié)果為：AChFiyH。Private Sub Command1_Click() Dim s As String ,n As Integer ,i As Integer ,c As String n=Len( ) For i = 1 To n c=Mid(,i,1)If c = A And c= Z Or c = a And c= z Then s = s + cEnd If Next i Print sEnd Sub統(tǒng)計(jì)每類(lèi)字符的個(gè)數(shù) 例題：在文本框中輸入一個(gè)字符串，比如：A$m4Champ。*F13iy%p41H，請(qǐng)分別統(tǒng)計(jì)出大寫(xiě)字母、小寫(xiě)字母、數(shù)字字符和其他字符的個(gè)數(shù)。Private Sub Command1_Click() Dim n As Integer ,i As Integer ,c As String Dim n1 As Integer ,n2 As Integer ,n3 As Integer ,n4 As Integer n=Len( ) For i = 1 To n c=Mid(,i,1)Select Case c Case A To Z n1 = n1 + 1 Case a To z n2 = n2 + 1 Case 0 To 9 n3 = n3 + 1 Case Else n4 = n4 + 1 End Select Next i Print 大寫(xiě)字母?jìng)€(gè)數(shù)：；n1；小寫(xiě)字母?jìng)€(gè)數(shù)：；n2；數(shù)字字符個(gè)數(shù)：；n3；其他字符個(gè)數(shù)：；n4End Sub 八、矩陣（二維數(shù)組） 四種矩陣的算法：（圖形表示） 圖① 圖② 圖③ 圖④例題：有一個(gè)4行4列二維數(shù)組，現(xiàn)隨機(jī)生成16個(gè)兩位整數(shù)，并將它們存入到二維數(shù)組中，現(xiàn)根據(jù)以上四種圖形分別求主對(duì)角線、副對(duì)角線、外圈數(shù)據(jù)以及內(nèi)圈數(shù)據(jù)之和。第一種矩陣算法：（主對(duì)角線） Private Sub Command1_Click() Dim a(4,4) As Integer ,i As Integer ,j As Integer Dim sum As Integer For i = 1 To 4 For j= 1 To 4 a(i,j) = Int(Rnd*90) + 10 Next j Next i For i = 1 To 4 For j= 1 To 4 If i = j Then 39。行下標(biāo)和列下標(biāo)相同 sum = sum + a(i,j) End If Next j Next i Print 主對(duì)角線數(shù)據(jù)之和；sum End Sub 第二種矩陣算法：（副對(duì)角線） Private Sub Command1_Click() Dim a(4,4) As Integer ,i As Integer ,j As Integer Dim sum As Integer For i = 1 To 4 For j= 1 To 4 a(i,j) = Int(Rnd*90) + 10 Next j Next i For i = 1 To 4 For j= 1 To 4 If i + j = 5 Then 39。行下標(biāo)和列下標(biāo)之和是一個(gè)定數(shù) sum = sum + a(i,j) End If Next j Next i Print 副對(duì)角線數(shù)據(jù)之和；sum End Sub 第三種矩陣算法：（外圈數(shù)據(jù)） Private Sub Command1_Click() Dim a(4,4) As Integer ,i As Integer ,j As Integer Dim sum As Integer For i = 1 To 4 For j= 1 To 4 a(i,j) = Int(Rnd*90) + 10 Next j Next i For i = 1 To 4 For j= 1 To 4 If i =1 Or i = 4 Then sum = sum + a(i,j) ElseIf j =1 Or j = 4 Then sum = sum + a(i,j) End If Next j Next i Print 外圍數(shù)據(jù)之和；sum End Sub第三種矩陣算法：（外圈數(shù)據(jù)） Private Sub Command1_Click() Dim a(4,4) As Integer ,i As Integer ,j As Integer Dim sum1 As Integer，sum2 As Integer ,sum As Integer For i = 1 To 4 For j= 1 To 4 a(i,j) = Int(Rnd*90) + 10 Next j Next i For i = 1 To 4 For j= 1 To 4 If i =1 Or i = 4 Then sum1 = sum + a(i,j) ElseIf j =1 Or j = 4 Then sum1 = sum + a(i,j) End If sum = sum + a(i,j) Next j Next i Print 內(nèi)圍數(shù)據(jù)之和；sumsum1 End Sub 九、文件讀寫(xiě)操作 字符型讀寫(xiě)數(shù)據(jù) 見(jiàn)概念分析篇的知識(shí)點(diǎn)12有詳細(xì)說(shuō)明。 數(shù)值型讀寫(xiě)數(shù)據(jù) 見(jiàn)概念分析篇的知識(shí)點(diǎn)12有詳細(xì)說(shuō)明。 綜合例題：(通用對(duì)話框和讀寫(xiě)文件結(jié)合使用) ，其窗體上有一個(gè)文本框，名稱(chēng)為T(mén)extl，可以多行顯示；有一個(gè)名稱(chēng)為CD1的通用對(duì)話框；還有三個(gè)命令按鈕，名稱(chēng)分別為CCC3，標(biāo)題分別“打開(kāi)文件”、“轉(zhuǎn)換”、“存盤(pán)”，如圖25所示。命令按鈕的功能是：“打開(kāi)文件”——彈出打開(kāi)文件對(duì)話框，默認(rèn)打開(kāi)文件的類(lèi)型“文本文件”。，該文件中的內(nèi)容顯示在Text1中；“轉(zhuǎn)換”——把Text1中的所有小寫(xiě)英文字母裝換成大寫(xiě)；“存盤(pán)”——。在窗體中已經(jīng)給出了部分程序，要求：1) 請(qǐng)去掉程序中的注釋符，把程序中的 ？ 改為正確的內(nèi)容。但不能修改程序中的其他部分，也不能修改控件的屬性。2) 編寫(xiě)“轉(zhuǎn)換”按鈕的Click事件過(guò)程。最后把修改后的文件按原文件名存盤(pán)。注意：不得修改已有的程序和控件的屬性，并把轉(zhuǎn)換結(jié)果通過(guò)“存盤(pán)”。圖25 運(yùn)行界面已有程序代碼如下：Private Sub C1_Click() Dim a As String = 所有文件|*.*|文本文件|*.txt|Word文件|*.doc = 2 = 1 39。打開(kāi)通用對(duì)話框， Open For Input As 1 39。 Input 1, a Close 1 = aEnd SubPrivate Sub C2_Click() =Ucase() 39。小寫(xiě)字母轉(zhuǎn)換成大寫(xiě)字母的過(guò)程End SubPrivate Sub C3_Click() = = 2 39。保存通用對(duì)話框， Open For Output As 1 Print 1, Close 1End Sub朱錦新 第 39 頁(yè) 20225