瑞星卡卡安全论坛

以下是我设想的一个矛盾代码:(当执行代码时发先一个问题)
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)是相互矛盾的,它只会显示第一个字节的变量,后面的不可实现!问题就在这)

虽然没有运行过，但是我估计你这段程序在你输入一个1后text1中就会不停地显示一个1，即使再输入别的任何数（包括2）应该还是这样。（前提是 a1 = (Text1)的意思跟a1=text1.text一样）

错了!
我的想法是程序为达到目的不择手段,直到到它完成任务,
就象人想1+1=?一样,让它也有思想有目的的寻找答案.直到
成立

更新的的系统可能无法显示!

忘记说了:因为VB灵活性不好,建议不要复制我的,
自己一个一字的打,修正我错误的 一个地方请将
a1 = "1223",a2 = "2245"
中不能包含数字,请打汉字!比如a1="要"的string

这个窗体在打开时就会报错吧，
Private Sub Form_Load()
Text1.Text = a1              ？？？a1是什么呀？？？
End Sub