vb.net数组查找 vbnet 数组

提示：扫一扫查出行
【扫一扫了解最新限行尾号】
复制提示

VB.NET 找出数组中相同的元素，并按相同元素排序到另外一个数组中。

先把strA排序vb.net数组查找，

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

vb语法忘vb.net数组查找了。。。大概是这么个意思吧。。。。排序N LOG Nvb.net数组查找，后面是线性vb.net数组查找的Nvb.net数组查找，所以总共是NLOGN

相关问答

Q1: 在asp VB.NET怎么查找一维数组中特定字符串

先遍历数组vb.net数组查找：

for i = 0 to Ubound(数组)

...

再把中间vb.net数组查找的...替换成vb.net数组查找：

if 数组(i) = 特定vb.net数组查找的字符 then msgbox "找到鸟vb.net数组查找，当前是：数组" i

Q2: vb.net 根据给定条件判断该内容是否在数组中，并读取该条数组

Imports System.IO

Imports System.Collections

Imports System.Text

Public Class Form1

Dim InfoList As New ArrayList

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

Dim fs As New FileStream("c:\1.txt", FileMode.Open, FileAccess.Read, FileShare.None)

Dim fw As New StreamReader(fs, Encoding.Default)

Do Until fw.EndOfStream

InfoList.Add(fw.ReadLine)

Loop

fw.Close()

fs.Close()

End Sub

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

Dim tmp As String, a As Integer

a = -1

tmp = TextBox1.Text

For i = 0 To InfoList.Count - 1

If InStr(InfoList.Item(i).ToString, tmp) 0 Then a = i : Exit For

If a = 0 Then TextBox2.Text = InfoList.Item(a)

End Sub

End Class

Q3: 如何查找和在vb.net一个字符串数组数重复号码

面种vb.net数组查找我觉快

Dim s As String = "sadkalkdjajjdhsdsa"

Console.WriteLine(s.Split("a").Length - 1)

Q4: vb.net如何在数组中查找数组?

'''这个函数功能就是用来把数组转为string的格式'''如byte()={1,2,3,4,5,6}转化后变为",1,2,3,4,5,6,"Function ByteArrayToString(bytes() As Byte) As String Dim s As String = "" For i As Integer = 0 To bytes.Length s = Convert.ToString(bytes(i)) "," Next Return “," sEnd Function Sub Search()Dim a as byte()={1,2,3,4,5,6}

Dim b as byte()={2,3,4}

Dim astr As String = ByteArrayToString(a)Dim bstr As String = ByteArrayToString(b)Dim index As Integer = astr.IndexOf(bstr) '这个index就是b数组在a数组的位置，下标从0开始，不过记得处理下逗号，因为这时候是字符串。'''如果index小于0说明没有匹配内容End Sub 现在说明下ByteArrayToString为什么要在字符串开头加个","，如果不加，可能出现a="1,23,4,5,6,", b="3,4,5,"，结果导致查询位置错误，匹配了a的位置

Q5: vb中,如何判定一个数是否属于一个数组中的元素呢?

通过循环vb.net数组查找的方式比较这个数是否和当前vb.net数组查找的数组元素一致。

1、定义数组

dim a(3) as integer '定义一个数组(有四个数)vb.net数组查找，默认上限为a(0)

a(0)=2 '为a(0)赋值

a(1)=3

a(2)=4

a(3)=5

2、在数组中查找4

dim i as Integer '定义一个循环变量

for i=0 to UBound(a) '循环数组a，获取里面的每个元素

if a(i)=4 then