code137a.txt

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

Public A, B, C as Integer

Private Sub Conflict_A()
  Dim A as Integer

  A = 100
  Debug.Print "A, B, and C are: ", A, B, C
End Sub

Public Sub Main()
' Initialize Global variables
  A = 1
  B = 2
  C = 3

  Conflict_A
  Debug.Print "A, B, and C are: ", A, B, C
End Sub