4组数字找相同的6个text文本,其中text1,text2,text3,text,4本每一个文本都是随机的三位数要求:第一步把text2,text3,text,4中的数字,只要跟text1文本里的数字有相同的就找出来,输出在text5中.出现多次
来源:学生作业帮助网 编辑:作业帮 时间:2024/07/09 00:39:42
![4组数字找相同的6个text文本,其中text1,text2,text3,text,4本每一个文本都是随机的三位数要求:第一步把text2,text3,text,4中的数字,只要跟text1文本里的数字有相同的就找出来,输出在text5中.出现多次](/uploads/image/z/8501488-16-8.jpg?t=4%E7%BB%84%E6%95%B0%E5%AD%97%E6%89%BE%E7%9B%B8%E5%90%8C%E7%9A%846%E4%B8%AAtext%E6%96%87%E6%9C%AC%2C%E5%85%B6%E4%B8%ADtext1%2Ctext2%2Ctext3%2Ctext%2C4%E6%9C%AC%E6%AF%8F%E4%B8%80%E4%B8%AA%E6%96%87%E6%9C%AC%E9%83%BD%E6%98%AF%E9%9A%8F%E6%9C%BA%E7%9A%84%E4%B8%89%E4%BD%8D%E6%95%B0%E8%A6%81%E6%B1%82%EF%BC%9A%E7%AC%AC%E4%B8%80%E6%AD%A5%E6%8A%8Atext2%2Ctext3%2Ctext%2C4%E4%B8%AD%E7%9A%84%E6%95%B0%E5%AD%97%2C%E5%8F%AA%E8%A6%81%E8%B7%9Ftext1%E6%96%87%E6%9C%AC%E9%87%8C%E7%9A%84%E6%95%B0%E5%AD%97%E6%9C%89%E7%9B%B8%E5%90%8C%E7%9A%84%E5%B0%B1%E6%89%BE%E5%87%BA%E6%9D%A5%2C%E8%BE%93%E5%87%BA%E5%9C%A8text5%E4%B8%AD.%E5%87%BA%E7%8E%B0%E5%A4%9A%E6%AC%A1)
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