【導(dǎo)讀】VisualBasic應(yīng)用程序可以以解釋方式執(zhí)行和編譯方式執(zhí)行。A．在工程資源管理器窗口中只能包含一個(gè)工程文件及屬于該工程的其他文件。B．以.bas為擴(kuò)展名的文件是標(biāo)準(zhǔn)模塊文件。C．窗體文件包含該窗體及其控件的屬性。A．打開(kāi)一個(gè)工程文件時(shí)，系統(tǒng)自動(dòng)裝入與該工程有關(guān)的窗體、標(biāo)準(zhǔn)模塊等文件。B．保存VisualBasic程序時(shí)，應(yīng)分別保存窗體文件及工程文件。D．事件可以由用戶引發(fā)，也可以由系統(tǒng)引發(fā)。窗體和各種控件的名稱是唯一的，用來(lái)標(biāo)識(shí)一個(gè)窗體或控件的。件的標(biāo)題是用來(lái)說(shuō)明的，是可有可無(wú)的。窗口中設(shè)置，但也有少數(shù)屬性只能在代碼狀態(tài)設(shè)置。中；第二個(gè)方法窗體消失并不存在于內(nèi)存中。B．窗體的Name屬性的值是顯示在窗體標(biāo)題欄中的文本。C．可以在運(yùn)行期間改變對(duì)象的Name屬性的值。A．VisualBasic是事件驅(qū)動(dòng)型可視化編輯工具。B．VisualBasic應(yīng)用程序不具有明顯的開(kāi)始和結(jié)束語(yǔ)句。變；AutoSize屬性值為False時(shí)，表示圖片框只能部分顯示大圖片。

　　

【正文】 d1_Click() Dim a(10) As Integer, i As Integer, j As Integer ,temp As Integer Dim Pointer As Integer For i= 1 To 10 “全國(guó)計(jì)算機(jī) 等級(jí)考試”考試要點(diǎn) 【考試大會(huì)員中心】 為您提供 計(jì)算機(jī)類、外語(yǔ)類、資格類、學(xué)歷類，會(huì)計(jì)類、建筑類、醫(yī)學(xué)類、外貿(mào)類及公務(wù)員九大類 免費(fèi)在線題庫(kù)及專家答疑 a(i)=Int(Rnd*90)+10 ?產(chǎn)生 10—99 之間的隨機(jī)整數(shù) Next i For i= 1 To 9 ?比較 n1 輪 Pointer=i For j = i+1 To 10 ?每一輪比較幾次 If a(Pointer)a(j) Then Pointer=j Next j If i Pointer Then temp=a(i) a(i)=a(Pointer) a(Pointer)=temp End If Next i For i =1 To 10 = amp。 a(i) amp。 space(2) Next i End Sub 方法 3：冒泡排序 Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, j As Integer ,temp As Integer For i= 1 To 10 a(i)=Int(Rnd*90)+10 ?產(chǎn)生 10—99 之間的隨機(jī)整數(shù) Next i For i= 1 To 9 ?比較 n1 輪 For j = 1 To 10i ?每一輪比較幾次 If a(j)a(j+1) Then ?從大到?。?a(i)a(j) temp=a(j) 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( ) “全國(guó)計(jì)算機(jī) 等級(jí)考試”考試要點(diǎn) 【考試大會(huì)員中心】 為您提供 計(jì)算機(jī)類、外語(yǔ)類、資格類、學(xué)歷類，會(huì)計(jì)類、建筑類、醫(yī)學(xué)類、外貿(mào)類及公務(wù)員九大類 免費(fèi)在線題庫(kù)及專家答疑 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 s End 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 + c End If Next i Print s End Sub 統(tǒng)計(jì)每類字符的個(gè)數(shù) 例題：在文本框中輸入一個(gè)字符串，比如： A$m4Champ。*F13iy%p41H，請(qǐng)分別統(tǒng)計(jì)出大寫字母、小寫字母、數(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 大寫字母?jìng)€(gè)數(shù)： ； n1； 小寫字母?jìng)€(gè)數(shù)： ； n2； 數(shù)字字符個(gè)數(shù)： ；n3； 其他字符個(gè)數(shù)： ； n4 End Sub 八、矩陣 (二維數(shù)組 ) “全國(guó)計(jì)算機(jī) 等級(jí)考試”考試要點(diǎn) 【考試大會(huì)員中心】 為您提供 計(jì)算機(jī)類、外語(yǔ)類、資格類、學(xué)歷類，會(huì)計(jì)類、建筑類、醫(yī)學(xué)類、外貿(mào)類及公務(wù)員九大類 免費(fèi)在線題庫(kù)及專家答疑 四種矩陣的算法： (圖形表示 ) 圖 ① 圖 ② 圖 ③ 圖 ④ 例題：有一個(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 對(duì)比圖 “全國(guó)計(jì)算機(jī) 等級(jí)考試”考試要點(diǎn) 【考試大會(huì)員中心】 為您提供 計(jì)算機(jī)類、外語(yǔ)類、資格類、學(xué)歷類，會(huì)計(jì)類、建筑類、醫(yī)學(xué)類、外貿(mào)類及公務(wù)員九大類 免費(fèi)在線題庫(kù)及專家答疑 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 sum1 = sum1 + a(i,j) Elseif j =1 Or j = 4 Then sum1 = sum1 + a(i,j) End if Next j Next i Print 外圍數(shù)據(jù)之和 ； sum End Sub 第 四 種矩陣算法： (內(nèi) 圈數(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 “全國(guó)計(jì)算機(jī) 等級(jí)考試”考試要點(diǎn) 【考試大會(huì)員中心】 為您提供 計(jì)算機(jī)類、外語(yǔ)類、資格類、學(xué)歷類，會(huì)計(jì)