| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 403 人关注过本帖
标题:[分享]vb-冒泡法排列数组大小(3种方案2种原创)欢迎学习
只看楼主 加入收藏
tonoy
Rank: 2
等 级:论坛游民
帖 子:24
专家分:72
注 册:2013-8-25
收藏
 问题点数:0 回复次数:0 
[分享]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
搜索更多相关主题的帖子: 下载地址 
2013-08-25 18:00
快速回复:[分享]vb-冒泡法排列数组大小(3种方案2种原创)欢迎学习
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.039443 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved