以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  判断1个字符串是否为集合里的内容，这个语句怎么写？  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=11834)
--  作者：zshdjccf
--  发布时间：2011/8/13 17:10:00
--  判断1个字符串是否为集合里的内容，这个语句怎么写？

dim s As string
dim s1 As new list of (string)
判断S是否是集合s1里的内容， 这个语句怎么写？
if s In s1 是这样的吗？

 

 

帮助文件哪里有设计到这个问题？
--  作者：don
--  发布时间：2011/8/13 17:42:00
--  

集合的成员包括：

名称 类型 说明
Add 方法 向集合中增加一个值
Insert 方法 向集合的指定位置插入一个值
Remove 方法 删除指定的值
RemoveAt 方法 删除指定位置的值
Contains 方法 判断集合中是否包括某个值
AddRange 方法 批量增加多个值
Count 属性 返回集合中值的个数
--  作者：程兴刚
--  发布时间：2011/8/13 18:59:00
--  

这样：

 

Dim s As String ="手机"
Dim s1 As new List (of String)
s1.add("电视机")
s1.add("收音机")
s1.add("笔记本电脑")
For i As Integer = 0 To s1.Count-1
    If s1(i) = s
        MessageBox.show(s & "已包含在本集合中!")
        Exit For
    ElseIf i = s1.Count-1
        MessageBox.show( s & "未包含在本集合中!")
    End If
Next
--  作者：c
--  发布时间：2011/8/13 22:34:00
--  

刚学 集合，顺便看到这，发表下回复，不知道是否正确

 

Dim cz As String="电脑在哪里?"
Dim jh As new List(of String)
jh.add("电视机")
jh.add("电冰箱")
If jh.Contains(cz)=False Then
    output.show("没有找到 " & cz )
Else
    output.show("找到 " & cz)
End If
--  作者：程兴刚
--  发布时间：2011/8/14 0:47:00
--  
^_^，我没注意到有这个方法，2楼都给截图了还没看见，惭愧！