当前范围内的声明重复

来源：百度知道 编辑：UC知道 时间：2024/06/11 17:12:30
Private Sub Command1_Click()
a = Text1.Text
b = Text2.Text
Dim a As Single
Dim b As Single
Text3.Text = a + b
End Sub

提示“当前范围内的声明重复” 哪错了呢？

已经给变量 a， b 赋值
Dim a As Single
Dim b As Single
再定义变量 a， b
当然声明重复

Private Sub Command1_Click()
a = Text1.Text '这里已经使用了变量 因为你前面没有显示声明变量所以默认 定义为变体型 所以 你后面又定义就出错
b = Text2.Text
Dim a As Single
Dim b As Single
Text3.Text = a + b
End Sub