dim Lstr As StringOpen "C:\\111.txt" For Input As #1Do While Not EOF(1) Line Input #1, Lstr Text3.Text = Lstr & vbCrLfLoopClose #1If Text3.Text = Text2.Text ThenForm2.ShowElseMsgBox "错误"End If 明明Text3.Text = Text2.Text怎么还判断错误？？

哈哈　知道答案了　Text3.Text得到的是字符而Text２.Text输入数字的话它们比较出现错误是肯定加个val()就ＯＫ了在此提醒各位不要犯向我这样的低级错误啊

啊``有时候看到的两极很厉害```不过有时候看到的两极的一些问题真的很好笑```不过我也是``哈``大家都是````有时候一个鸟BB的问题```却弄到头都大啦``````

当局者迷,就是这样~~~