你是不是应该对最大值和最小值赋初值(比如把 r(1) 赋给最大值和最小值)呢?不然最小值默认初始值是'0',后面的判断就不起作用了.你可以加个断点试试,他们的初始值是多少...
我还在床上,就只给你思路吧
我是自己写了个函数,将数组传入并返回一个新数组列表
子函数中,先将数组排序sort函数,然后有两个循环,外循环从0到Length,变量i,内循环从i到Length,判断第i个数是否与包括自身的后续数相同,相同就有变量加1,内循环结束条件是找到第一个不同的数,并将外循环i复植为内循环中第一个不同的数的下表...
这个是思路,如果不能理解再再追加我给你代码,不过建议自己试试
你看写这个,和你的要求差不多...;oldq=1
有程序的~~~你可以参考下~~~
先把strA排序,
if len(strA) = 0 then return
strB(1) = strA(1)
for each s in strA
if (strA(ind) strA(ind - 1) then
count = 0
strB(ind) = strA(ind)
else
strB(ind) = strA(ind - 1)
end if
ind = ind + 1
next s
vb语法忘了...大概是这么个意思吧.... 排序N LOG N,后面是线性的N,所以总共是NLOGN
Sub?Find(ByRef?Obj?As?DataGridView,?Optional?ByVal?value?As?String?=?Nothing,?Optional?ByVal?cellIndex?As?Integer?=?1)
For?Each?i?As?DataGridViewRow?In?DataGridView1.Rows
If?value?Is?Nothing?OrElse?value?=?""?Then
i.Visible?=?True
Else
Try
If?i.Cells(cellIndex).Value?IsNot?Nothing?Then?i.Visible?=?i.Cells(cellIndex).Value?=?value
Catch?ex?As?Exception
End?Try
End?If
Next
End?Sub
Find(DataGridView1, "张三",1)
以上就是土嘎嘎小编为大家整理的vb.net数组筛选相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!