以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  数字对比软件开发  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=28967)
--  作者：lzc777
--  发布时间：2013/2/24 10:24:00
--  数字对比软件开发
分别输入1000组五位数和三位数，对比每一位五位数和三位数，要求五位数中的第234 位和三位数的123位顺序和数字相同，把这样的每组五位数提取，并在粘贴输出时纵向排列。
--  作者：lzc777
--  发布时间：2013/2/24 10:35:00
--  
请问狐表能这样制作吗
--  作者：38585830
--  发布时间：2013/2/24 11:42:00
--  
负责人的告诉你 可以
--  作者：pengjiam
--  发布时间：2013/2/24 17:37:00
--  

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)
--  作者：zerov
--  发布时间：2013/2/24 22:50:00
--  
用到字符串集
--  作者：lin_hailun
--  发布时间：2013/2/25 8:46:00
--  
 可以做到，具体的问题，请附带一个例子。

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

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

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