判断文本框1和文本框2的内容是否相符?
判断文本框1和文本框2的内容是否相符?

如果文本框1的第一行=文本框2的第一行,则在文本框3显示 "错 ",反之显示 "对 ".
依此类推

如图


http://hiphotos.baidu.com/%CC%EC%B7%E7%BA%A3%CB%AE/pic/item/7e81b41e397ce01d413417d8.jpg


[解决办法]
split(text1,vbcrlf),
split(text2,vbcrlf),
把文本框里的文本按回车符分隔成数组,然后比较。

————————————
要与不要是最大的技术问题
————————————
[解决办法]
写如下一个函数
Private Function GetLineStr(ByVal src As String, ByVal i As Integer)
Dim strLine As Variant
On Error GoTo Err
i = i + 1
strLine = Split(src, vbCrLf)
GetLineStr = strLine(i)
Exit Function
Err:
GetLineStr = " "
End Function

然后用 GetLineStr(text1.text,i)来取得第i行的字符串
[解决办法]
不清楚楼主的意思，到底是比较text1.text 和text2.text是否完全相同，还是判断，在text2.text中是否有text1.text？？？
如果是比较就 if trim$(text1.text)=trim$(text2.text) then
text3.text= "相同 "
else
text3.text= "不相同 "
end if
不然就用instr函数，在字符串1中查找字符串2，找到返回ture，否则返回false。
[解决办法]
Private Sub Command1_Click()
On Error GoTo LocalExit

s1 = Split(Text1, vbCrLf)
s2 = Split(Text2, vbCrLf)

i = 0

Do
If s1(i) <> s2(i) Then
Text3.Text = Text3.Text + "true " + vbCrLf
Else
Text3.Text = Text3.Text + "False " + vbCrLf
End If

i = i + 1
Loop

LocalExit:
End Sub