输入intXs
返回sglXs
最后可以用return语句,也可以用getSelectXS = sglXs
Public Function getSelectXS(ByVal intXs As Integer) As Single
Dim sglXs As Single
Select Case intXs
Case 1
sglXs = 0.95
Case 2
sglXs = 0.8
Case 3
sglXs = 0.6
Case 4
sglXs = 0.4
Case 5
sglXs = 0.2
Case Else
sglXs = 0
End Select
getSelectXS = sglXs
End Function
case是多分支选择结构
它的任何一个语句块被执行后,程序都将终止判断,转去执行该结构之后的语句