scope.bas

来自「Visual Basic 6 大学教程的代码」· BAS 代码 · 共 17 行

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