4组数字找相同的6个text文本,其中text1,text2,text3,text,4本每一个文本都是随机的三位数要求：第一步把text2,text3,text,4中的数字,只要跟text1文本里的数字有相同的就找出来,输出在text5中.出现多次
来源：学生作业帮助网 编辑：六六作业网 时间：2024/11/18 10:23:33
4组数字找相同的6个text文本,其中text1,text2,text3,text,4本每一个文本都是随机的三位数要求：第一步把text2,text3,text,4中的数字,只要跟text1文本里的数字有相同的就找出来,输出在text5中.出现多次
4组数字找相同的
6个text文本,其中text1,text2,text3,text,4本每一个文本都是随机的三位数
要求：第一步把text2,text3,text,4中的数字,只要跟text1文本里的数字有相同的就找出来,输出在text5中.出现多次就多次显示.text1里的数字不管.
第二步：把text5中的数字相加等于10的数显示在text6中,如果text5有0,那么跟他相加的10的数就是0.
举例说明：
text1输入058 ,text2 输入700,text3输入810,text4输入258,找出text2,text3,text,4中跟text1中相同的数字.注意text1中的数字不输出.
text5结果为008058
把与text5中的所有数字相加等于10的数字显示在text6中,如果text5中有0,那么跟0相加等于10的数字就是0
最终结果text6中显示的内容为002052
请问这样的代码怎么写?
4组数字找相同的6个text文本,其中text1,text2,text3,text,4本每一个文本都是随机的三位数要求：第一步把text2,text3,text,4中的数字,只要跟text1文本里的数字有相同的就找出来,输出在text5中.出现多次
Private Sub Command1_Click()
Call Contrast(Text2)
Call Contrast(Text3)
Call Contrast(Text4)
End Sub
Sub Contrast(N)
Dim i As Integer
For i = 1 To Len(N)
If InStr(Text1.Text, Mid(N, i, 1)) > 0 Then
Text5.Text = Text5.Text & Mid(N, i, 1)
End If
Next i
End Sub
Private Sub Command2_Click()
Dim i As Integer
For i = 1 To Len(Text5.Text)
If Mid(Text5.Text, i, 1) = 0 Then
Text6.Text = Text6.Text & "0"
Else
Text6.Text = Text6.Text & (10 - Mid(Text5.Text, i, 1))
End If
Next i
End Sub