大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
要用递归的方法才行,首先构建一个带有treeview1和button1的基本窗体,在treeview1中添加一些节点,保持默认的名字即可。程序将搜寻节点带有j"节点1"的节点,包括节点10,节点11....,然后按照你的要求添加新节点。代码如下:
创新互联建站是一家专业提供梁园企业网站建设,专注与网站设计制作、成都网站建设、HTML5建站、小程序制作等业务。10年已为梁园众多企业、政府机构等服务。创新互联专业的建站公司优惠进行中。
Public Class Form1
Dim a() As String = {"节点1", "a(1)节点"}
Dim mnodes As New ArrayList
Dim cnodes As TreeNode
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
get_n(TreeView1.Nodes)
For Each ntxt As TreeNode In mnodes
If ntxt.Text.IndexOf(a(0)) = 0 Then
ntxt.Nodes.Add(New TreeNode(a(1)))
Else
ntxt.Nodes.Add(New TreeNode("新节点"))
End If
Next
End Sub
Private Sub get_n(ByVal cn As TreeNodeCollection)
For Each ma As TreeNode In cn
If ma.Nodes.Count 0 Then
mnodes.Add(ma)
cnodes = ma
get_n(cnodes.Nodes)
Else
mnodes.Add(ma)
End If
Next
End Sub
End Class
可以用默认的浅红色标记重复值,也可以自定义填充色,见下图
最后手动删除重复值
[扩展]清除该规则[条件格式]--[清除格式]
[扩展]如何自动删除重复值
选中单元格--[数据]---[删除重复值]--勾选数据范围
如上图,重复的1和6被excel自动删除
我还在床上,就只给你思路吧
我是自己写了个函数,将数组传入并返回一个新数组列表
子函数中,先将数组排序sort函数,然后有两个循环,外循环从0到Length,变量i,内循环从i到Length,判断第i个数是否与包括自身的后续数相同,相同就有变量加1,内循环结束条件是找到第一个不同的数,并将外循环i复植为内循环中第一个不同的数的下表。。。
这个是思路,如果不能理解再再追加我给你代码,不过建议自己试试
你看写这个,和你的要求差不多。。。;oldq=1
有程序的~~~你可以参考下~~~
比如数组a。里面有5个值,其中有3个是重复的?
如果这样的话,很好办哦。
新建一个数组b,然后遍历要去除的数组a,
从a中把每一个都取出来,和新建的b里面的去比,如果有相同的,则不放入b,
否则就放入数组b,直到循环结束。
画一个按键,在按钮click事件写下:
For each item1 as listviewitem in ListView1.Items
For each item2 as listviewitem in listivew2.items
If item1.Text=Item2.Text Then
msgbox("列表有重复值,名称为:" item1.text)
End if
Next
Next
先把strA排序,
ind = 2
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