第8章數(shù)組的使用-wenkub
2022-10-09 15:42:32 本頁面
【正文】 End Sub 求最大值、最小值和平均值 求最大 、 最小以及平均值由“ 確定 ” 按鈕 Command2 的Click事件代碼完成： Private Sub Command2_Click() Dim n As Integer, m As Integer, s As Single min = 100: max = 10: s = 0 For i = 1 To 10 If a(i) n Then max = a(i) If a(i) m Then min = a(i) s = s + a(i) Next = max = min = s / 10 End Sub “重置”按鈕 Command1的 Click事件代碼： Private Sub Command1_Click() Form_Load = = = End Sub 最后是“關(guān)閉”按鈕 Command3的Click事件代碼： Private Sub Command3_Click() Unload Me End Sub 交換數(shù)組中各元素 交換的要求就是將數(shù)組的第一個元素和最后一個元素交換，第二個元素和倒數(shù)第二個元素交換，依此類推。 s(i) amp。 選擇法排序：對一組數(shù)組中的 n個數(shù)，用選擇法按照遞減的順序排列。只要復(fù)制的目標(biāo)數(shù)組不屬于固定大小的數(shù)組，就可以順利地完成數(shù)組的復(fù)制。語句的形式如下： Dim sa（） [AS 類型 ] …… ReDim sa（下標(biāo) 1[，下標(biāo) 2，下標(biāo) 3……] ） [AS 類型 ] 其中：下標(biāo) I可以是常量，也可以是有了確定值的變量。例如定義一個二維數(shù)組如下 : Dim myarray(1 To 3， 1 To 2) AS Integer 則這個數(shù)組共有（ 31+1） *（ 21+1） =6個元素，這六個元素分別是： myarray（ 1， 1）， myarray（ 1， 2） myarray（ 2， 1）， myarray（ 2， 2） myarray（ 3， 1）， myarray（ 3， 2） 而且這些變量都是整型類型。 j amp。 Chr(13) amp。 Chr(13) amp。 在點擊了“是”按鈕后，在窗體中就會創(chuàng)建一個控件數(shù)組，下面的例子中就是創(chuàng)建一個計算器中數(shù)字鍵和運算符號鍵的控件數(shù)組。 IsArray函數(shù) IsArray函數(shù)是用來判斷一個變量是否屬于數(shù)組， Erase語句 Erase函數(shù)是將某個數(shù)組所占的內(nèi)存空間釋放，歸還給系統(tǒng)。 Private Sub Form_Load() f(0).Visible = True f(0).Caption = 北方工業(yè)大學(xué) For i = 1 To 4 Load f(
教學(xué)課件相關(guān)推薦
鄂ICP備17016276號-1