vbscript基础2

'过程和函数


'过程简单应用 获得最大值
Sub getMax(var1,var2)
Dim max
If var1>var2 Then
max = var1
Else
max = var2

End If

If(max=var1) Then Exit Sub  '过程结束
MsgBox "max= " & max
End Sub 
Call getMax(2,3) '过程调用 
getMax 5,1




'函数应用
Function funMax(byval var1,byval var2) '默认按引用传递 byRef若想按值传递则显示用byVal
Dim max
If var1>var2 Then
max = var1
Else
max = var2
End If
funMax = max
End Function

varMax = funMax(2,3) '函数调用
MsgBox varMax