sub suba()dim a(3) as integera(0)=3if a(0)=a(1) then msgbox "ok" else msgbox "failed"subb aend subsub subb(param() as integer)param(1)=3end sub