Question

vb如何删除2个文本框相同的数值

text1.text=1 5 1 3 2 4 0 2 text2.text=0 6 1 5 2 4 1 3最终实现text1=2 text2=6
就是text1中有2个2 但text2中就一个2, 所以只删除一个

Answer 1

病情分析：
您好，包皮过长不影响怀孕的，只要精子质量合格就行！
指导意见：
建议您可以查一下精液常规，如果正常的话是可以怀孕的。不用担心！

病情分析：
男性如果过度劳累是会导致精液质量下降的表现。
指导意见：
目前的情况建议你老公可以考虑去医院进行精液质量的检查，如果没有问题只要是排卵期性生活不管是白天还晚上都不会影响你受孕的。

病情分析：
您好：上述的情况要是没有采取避孕措施的话是可以导致怀孕的可能性。
指导意见：
所以这种情况下请不要担心。再者就是只要是双方都正常的话对怀孕是没有影响性。
医生询问：
二个人在一起有多长的时间了？有做避孕措施吗？

Answer 2

Private Sub Command1_Click()
a = Split(Text1.Text, " ")
b = Split(Text2.Text, " ")
For i = 0 To UBound(a)
For j = 0 To UBound(b)
If a(i) = b(j) Then
a(i) = ""
b(j) = ""
Exit For
End If
Next j, i

stri = ""
For i = 0 To UBound(a)
If a(i) <> "" Then stri = stri & a(i) & " "
Next i
Text1.Text = Trim(stri)

stri = ""
For i = 0 To UBound(b)
If b(i) <> "" Then stri = stri & b(i) & " "
Next i
Text2.Text = Trim(stri)

End Sub