关于VB6.0中一个小小的问题!
以下是我设想的一个矛盾代码:(当执行代码时发先一个问题)
Private Sub Form_Load()
Text1.Text = a1
End Sub
Private Sub Text1_Change()
Dim a1 As String, a2 As String, a3 As String
a1 = (Text1)
a2 = (Text1)
If Text1.Text = "1" Then
a1 = "1223"
End If
If Text1.Text = "2" Then
a2 = "2245"
End If
a3 = a1 + a2
Text1.Text = a3
End Sub
建议:text1中执行多行,multiline=true
这段代码的意思是相互矛盾的,当你在TEXT1中键入1时会显示"1223",
但我在下面加了个算术:a3=a1+a2就有问题了,因为我要求a3但a1却找不到
a2的变量,a3就得不到正确的和,a2却并没有出现,a1就不段的寻找a2,
a1就不段的复制自己,直到有"2"这个数和它成立就会终止,当在TEXT1中
键入"2"就停止了,就像一个一首歌<<死了都要爱>>很有意思!(提示:
a1 = (Text1)
a2 = (Text1)是相互矛盾的,它只会显示第一个字节的变量,后面的不可实现!问题就在这)
