锐客网

  1. 首页 > 睿知 > it技术 > >

vb.net冒泡 vb中怎么用冒泡法排序

IT技术排序

vb.net的随机3个数字，然后排序一下给你一个最简单vb.net冒泡的冒泡排序代码vb.net冒泡：
将三个数放到一个数组中 。
a(0)=val(text1.text):a(1)=val(text2.text):a(2)=val(text3.text)
dim flag as Boolean,temp as Integer
for i = 0 to 2
flag = true
for j = 2 to 1
if a(j)a(j-1) then
temp = a(j-1)
a(j-1) = a(j)
a(j) = temp
flag = false
end if
next j
if flag then Exit For
next i
text4.text=a(0):text5.text=a(1):text6.text=a(2)
vb.net 有时候字符串数组可以当整数数组使用如果不是用冒泡法用这个
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim My_str() As String = {"123", "45", "6", "12"}
Dim my_int() As Integer = System.Array.ConvertAll(My_str, New Converter(Of String, Integer)(AddressOf StrToInt))
System.Array.Sort(my_int)
Dim My_array() As String = Array.ConvertAll(my_int, New Converter(Of Integer, String)(AddressOf IntToStr))
End Sub
Public Shared Function StrToInt(ByVal bs As String)
Return CInt(bs)
End Function
Public Shared Function IntToStr(ByVal bs As Integer)
Return CStr(bs)
End Function
End Class
My_array() 是结果
VB.NET中的“冒泡排序”问题如果五个号码为数组元素（1）到（5）vb.net冒泡，正确vb.net冒泡的排序过程vb.net冒泡：
对于i = 1至4
对于L = 1到5 - 如果A（L）（L +1）
N = A（L）
A（L），= A（L +1）
（L +1） =
结束如果下一页l
接下来，我
能够到第一台计算机来验证结果，然后分析程序 。
VB.NET格式输出函数format怎么用？果在格式化数字时没有指定 format，Format 会提供与 Str 函数类似的功能
' 如果没有指定格式，则返回字符串 。
MyStr = Format(23)' 返回 "23" 。
' 用户自定义的格式 。
MyStr = Format(5459.4, "##,##0 。00")' 返回 "5,459.40" 。
MyStr = Format(334 。9, "###0 。00")' 返回 "334.90" 。
MyStr = Format(5, "0 。00%")' 返回 "500.00%" 。
MyStr = Format("HELLO", "")' 返回 "hello" 。
MyStr = Format("This is it", "")' 返回 "THIS IS IT
VB.NET数组的排序法？如果你是从vb6刚过渡上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.
Array.Sort(myArr, 1, 3)
Console.WriteLine("After sorting a section of the Array using the default comparer:")
PrintIndexAndValues(myArr)
' Sorts a section of the Array using the reverse case-insensitive comparer.
Array.Sort(myArr, 1, 3, myComparer)
Console.WriteLine("After sorting a section of the Array using the reverse case-insensitive comparer:")
PrintIndexAndValues(myArr)
' Sorts the entire Array using the default comparer.
Array.Sort(myArr)
Console.WriteLine("After sorting the entire Array using the default comparer:")

推荐阅读


上一篇：如何改变传统电商，电商如何改变生活

下一篇：ERP系统人群分析，erp系统人群分析怎么做