Private Sub Sort(a() As Integer) '创建一个自定义过程并接受一个整型数组作为形参。
Dim Start As Integer, Finish As Integer Dim i As Integer, j As Integer, t As Integer '声明五个整型数据类型Start = LBound(a) '把形参数组的下标的下界赋值给startFinish = UBound(a) '把形参数组的下标的上界赋值给FinishFor i = Finish To 2 Step -1 '嵌套循环不用解释吧,要是每一次迭代都解释下那都快写成一篇论文了!For j = 1 To i - Start If a(j) < a(j + 1) Then t = a(j + 1) a(j + 1) = a(j) a(j) = t End If Next j Next i '循环结束End Sub '过程结束。
答：你去淘宝网，输入关键词，比如vb吧。就可以搜索到。是可以浏览地不过不可以看完。你也可以去谷歌地图书搜索。可以看很多书。详情>>
