vb.net字符排序

VB.net 数组怎么按任意元素的顺序排序输出

你直接传一个数组进去,而且是一个结构体数组,array.sort怎么知道根据结构中的哪一个属性进行排序?放一个c#的代码你看看,VB和C#很相似的

class Program

{

static void Main(string[] args)

new People{name="张三"},

new People{name="李四"},

new People{name="张二名"}

};

//重点传一个实现了IComparer接口的类进去,告诉Array.Sort怎么排序

Array.Sort(p, new PeopleCompare());

foreach (var item in p)

Console.WriteLine(item.name);

}

Console.ReadKey();

//People结构体,换成类一样的

public struct People

public string name { get; set; }

//实现了IComparer接口的类

public class PeopleCompare : IComparer

public int Compare(object x, object y)

People p1 = (People)x ;

vb.net 排列组合算法

看了你说递归的效率低.那么你可以不用的.

给出的方法就是先生成第一个排列,然后每次调用下面的函数给出下一个排列,这样生成的效率很高,这个函数可以内联.

这个是很经典的排列组合算法啊?在网上能搜到一大堆.

大概是那种带指向的移动的算法.我给你搜一个吧.

我找了几个,这个是我觉得说的比较清楚的,你可以仔细参考一下,看不懂的话再搜点别的好了..

全排列的算法跟这个不太一样的.需要有点改动的.

至于语言的话,应该不会有太大问题吧..basic版的确实比较少,现在我也比较懒不想动手写..还是要靠你自己啦.

★生成排列的算法：

①. 首先从最尾端开始往前寻找两个相邻元素,令第一个元素为*i,第二个元素为*ii,且满足*i*ii,找到这样一组相邻的元素后.

prev_permutation()算法的思路也基本相同,只不过它们寻找的"拐点"不同,在next_permutation()算法中寻找的是峰值拐点,而在prev_permutation()算法中寻找的是谷值拐点.另外,在第二步中,prev_permutation()要找的是第一个小于*i的元素而不是第一个大于*i的元素.

具体例子,有空再举,现在时间太晚了:)

★生成组合的算法：

如下面截图所示,分全组合和r-组合两种情况.

这里有一段核心代码：

//--------------------------------------------------------

public int[] getNext () {

if (numLeft.equals (total)) {

numLeft = numLeft.subtract (BigInteger.ONE);

return a;

int i = r - 1;

while (a[i] == n - r ◆ i) {

i--;

a[i] = a[i] ◆ 1;

for (int j = i ◆ 1; j r; j◆◆) {

a[j] = a[i] ◆ j - i;

return a; //这里返回的a数组,存储的就是下标的排列组合.

到这里,也许大伙会有一个疑问,假如要求的不是数字的排列组合,而是字符或字符串的排列组合呢?怎么办?其实很简单,你只要拿数组的下标来做排列组合,返回他们下标的排列组合,然后再到原数组中读取字符串值,就可以输出全部的排列组合结果.

VB.NET数组的排序法?

如果你正努力学习vb.net的方法,推荐一个例子如下：

Imports System

Imports System.Collections

Public Class SamplesArray

Public Class myReverserClass

Implements IComparer

' Calls CaseInsensitiveComparer.Compare with the parameters reversed.

Function Compare(x As Object, y As Object) As Integer _

Implements IComparer.Compare

Return New CaseInsensitiveComparer().Compare(y, x)

End Function 'IComparer.Compare

End Class 'myReverserClass

Public Shared Sub Main()

' Creates and initializes a new Array and a new custom comparer.

Dim myArr As [String]() = {"The", "QUICK", "BROWN", "FOX", "jumps", "over", "the", "lazy", "dog"}

Dim myComparer = New myReverserClass()

' Displays the values of the Array.

Console.WriteLine("The Array initially contains the following values:")

PrintIndexAndValues(myArr)

' Sorts a section of the Array using the default comparer.

Console.WriteLine("After sorting a section of the Array using the default comparer:")

' Sorts a section of the Array using the reverse case-insensitive comparer.

Console.WriteLine("After sorting a section of the Array using the reverse case-insensitive comparer:")

' Sorts the entire Array using the default comparer.

Array.Sort(myArr)

Console.WriteLine("After sorting the entire Array using the default comparer:")

' Sorts the entire Array using the reverse case-insensitive comparer.

Array.Sort(myArr, myComparer)

Console.WriteLine("After sorting the entire Array using the reverse case-insensitive comparer:")

End Sub 'Main

Public Shared Sub PrintIndexAndValues(myArr() As [String])

Dim i As Integer

For i = 0 To myArr.Length - 1

Console.WriteLine(" [{0}] : {1}", i, myArr(i))

Next i

Console.WriteLine()

End Sub 'PrintIndexAndValues

End Class 'SamplesArray

'This code produces the following output.

'

'The Array initially contains the following values:

' [0] : The

' [1] : QUICK

'After sorting a section of the Array using the default comparer:

' [1] : BROWN

'After sorting a section of the Array using the reverse case-insensitive comparer:

'After sorting the entire Array using the default comparer:

' [0] : BROWN

' [1] : dog

'After sorting the entire Array using the reverse case-insensitive comparer:

' [0] : the

' [1] : The

VB.NET中字符串倒序的问题

好象有个StrReverse函数是直接反转字符串的吧..

你注意看FOR 是从len-1到0的..而mid中是不允许出现0的..

你看看MID运行不了时,是不是返回I是0的时间

改成:

For i = Len(sstr) To 1 Step -1

试试了?

vb.net 如何对数据库查询结果记录集排序?

加了单引号就是一个常量字符串了,对于每一行都是一样的

像这种放在最前面的字段,order by 1 就可以了

vb.net 排列组合 代码

第一题:

不需要任何控件,代码如下:

Private Sub Form_Click()

Dim A() As Integer, N As Integer

Dim St As String, I As Integer, J As Integer

Randomize

Do

St = InputBox("数字的个数", "输入", Int(Rnd * 100))

If St = "" Then

MsgBox "请输入数字!"

Else

N = Int(Val(St))

If N 1 Then

MsgBox "请输入大于0的数字!"

Exit Do

End If

Loop

ReDim A(N)

For I = 1 To N

St = InputBox("第" ◆ Str(I) ◆ "个数字", "输入", Int(Rnd * 100))

A(I) = Int(Val(St))

Next

For I = 1 To N - 1

For J = I ◆ 1 To N

If A(I) A(J) Then

A(0) = A(I)

A(I) = A(J)

A(J) = A(0)

Open App.Path "\" Trim(Str(I)) ".txt" For Output As #1

Print #1, A(I)

Close #1

Print "已经把"; N; "个数写入到"; App.Path; "\1.txt 到 "; N; ".txt中.请查看."

End Sub

'已经运行过.

第二题:

DIM 是变量声明语句,它的格式为:

dim 变量名[as 格式] [,变量名[as 格式][,变量名[as 格式]......]

其中:

变量名:以字母或汉字开始的字串,代表一个变量

格式有以下几种:

属于数字的有五种:

字符串型:string(可代表由字母\数字或汉字组成的字符集合)

布尔型:boolean(取值为ture\false)

如果要用姓名\住址\单位名称...等用字符串型(string)

eg:dim name as string(用name变量表示名字时,声明成字符串变量)

如果是用数字需要做计算,如工资\合计\人数....等要用数字型,但有一个原则,优先选用范围小的(按照字节型(byte)\整形(integer)\长整形(long)\单精度型(single)\双精度型(double)的顺序选择),够用就可以了,这样可以占用内存少,运算速度快.

eg:dim count as integer(用integer表示员工人数时,可声明成整形变量)

eg:dim sum as single(用sum表示工资时,可声明成单精度型变量)

不知是否说得清楚了.

以上就是土嘎嘎小编为大家整理的vb.net字符排序相关主题介绍,如果您觉得小编更新的文章只要能对粉丝们有用,就是我们最大的鼓励和动力,不要忘记讲本站分享给您身边的朋友哦！！