Dim i, j, temp As Integer '交换标志 Dim exchange As Boolean For i = 0 To R。Length - 1 '本趟排序开始前，交换标志应为假 exchange = False For j = R。
Length - 2 To 0 Step -1 '交换条件 If R(j + 1) < R(j) Then temp = R(j + 1) R(j + 1) = R(j) R(j) = temp '发生了交换，故将交换标志置为真 exchange = True End If Next '本趟排序未发生交换，提前终止算法 If Not exchange Then Exit For End If Next End Sub 答案补充我的就是完整程序。
下面是C＃的，如果你自己改不成VB。net的，我没的说了插入:static void Sort(int[] arr) { for (int i = 1; i < arr。Length; i++) { int temp = arr[i]; int j = i; while (j > 0 && arr[j - 1] > temp) { arr[j] = arr[j - 1]; j--; } arr[j] = temp; } }选择:static void Sort1(int[] arr) { for (int i = 0; i < arr。
Length; i++) { for (int j = i; j < arr。
Length; j++) { if (arr[i] > arr[j]) { int temp = arr[i]; arr[i] = arr[j]; arr[j] = temp; } } } }。
答：缺省 [As类型]为可变类型。 示例 Dim a as Integer Dim b as String dim c as double dim d as sin...详情>>
答：我建议你去--天下网吧联盟 这里面都是网吧业主和网管交流的论坛，你可以自己注册一个用户进去看看，你可以和他们交流也可以寻求他们的帮助，我想没有你解决不了的问题，...详情>>
答：格式化文本区域的段落标记，用于规定文本和层的属性和位置等。比如： 新浪网 用来规定 新浪网 这三个字居中显示。 文本中心(CENTER)、左(LEFT)或右(R...详情>>
