很简单,用字符串查找函数就可以实现了.
当在StrB查找到StrA字符串时,返回肯定是非0的数,值就是True,找不到为0或者-1,值就是Flase
比如:
Dim StrA As String = "Time is Limited"
Dim StrB As String = "Time"
Dim Stu As Boolean= InStr(StrA, StrB)
这运行段代码,Stu值就是True了.
我觉得这样最简单有效.
substring 就是对一个指定的字符窜进行字符窜截取的方法.
运用的形式差不多如下:
截取后的字符窜 = 指定字符窜.substring(开始截取位置[第一位从0开始],截取长度)
Dim str As String = "dsk_cy"
希望对你有帮助!
Sub?Main()
Dim?txt?As?New?StringBuilder("显示A中元素:")
For?Each?i?As?Integer?In?arr
txt.Append(i).Append("?")
Next
Console.WriteLine(txt.ToString)
Console.WriteLine("请输入查找数值:")
Dim?num?As?Integer?=?CInt(Val(Console.ReadLine))
Console.WriteLine("你输入的数据是:"?num.ToString)
Dim?loca?As?Integer?=?Array.IndexOf(arr,?num)?+?1
If?loca?=?0?Then
Console.WriteLine(num?"的位置在第"?loca?"个")
Else
Console.WriteLine("数组中无"?num)
End?If
Console.ReadLine()
End?Sub
数组中搜索匹配值的索引,如果数组中没有重复的值,没必要弄那么复杂的循环,IndexOf函数就搞定了.
如果有重复的,用下面的循环,可以返回多个匹配值的索引;
Dim?length?As?Integer,?counts?As?Integer()?=?New?Integer()?{}
For?i?As?Integer?=?0?To?arr.Length?-?1
If?arr(i)?=?num?Then
length?=?counts.Length
ReDim?Preserve?counts(length)?:?counts(length)?=?(i?+?1)
length?=?counts.Length?-?1
If?length?0?Then
txt?=?New?StringBuilder
txt.Append(num).Append("的位置在第")
For?i?As?Integer?=?0?To?length
txt.Append(counts(i))
If?i?length?Then?txt.Append("|")
txt.Append("个")
以上就是土嘎嘎小编为大家整理的vb.net折半查找相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦!!