局部变量
使用Dim语句声明的变量称为局部变量,随过程的调用而分配存储单元,并进行变量的初始化。一旦过程结束,变量的内容自动消失,占用的存储单元也被释放。因此,每次调用过程时,变量都将重新初始化。
静态变量
使用Static语句声明的变量称为静态变量,它与用Dim语句声明的变量的不同之处在于:当一个过程结束时,过程中所用到的静态变量的值会保留,下次再调用该过程时,变量的初值是上次调用结束时被保留的值。
案例
案例说明
在过程中定义个静态变量,利用这个静态变量充当计数器,当计数器大于某数值时出现提示并退出过程。如本例当输入数字超过3次时,将给出提示对话框,提示程序只能运行3次。
操作步骤
- 新建一个标准工程
- 工程中添加新的窗体,窗体属性中StartUpPosition属性设置为“2-屏幕中心”。其他默认。
- 新建按钮控件,按钮属性"Caption"为计数,其他默认,按钮代码见案例代码
案例代码
Private Sub Command1_Click()
Static c As Integer
c = c + 1
If c > 3 Then
MsgBox ("只能运行三次")
Exit Sub
End If
Dim a As Integer
a = InputBox("请输入数字:")
Select Case a
Case 1
MsgBox ("abandon")
Case 2
MsgBox ("ability")
Case 3
MsgBox ("zoo")
Case Else
MsgBox ("只能显示三个单词")
End Select
End Sub