如果存在如下過程: Private Function Fun(a() As Integer) Dim First As Integer, Last As Int
如果存在如下過程:
Private Function Fun(a() As Integer)
Dim First As Integer, Last As Integer, i As Integer
First=LBound(a)
Last=UBound(a)
Max=a(First)
For i=First To Last
If a(i) > Max Then Max=a(i)
Next
Fun=Max
End Function
在窗體上添加一個命令按鈕,然后編寫如下事件過程:
Private Sub Command1_Click()
ReDim m(1 To 4) As Integer
m(1)=20: m(2)=30: m(3)=50: m(4)=100
c=Fun(m)
Print c
End Sub
單擊命令按鈕,其輸出結(jié)果為 【 】。
正確答案：100100 解析：在程序Sub中定義了一個含4個元素的數(shù)組,并且分別給它們賦值,數(shù)組上界是4,下界為1;將數(shù)組m作為實參調(diào)用Fmax事件過程,并將數(shù)組m的地址傳遞給數(shù)組a,即此時數(shù)組a與m共用一個存儲空間;將數(shù)組的上界和下界分別賦給變量Last和First,在賦值表達式中分別調(diào)用了LBound()函數(shù)求數(shù)組下界,及UBound()函數(shù)求數(shù)組的上界;在循環(huán)語句中,變量的初始值為數(shù)組的下界為1,終值為數(shù)組的上界為4,循環(huán)體是一個條件語句,如果a(i) 中的值大于Max,那么就將a(i)的值賦給Max,當循環(huán)
詞條內(nèi)容僅供參考，如果您需要解決具體問題
（尤其在法律、醫(yī)學等領域），建議您咨詢相關領域?qū)I(yè)人士。