code131a.txt

来自「VB大全（精华版）源代码」· 文本 代码 · 共 10 行

Public Sub Main()
  Debug.Print "The average of 100, 133, and 155 is ", _
     Average_Value(100, 133, 155)
End Sub

Private Function Average_Value(A As Integer, B As Integer, _
    C As Integer) As Single
  Average_Value = (A + B + C) / 3.0
End Function