code137a.txt

VB大全（精华版）源代码

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