以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  两个集合如何查找对应位置的数据  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=4361)
--  作者：exonjee
--  发布时间：2009/9/17 14:02:00
--  两个集合如何查找对应位置的数据
有两个集合A(1，8，9，10，11，12，18，25，4，7，5)
         集合B(100，200，300，400，500，600，700，800，900，1000，1100)  
如何在A集合中找到最大值是25时，能在B集合中自动找到对应的第8个值为800，因为A集合中的值是变化的，两个集合长度一样，是对应关系的，B集合是回定的，请教如何解决 ？
[此贴子已经被作者于2009-9-17 14:09:03编辑过]
--  作者：czy
--  发布时间：2009/9/17 14:14:00
--  
用Max应该可行吧。
--  作者：exonjee
--  发布时间：2009/9/17 14:19:00
--  

找到A集合中最大的值后，如何返回最大值对应的索引值？
这样才能确定B集合中索引值对应的数值。
--  作者：mr725
--  发布时间：2009/9/17 14:23:00
--  
dim n as integer
dim bg as integer
dim a as string ="1,8,9,10,11,12,18,25,4,7,5"
dim aa as string ="100,200,300,400,500,600,700,800,900,1000,1100"
for i as integer = 0 to a.split(",").length -1
    if a.split(",")(i) > bg then
        bg = a.split(",")(i)
        n=i
    end if
next
output.show(aa.split(",")(n))     \'结果显示：800
[此贴子已经被作者于2009-9-17 14:28:05编辑过]
--  作者：exonjee
--  发布时间：2009/9/17 14:27:00
--  
这样也是方法，试下先
--  作者：exonjee
--  发布时间：2009/9/17 15:28:00
--  

谢谢4楼，可以实现了。
有没有对集合进行这样操作的更简单的方法呢？
--  作者：狐狸爸爸
--  发布时间：2009/9/17 15:31:00
--  
集合更加简单

Dim v As integer = lst1(0)
Dim m As Integer
For i  As integr = 1 To Lst1.Count -1
   If Lst1(0)> v Then
      m = i
      v = lst1(i)
   End If
Next
Output.Show(lst2(m))
[此贴子已经被作者于2009-9-17 15:39:55编辑过]