一个VB程序理解

interger类型变量定义自动赋初值0
函数内部Static类型变量,相当于一个全局变量
Private sub command1_click()
static a as Interger
....
end sub
可写为
dim a as integer
Private sub command1_click()
.....
end sub
这样每点一次command1,a的值就会加1,取值依次为0,1,2.
a值为0时,总会有一个a=a+1执行,为2时就会有一个a=0执行.所以,Select语句判断的只是a为1,2两值的情况.

Private sub command1_click()
static a as Interger
a=a+1 (此行有什用？） ------累加赋值
select case a
case 1
label1.caption="名字"
case 2
label1.caption="年龄"
a=0 (此行有什么用？） -------不点击
End select
End Sub

因为没编译器，所以不知道这个是否能运行成功。
如果是能运行成功的话。
应该是单击按钮一次 显示 名字 ，第二次 点击 显示 年龄。
不点击，什么都不显示 ^_^

static变量，在每次运行sub时会保留它的值。
vb声明的变量初值为0。每运行一次sub，a的值加1，当a＝2时，重新把a赋值为0。