کار با آرایه های مشخص و مقدار معین ( Parameter arrays )

ParamArray : 

نوشتن تابع AddMultipleArgs برای گرفتن تعداد کلی داخل پرانتز 

Function AddMultipleArgs(ParamArray myNumbers() As Variant)

Dim mySum As Single

 Dim myValue As Variant

 For Each myValue In myNumbers

 mySum = mySum + myValue

 Next

 AddMultipleArgs = mySum

End Function

?AddMultipleArgs(1, 23.24, 3, 24, 8, 34)

According to international research led by the Complutense University of Madrid (UCM), the surface of ice when in contact with a solid object melts and creates a self-perpetuating lubricant layer. This lubricant layer makes the ice slipperier, and therefore more likely to cause accidents involving skating or cars.