没人能破解ios源代码 求VB冒泡排序法的代码？

求VB冒泡排序法的代码？Dim i， j， intmin As Integer， n As IntegerDim sngsq()， sngt As Single "输入原始数据n = Val(In

求VB冒泡排序法的代码？

Dim i， j， intmin As Integer， n As IntegerDim sngsq()， sngt As Single "输入原始数据n = Val(InputBox("请输入排序的个数N的值"))ReDim sngsq(n) "重新定义数组Print "排序前"For i = 1 To nMsgBox "请输入第" & Str(i) & "个数:"sngsq(i) = Val(InputBox("请输入")) "将输入的数据转换为数值型Print sngsq(i)NextPrintPrint "排序后""排序For i = 1 To n - 1intmin = i "对第i遍排序，初始假定第i个元素最小For j = i 1 To n "找出最小的元素序号If sngsq(j)