vb.net冒泡 vb冒泡排序代码

VB.net 里怎么实现气泡在窗体中随机移动？

可以建立一个方向向量用来存储气泡运动的方向（方向值每到一定时间随机产生），再定义一个表示速度的变量（如果要的是均速运动速度值就不变，否则也可以随机产生）。再用速度和方向值改变气泡位置。

四子王网站建设公司成都创新互联,四子王网站设计制作，有大型网站制作公司丰富经验。已为四子王数千家提供企业网站建设服务。企业网站搭建\外贸网站建设要多少钱，请找那个售后服务好的四子王做网站的公司定做！

我可以做个例子（qq:359394386）,但分不能太低。

VB.NET中的“冒泡排序”问题

如果五个号码为数组元素（1）到（5），正确的排序过程：

对于i = 1至4

对于L = 1到5 - 如果A（L）（L +1）

N = A（L）

A（L），= A（L +1）

（L +1） =

结束如果下一页l

接下来，我

能够到第一台计算机来验证结果，然后分析程序。

vb.net冒泡排序法代码

试试看：

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

在VB.NET中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将X

Imports System.Text.RegularExpressions

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被自动剔除了

本文名称：vb.net冒泡 vb冒泡排序代码
文章转载：http://bjjierui.cn/article/hjesij.html