全國(guó)計(jì)算機(jī)等級(jí)考試二級(jí)vb復(fù)習(xí)資料與考試要點(diǎn)(參考版)
2025-04-19 23:08本頁(yè)面
【正文】 保存通用對(duì)話框， Open For Output As 1 Print 1, Close 1End Sub朱錦新 第 39 頁(yè) 2022512。 Input 1, a Close 1 = aEnd SubPrivate Sub C2_Click() =Ucase() 39。圖25 運(yùn)行界面已有程序代碼如下：Private Sub C1_Click() Dim a As String = 所有文件|*.*|文本文件|*.txt|Word文件|*.doc = 2 = 1 39。最后把修改后的文件按原文件名存盤。但不能修改程序中的其他部分，也不能修改控件的屬性。該文件中的內(nèi)容顯示在Text1中；“轉(zhuǎn)換”——把Text1中的所有小寫英文字母裝換成大寫；“存盤”——。 綜合例題：(通用對(duì)話框和讀寫文件結(jié)合使用) ，其窗體上有一個(gè)文本框，名稱為Textl，可以多行顯示；有一個(gè)名稱為CD1的通用對(duì)話框；還有三個(gè)命令按鈕，名稱分別為CCC3，標(biāo)題分別“打開文件”、“轉(zhuǎn)換”、“存盤”，如圖25所示。行下標(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 九、文件讀寫操作 字符型讀寫數(shù)據(jù) 見概念分析篇的知識(shí)點(diǎn)12有詳細(xì)說(shuō)明。第一種矩陣算法：（主對(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。*F13iy%p41H，請(qǐng)分別統(tǒng)計(jì)出大寫字母、小寫字母、數(shù)字字符和其他字符的個(gè)數(shù)。*Fiy%41H，輸出字符串中的所有字母，結(jié)果為：AChFiyH。 For i = 1 To n s = s + Mid(,i,1) 39。 space(2) Next i End Sub 七、字符操作 字符串取反 例題：在文本框中輸入一個(gè)字符串，比如：ABCDEFGH，然后反向輸出，結(jié)果為：HGFEDCBA。 space(2) Next iEnd Sub方法1：冒泡排序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 ’從大到?。篴(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。 space(2) Next i End Sub方法2：直接插入排序Private Sub Command1_Click() Dim a(10) As Integer, i As Integer, j As Integer ,temp As Integer Dim Pointer 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輪 Pointer=i For j = i+1 To 10 ’每一輪比較幾次If a(Pointer)a(j) Then Pointer=j Next jIf i Pointer Thentemp=a(i) a(i)=a(j) a(j)=temp End If Next iFor i =1 To 10 = amp。方法1：選擇排序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 = i+1 To 10 ’每一輪比較幾次 If a(i)a(j) Then ’從大到小：a(i)a(j) temp=a(i) a(i)=a(j) a(j)=temp End If Next j Next i For i =1 To 10 = amp。 i amp。 i amp。所謂水仙花數(shù)：即153=1^3+5^3+3^3條件成立。 Private Sub Command1_Click() Dim n As Integer ,i As Integer j As Integer For n = 100 To 200 For i = 2 To n1 ’n1可以是n/2,也可以是Sqr(n)形式 If n Mod i =0 Then Exit For Nex
教學(xué)教案相關(guān)推薦
鄂ICP備17016276號(hào)-1