dim a as integer //没有初始化,则默认为0
a = a + 1 //a = 0 + 1
label1.text=str(a) //把a的值赋给label1的text属性
结果当然是1了
楼主要的效果,可以这样:
sub button1_click()中
dim a as integer
//在这里,把label1.text的值转换成int型,再赋值给a
//VB不懂,C#中可以这样转换
//a = int.Parse(label1.Text);
a = a + 1
label1.text=str(a)
end sub