scope.bas

Visual Basic 6 大学教程的代码

Attribute VB_Name = "modScope"
Option Explicit

' Declare x as a global
' variable; g has not
' been prefixed for this
' example
Public x As Integer

Sub four()
   frmScope.Print "global x is " & x% & " on entering four"
   x% = x% + 1
   frmScope.Print "global x is " & x% & " on exiting four"
   frmScope.Print
End Sub