主题：数字对比软件开发

分别输入1000组五位数和三位数，对比每一位五位数和三位数，要求五位数中的第234 位和三位数的123位顺序和数字相同，把这样的每组五位数提取，并在粘贴输出时纵向排列。

请问狐表能这样制作吗

负责人的告诉你 可以

Dim val1 As New List(Of Integer)
Dim val2 As New List(Of Integer)
Dim val3 As Integer
Dim s1 As String = ""
Dim s2 As String

For i As Integer = 0 To 999
    val1.add(rand.Next(100,999))
    val2.add(rand.Next(10000,99999))
Next
For i As Integer = 0 To 999
    val3 = cint(cstr(val2(i)).SubString(1,3))
    If val1.Contains(val3) Then
        s2=s2 & val2(i) & "," & val3 & " "
    End If
Next

msgbox(s2)

用到字符串集

 可以做到，具体的问题，请附带一个例子。

 把下面的代码复制到命令窗口执行

Dim d5 As String = 98765
Dim d3 As String = 876

Dim result As Boolean = (d5.SubString(1,3) = d3)
msgbox(result)