[分享]vb-冒泡法排列数组大小(3种方案2种原创)欢迎学习
新人报道送上 小玩意 欢迎支持喜欢的 追贴
下载地址
程序代码:
Private Sub command1_click() Dim a(1 To 10) As Integer a(1) = 1 Print a(1) For j = 2 To 10 a(j) = a(j - 1) + 1 Print a(j) Next j For i = 1 To 10 For j = i To 个10 If a(i) < a(j) Then tmp = a(i) a(i) = a(j) a(j) = tmp End If Next j Next i For i = 1 To 10 Print a(i) Next i End Sub:方案1
360云盘下载:http:// 访问密码 073f