vb編程技術(shù)數(shù)組-文庫(kù)吧資料
2024-12-14 02:57本頁(yè)面
【正文】 組變量的使用 ， 也具有如下特點(diǎn)： (1) 相同的名稱 (Name)。 Format(a(i, i), !) amp。 第 7章 數(shù)組 For j = 2 To i 1 a(i, j) = a(i 1, j 1) + a(i 1, j) Print Format(a(i, j), !)。 Format(a(i, 1), !) amp。 Format(1, !) amp。 Format(1, !) amp。 Format(1, !) amp。 分配動(dòng)態(tài)數(shù)組實(shí)際的元素個(gè)數(shù) For i = 1 To n a(i, 1) = 1: a(i, i) = 1 39。 消息框 Exit Sub 39。 在文本框中輸入的行數(shù) If n 10 Then 39。 在模塊的通用段聲明一個(gè)動(dòng)態(tài)數(shù)組： Dim a( ) 為了能輸入行數(shù)并按回車鍵后可以得到各項(xiàng) ， 編寫文本框 Text1的按鍵 (KeyPress)事件代碼為 第 7章 數(shù)組 圖 楊輝三角形 第 7章 數(shù)組 Private Sub Text1_KeyPress(KeyAscii As Integer) Dim n As Integer If KeyAscii = 13 Then 39。 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性 ， 參見圖 。 跳出本過(guò)程 End If Next i MsgBox 查無(wú)此人 ！ , vbOKOnly, 抱歉 End Sub 第 7章 數(shù)組 “結(jié)束 ” 命令按鈕 Command3的 Click事件代碼為 Private Sub Command3_Click() Unload Me 1 1 1 1 2 1 1 3 3 1 1 4 6 4 1 圖 楊輝三角形 End Sub 程序運(yùn)行結(jié)果同例 74。 Str(i + 1) amp。 使程序開始時(shí) ， 光標(biāo) (焦點(diǎn) )位于輸入框 Text1中 i = i + 1 ReDim Preserve a(7, i) 39。 在通用段聲明數(shù)組： Dim a( ) As Variant 39。 建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性 ， 如例 74所示 。 格式為 ReDim [ Preserve ] 數(shù)組名 (〈 維數(shù)定義 〉 ) [ As〈 類型 〉 ] 第 7章 數(shù)組 保留動(dòng)態(tài)數(shù)組的內(nèi)容 有時(shí)希望改變數(shù)組大小而又不丟失數(shù)組中的數(shù)據(jù) ，這時(shí)可以使用具有 Preserve關(guān)鍵字的 ReDim語(yǔ)句 。 第 7章 數(shù)組 圖 兩矩陣相加運(yùn)行結(jié)果 第 7章 數(shù)組 動(dòng) 態(tài) 數(shù) 組 創(chuàng)建動(dòng)態(tài)數(shù)組的方法 創(chuàng)建動(dòng)態(tài)數(shù)組的步驟如下： ① 聲明一個(gè)未指明大小及維數(shù)的數(shù)組 。 換行 Next End Sub 運(yùn)行程序 ， 單擊 “ 重置 ” 按鈕產(chǎn)生原始數(shù)據(jù) ， 單擊 “ 計(jì)算 ” 按鈕得到相加結(jié)果 。 39。 清空 = 80 39。 換行 Next End Sub 第 7章 數(shù)組 “計(jì)算 ” 按鈕 Command2的 Click事件代碼為 Private Sub Command2_Click() Dim c(5, 3) As Integer For i = 1 To 5 For j = 1 To 3 c(i, j) = a(i, j) + b(i, j) 39。 39。 控制輸出位置 For n = 1 To 5 第 7章 數(shù)組 For m = 1 To 3 Format(a(n, m), “”)。 產(chǎn)生隨機(jī)數(shù) 第 7章 數(shù)組 Next Next : : 39。 控制矩陣列數(shù) x = Int(Rnd * 100): a(n, m) = Val(x) 39。 在 “ 通用 ” 段聲明數(shù)組： Dim a(5, 3) As Integer, b(5, 3) As Integer “重置 ” 按鈕 Command1的 Click事件代碼為 Private Sub Command1_Click() For n = 1 To 5 39。 設(shè)置對(duì)象屬性如圖 所示 。 設(shè)計(jì)步驟如下： (1) 設(shè)計(jì)程序界面和設(shè)置對(duì)象屬性 。 第 7章 數(shù)組 圖 輸入和查詢個(gè)人情況 第 7章 數(shù)組 【 例 75】 矩陣的加法運(yùn)算 。 跳出本過(guò)程 第 7章 數(shù)組 End If Next i MsgBox 查無(wú)此人 ！ , vbOKOnly, 抱歉 39。 確定輸入姓名存在 = a(i, 2) 39。 數(shù)據(jù)輸入 a(i, 2) = a(i, 3) = a(i, 4) = a(i, 5) = a(i, 6) = 第 7章 數(shù)組 num = i = 39。 Str(i + 1) amp。 用 Static聲明 ， 只重設(shè) 0一次 ， 其值可保留到下次過(guò)程調(diào)用 39。在通用段聲明數(shù)組： 第 7章 數(shù)組 圖 建立用戶界面和設(shè)置對(duì)象屬性 第 7章 數(shù)組 Dim a(10, 6) As Variant 39。 設(shè)計(jì)步驟如下： (1) 建立應(yīng)用程序用戶界面并設(shè)置對(duì)象屬性，如圖。 Next i = False End Sub 程序運(yùn)行結(jié)果如圖 。 輸出排序后的結(jié)果 = amp。 進(jìn)行排序 For j = i + 1 To 10 If a(j) a(i) Then t = a(i) 39。 a(i) amp。 “ 排序 ” 命令按鈕 Command1的Click事件代碼為 Private Sub Command1_Click() Dim a(1 To 10) As Single Randomize 第 7章 數(shù)組 圖 選擇排序法示意圖 第 7章 數(shù)組 For i = 1 To 10 39。 設(shè)計(jì)步驟如下： (1) 建立用戶界面并設(shè)置對(duì)象屬性 ， 如圖 。 End If Next j End Sub 程序運(yùn)行結(jié)果如圖 。 = amp。 輸出字母及其出現(xiàn)的次數(shù) 第 7章 數(shù)組 If a(j) 0 Then = amp。 將 A～ Z大寫字母轉(zhuǎn)換成 1～ 26的下標(biāo) a(j) = a(j) + 1 39。 求字符串的長(zhǎng)度 For i = 1 To tot c = UCase(Mid(Text1, i, 1)) 39。 第 7章 數(shù)組 圖 建立用戶界面和程序運(yùn)行結(jié)果 第 7章 數(shù)組 (2) 編寫事件代碼。 第 7章 數(shù)組 圖 依次輸入學(xué)生成績(jī)和統(tǒng)計(jì)結(jié)果 第 7
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號(hào)-1