C
|
46.
|
Module Module1
Sub
Main()
REM 程式由此開始執行
 Dim data() As
Integer = {1, 3, 5, 7, 9}
Dim
num1, num2 As Integer
num1
= data.Length ‘ 陣列元素個數
num2
= data(4)
num2
= Processing(data, num1)
End
Sub
Function
Processing( ByRef data() As Integer, ByVal num1 As Integer)
data(1) = data(1) ^ 2 = 3^2 = 9
num1
= data(3)=7
Processing
= (num1 + data(1)) = 9 + 7= 16
End
Function
End Module
 |
ByRef data() :傳址呼叫 ByVal num1 :傳值呼叫 |
|
註:與陣列相關的函數: UBound ( 陣列名稱 ):陣列註標上限 Array.Sort (陣列名稱):將陣列中的資料遞增( 小到大 )排序 Array.Reverse (陣列名稱):將陣列中的資料反轉 ( 1,3,5,7,9 à 9,7,5,3,1 )
|
沒有留言:
張貼留言