搜搜考试网4组数字找相同的6个text文本,其中text1,text2,text3,text,4本每一个文本都是随机的三位数要求：
来源：学生作业帮 编辑：搜搜考试网作业帮 分类：综合作业 时间：2024/04/29 18:28:30
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
请问这样的代码怎么写?
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
请问这样的代码怎么写?
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
再问： 另外我想增加一个小功能，就是再增加一个文本，text7，text7把text6里的数字找出来，重复的去掉就是text7重新输出text6的内容，去掉重复的。比如text6的结果为002052，则text7显示025 .
再答： Private Sub Command3_Click() Dim i As Integer For i = 1 To Len(Text6.Text) If InStr(Text7.Text, Mid(Text6.Text, i, 1)) = 0 Then Text7.Text = Text7.Text & Mid(Text6.Text, i, 1) Else Text7.Text = Text7.Text & "" End If Next i End Sub
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
再问： 另外我想增加一个小功能，就是再增加一个文本，text7，text7把text6里的数字找出来，重复的去掉就是text7重新输出text6的内容，去掉重复的。比如text6的结果为002052，则text7显示025 .
再答： Private Sub Command3_Click() Dim i As Integer For i = 1 To Len(Text6.Text) If InStr(Text7.Text, Mid(Text6.Text, i, 1)) = 0 Then Text7.Text = Text7.Text & Mid(Text6.Text, i, 1) Else Text7.Text = Text7.Text & "" End If Next i End Sub
4组数字找相同的6个text文本,其中text1,text2,text3,text,4本每一个文本都是随机的三位数要求：
VB编程If Len(Text1.Text) = Len(Text1.Text) - 1 Then len(Text2.
英语text求六年级下新世纪版英语u4l1的text文本...关于体育课的,现在急用!
：其中的text ：
VB中Text1.text=text1.text+CStr(a(i))+" " If i=4 then text1.te
word or text 文本谁有?
亲,求剑桥雅思 text2 section4的听力文本+MP3.
text1.text= 1323.32 不过val(text1.text ) 却对小数点四舍五入,得到的总是整数而非小数
If text1.text"" then...
在VF中alltrim(thisform.text1.value)与thisform.text1.text是等价的吗?
VB中data="&H" & 其中c=Text1.text,data也是一个已经定义好的变量,
text message的text是什么意思