UC知道VB初学者请教VB语句
来源：百度知道 编辑：UC知道 时间：2024/05/26 10:01:14
Private Sub Command1_Click() '1
Text1.Enabled = False
sum1 = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10
a = sum - sum1
If a > 0 Then
a1 = a1 + 1
If a1 >= 7 Then a1 = 7
Label1.Caption = a1
Labelsum1.Caption = a
Label.Caption = sum1
Else
Command1.Enabled = False
End If
End Sub
这个是计算单击鼠标次数,可是为什么点击一次后,Label1.Caption会显示1.而Labelsum1.Caption 和Label.Caption这两个数字却不变~
Text1.Enabled = False
sum1 = a1 + a2 + a3 + a4 + a5 + a6 + a7 + a8 + a9 + a10
a = sum - sum1
If a > 0 Then
a1 = a1 + 1
If a1 >= 7 Then a1 = 7
Label1.Caption = a1
Labelsum1.Caption = a
Label.Caption = sum1
Else
Command1.Enabled = False
End If
End Sub
这个是计算单击鼠标次数,可是为什么点击一次后,Label1.Caption会显示1.而Labelsum1.Caption 和Label.Caption这两个数字却不变~
提醒你一下，在定义单击鼠标次数那个变量时要用全局变量。
你的变量当程序结束以后就释放了,你定义的是局部变量用DIM 定义的吧
你换成STATIC 定义变量STATIC 变量名 AS 类型