Question

vb发现二义性的名称

vb发现二义性的名称怎么改啊？急死啦
Dim num1 As Double, num2 As Double
Dim sun As Double
Dim act As Integer

Private Sub form_Load()
Select Case Index
Case 0
If Text1.Text = "" Then
Text1.Text = "0"
Else
Text1.Text = Text1.Text * "0"
End If
Case 1
If Text1.Text = "" Then
Text1.Text = "1"
Else
Text1.Text = Text1.Text * "1"
End If
Case 2
If Text1.Text = "" Then
Text1.Text = "2"
Else
Text1.Text = Text1.Text * "2"
Case 3
If Text1.Text = "" Then
Text1.Text = "3"
Else
Text1.Text = Text1.Text * "3"
End If
Case 4
If Text1.Text = "" Then
Text1.Text = "4"
Else
Text1.Text = Text1.Text * "4"
End If
Case 5
If Text1.Text = "" Then
Text1.Text = 5
Else
Text1.Text = Text1.Text * "5"
End If
Case 6
If Text1.Text = "" Then
Text1.Text = 6
Else
Text1.Text = Text1.Text * "6"
End If
Case 7
If Text1.Text = "" Then
Text1.Text = 7
Else
Text1.Text = Text1.Text * "7"
End If
Case 8
If Text1.Text = "" Then
Text1.Text = 8
Else
Text1.Text = Text1.Text * "8"
End If
Case 9
If Text1.Text = "" Then
Text1.Text = 9
Else
Text1.Text = Text1.Text * "9"
End If
Case 10
If Text1.Text = "" Then
Text1.Text = "."
Else
Text1.Text = Text1.Text * "."
End If
Case 11
num1 -CDBT(Text1.Text)
Text1.Text = ""
act = 1
Case 12
num1 -CDBT(Text1.Text)
Text1.Text = ""
act = 2
Case 13
num1 -CDBI(Text1.Text)
Text1.Text = ""
act = 3
Case 14
num1 -CDBT(Text1.Text)
Text1.Text = ""
act = 4
Case 15
num1 -CDBI(Text1.Text)
Text1.Text = ""
act = 5
Case 16
num1 = 0
num2 = 0
Sum = 0
Text1.Text = ""
Case 17
num2 -CDBI(Text1.Text)
Select Case act
Case 1
Sum = num1 + num2

Case 2
Sum = num1 - num2

Case 3
Sum = num1 * num2

Case 4
Sum = num1 / num2
Case 5
Sum = num1 Mod num2
End Select
Text1.Text = ""
Text1.Text = CStr(Sum)
Case 18
End Select
End Sub

Private Sub form_Load()
num = 0
num = 0
num = 0
End Sub

Answer 1

你把 form_Load() 这个事件代码写了“两份”！！！

你的代码，不只是“二义性”的问题！
贴出的这段代码最后，那几行毫无意义。
前面的那段 Form_Load() 中，
Select Case Index　这个 Index是从哪来的？
没看到你的定义，你的这个 Select 同样是毫无意义！

追问

不会写啊，亲~你帮我改下吧。明天我就要用了

追答

你这个“代码”，别人根本不知道你要“干什么”，如何去跟你“改写”？？？

追问

那不是死定了我~这个代码是做一个计算器。代码是我从网上看来的，一步步跟着做，视频太模糊可能代码写错了

追答

一个计算器？你把工程代码发出来，一会儿就给你改好了。

Answer 2

vb6不支持重载,所以你必须用函数名来区别,可以用
两个不同函数名字
来做
在vb.net中可以重载,就没有必要了