大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
Imports System.Text.RegularExpressions
创新互联是一家专注于网站设计、成都网站设计与策划设计,乌兰网站建设哪家好?创新互联做网站,专注于网站建设十余年,网设计领域的专业建站公司;建站业务涵盖:乌兰等地区。乌兰做网站价格咨询:18982081108
Public Class Form1
Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
Dim x, y As String
x = "4,9,12,15,22,33,44,66,72,84,87,92,96,98,99"
y = "6,8,12,16,24,31,68,71,73,74,81,93,94"
Dim g() As Integer
g = Array.ConvertAll((x "," y).Split(","), New Converter(Of String, Integer)(AddressOf strToint))
System.Array.Sort(g)
Dim g_str() As String
g_str = Array.ConvertAll(g, New Converter(Of Integer, String)(AddressOf IntTostr))
Dim My_text As String = Join(g_str, ",")
My_text = Regex.Replace(My_text, "\b(\w+),(?=\1)\b", "") 'My_text是最终结果
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_text是最终结果,重复的12被自动剔除了
试试看:
For i = LBound(moto) To UBound(moto) - 1
For j = LBound(moto) To UBound(moto) - 1 - i
If moto(j) moto(j + 1) Then
t = moto(j)
moto(j) = moto(j + 1)
moto(j + 1) = t
End If
Next j
Next i
For i = LBound(moto) To UBound(moto)
Print moto(i);
Next i
如果五个号码为数组元素(1)到(5),正确的排序过程:
对于i = 1至4
对于L = 1到5 - 如果A(L)(L +1)
N = A(L)
A(L),= A(L +1)
(L +1) =
结束如果下一页l
接下来,我
能够到第一台计算机来验证结果,然后分析程序。
首先在窗体上添加Button1,ListBox1,下面是完整代码
Public Class Form1
Public Sub BubbleSort(ByVal arr() As Integer) '冒泡法排序
Dim temp As Double
Dim i, j As Integer
For i = 0 To arr.GetUpperBound(0) - 1
For j = i + 1 To arr.GetUpperBound(0) - 1
If arr(i) arr(j) Then
temp = arr(j)
arr(j) = arr(i)
arr(i) = temp
End If
Next
Next
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click '调用
Dim arr() As Integer = {55, 22, 33, 11, 77, 88}
BubbleSort(arr) '调用排序过程
Me.ListBox1.Items.Clear()
For i = 0 To arr.GetUpperBound(0) - 1 '显示排序后结果
Me.ListBox1.Items.Add(arr(i).ToString)
Next
End Sub
End Class