[人力資源管理]chap7-數(shù)組-資料下載頁
2025-10-07 17:20本頁面
【正文】 ) [As 數(shù)據(jù)類型 ] 聲明告訴編譯系統(tǒng)數(shù)組名和類型 Dim動態(tài)數(shù)組名 （） [As類型 ］ 建立 運行時建立數(shù)組，分配空間，有多種方法建立它 １、用Ｒ edim語句重新聲明動態(tài)數(shù)組并建立它 ２、用Ａ rray函數(shù)建立可變類型的一維動態(tài)數(shù)組并賦值 ３、通過數(shù)組對數(shù)組的直接賦值建立動態(tài)數(shù)組 4. 數(shù)組的使用 (1) 數(shù)組在定義后被初始化 (2) Erase 數(shù)組名 ? 固定大小數(shù)組使用該語句進行初始化 ? 動態(tài)數(shù)組使用該語句釋放存儲空間 (3) 數(shù)組元素的輸入 : 賦值、 InputBox、 Array函數(shù) (4) 數(shù)組元素的輸出 : Print、 Label、 TextBox等 (5) 保留動態(tài)數(shù)組中的內(nèi)容 : ReDim Preserve 數(shù)組名 (維數(shù)定義 ) 5. 控件數(shù)組 (1) 控件數(shù)組的表示 : 控件數(shù)組名 (索引 ) (2) 控件數(shù)組的建立 a. 將多個控件取相同的名稱 b. 復(fù)制、粘貼現(xiàn)有的控件 c. 給控件設(shè)置一個 Index屬性值 (3) 控件數(shù)組的使用 同一個控件數(shù)組的所有控件共享同一事件過程。 注意使用該過程返回的參數(shù) Index。 作 業(yè) 課后習(xí)題 P153 第 1， 2題 動態(tài)數(shù)組的應(yīng)用 數(shù)組的刪除、插入操作 【 例 1】 刪除數(shù)組中指定位置的元素 ,顯示刪除結(jié)果 分析 : 刪除數(shù)組 A中指定的位置 P的元素，可將 P位置元素之后的所有元素依次向前移動一位 p A(P)=A(P+1) A(P+1)=A(P+2) … A(N1)=A(N) 一、刪除某位置上的數(shù) P后面的數(shù)必須依次往前移一個位置： For i=p To N1 A(i)=A(i+1) Next 此時數(shù)組元素個數(shù)減少一個 ， 重新定義數(shù)組 ，釋放多余的內(nèi)存空間： N=n1 ReDim Preserve A(N) Option Base 1 Dim N As Integer, A() As Integer Private Sub Form_Load() = N = 20 ReDim A(N) For i = 1 To N A(i) = Int(Rnd * 101) = amp。 A(i) amp?！?” Next I End Sub Private Sub Command1_Click() P = Val() For i = P To N 1 A(i) = A(i + 1) Next I N = N 1 ReDim Preserve A(N) = For i= 1 To N = amp。 A(i) amp?！?” Next i End Sub 二、刪除某個數(shù)，位置不知 先將位置 P找出來，然后將 P后面的數(shù)往前移。 For i=1 to n if x=a(i) then p=i Next 【 例 2】 將數(shù) x插在數(shù)組 A中指定的位置 P。 如果 P≤0，則將 x插在第 1個位置 如果 P＞ N，則將 x插在最后一個位置 三、在位置 P插入數(shù) x 1： N=N+1 ReDim Preserve A(N) P后面的數(shù)依次往后移一個位置 ， 以便騰出 P位置： For i=N to P+1 step –1 A(i)=A(i1) Next P位置插入該數(shù)： A(P)=x p x 在窗體的 Load事件過程中生成 20個 0到 100之間的隨機整數(shù)，顯示于文本框 Text1中 : Private Sub Form_Load() = N = 20 ReDim A(N) For i = 1 To N A(i) = Int(Rnd * 101) = amp。 A(i)amp。” ” Next I End Sub 在“通用”位置聲明 : Option Base 1 Dim N As Integer, A() As Integer Private Sub Command1_Click() 39。 插入 = x = Val() P = Val() N = N + 1 ReDim Preserve A(N) For i = N To P + 1 Step 1 A(i) = A(i 1) Next i A(P) = x For i = 1 To N = amp。 A(i) amp。 “ ” Next i End Sub 四、在已排序的數(shù)組中插入某數(shù) P， 先求出 P： For I=1 to n If xa(i) then Exit For Next P=I b. N=N+1 ReDim Preserve A(N) c. 將 P后面的數(shù)依次往后移一個位置 ， 騰出 P位置： For I=N to P+1 step –1 A(I)=A(i1) Next ： A(P)=
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1