用vb编程,怎样将两个文本框中的不同的数字找出来,显示在另外一个文本框中?

如题所述

以下代码调试通过,注意数字间用空格隔开

Private Sub Command1_Click()
Dim numArr1
Dim numArr2
Dim i As Integer
numArr1 = Split(Text1.Text, " ") ‘如果用逗号隔开就应该是Split(Text1.Text,",")
numArr2 = Split(Text2.Text, " ")
For i = 0 To UBound(numArr1)
If InStr(Text2.Text, numArr1(i)) = 0 Then Text3.Text = Text3.Text & numArr1(i) & " "
Next
For i = 0 To UBound(numArr2)
If InStr(Text1.Text, numArr2(i)) = 0 Then Text3.Text = Text3.Text & numArr2(i) & " "
Next
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2012-06-22
思路
逐字比较,相同啥也不做
不同,就输出追问

代码怎么写,我不会写代码呀

相似回答