本示例根据 sngData 变量的值(从 1 到 5 的值,表明结果的度量单位),将 intUnit 变量的值(以磅为单位)转换为厘米、英寸、行、毫米或十二点活字。

Function ConvertPoints(ByVal intUnit As Integer, _
    sngData As Single) As Single
    Select Case intUnit
        Case 1
            ConvertPoints = PointsToCentimeters(sngData)
        Case 2
            ConvertPoints = PointsToInches(sngData)
        Case 3
            ConvertPoints = PointsToLines(sngData)
        Case 4
            ConvertPoints = PointsToMillimeters(sngData)
        Case 5
            ConvertPoints = PointsToPicas(sngData)
        Case Else
            Error 5
    End Select
End Function