code133a.txt

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

Option Explicit

Public Sub Main()
  Debug.Print "Local Values =", Local_Values
  Debug.Print "A, B and C equal: " A, B, C
End Sub

Private Function Local_Values() as Integer
  Dim A As Integer, B As Integer, C As Integer
  A = 1
  B = 2
  C = 3
  Debug.Print "A, B and C equal: " A, B, C
  Local_Values = A + B + C
End Function