| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 5158 人关注过本帖
标题:VB数组排序
只看楼主 加入收藏
woa
Rank: 1
等 级:新手上路
帖 子:159
专家分:0
注 册:2008-12-4
结帖率:85.37%
收藏
已结贴  问题点数:20 回复次数:10 
VB数组排序


本来以为不是什么难题,去百度搜了看了很多,结果竟然一个没看懂
看惯书上的讲解了,没有讲解看不明白了~
现在我需要 从输入的6个Text数字中 按从小到大排序 然后把结果显示在 Text7中
最后保存Text7到文本,最后一步保存书上看会了,就是排序网上搜了很多看不懂~
谁能发个 代码,随便哪种方法, + 讲解上来  万分感谢!!

[[it] 本帖最后由 woa 于 2009-7-17 14:00 编辑 [/it]]
搜索更多相关主题的帖子: 排序 
2009-07-17 13:59
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
dim a(5) as integer
dim i,j as integer
'输入a数组
a(1)=1
a(2)=3
a(3)=2
a(4)=5
a(5)=0

for i=1 to 4
 for j=i+1 to 5
  if a(i)>a(j) then
    a(i)=a(i)+a(j)
    a(j)=a(i)-a(j)
    a(i)=a(i)-a(j)
  end if
 next
next

msgbox a(1)
msgbox a(2)
msgbox a(3)
msgbox a(4)
msgbox a(5)
2009-07-17 14:32
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:20 
随便写写的,很多年没写了,可能有语法错误、逻辑错误和运行时错误,请谅解。
2009-07-17 14:32
woa
Rank: 1
等 级:新手上路
帖 子:159
专家分:0
注 册:2008-12-4
收藏
得分:0 
网上搜了那么多没一个看懂,你发的一下看了半懂,又看了5分钟,也把
if a(i)>a(j) then
    a(i)=a(i)+a(j)
    a(j)=a(i)-a(j)
    a(i)=a(i)-a(j)
看懂了,谢谢了
2009-07-17 16:47
风吹过b
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:贵宾
威 望:364
帖 子:4947
专家分:30084
注 册:2008-10-15
收藏
得分:0 
a(i)=a(i)+a(j)
    a(j)=a(i)-a(j)
    a(i)=a(i)-a(j)

这段代码,我只知道是干什么,但也不懂是怎么来的.

授人于鱼,不如授人于渔
早已停用QQ了
2009-07-17 16:58
qykong
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2009-7-5
收藏
得分:0 
Option Base 1
Private Sub Command1_Click()
Dim a(6) As Integer
For i = 1 To 6
a(i) = InputBox("请输入6个数")
Next i
For i = 6 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
x = a(j)
a(j) = a(j + 1)
a(j + 1) = x
End If
Next j
Next i
For i = 1 To 6
Text1.Text = Text1.Text & Space(4) & a(i)
Next i

End Sub
2009-07-17 21:46
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
以下是引用qykong在2009-7-17 21:46的发言:

Option Base 1
Private Sub Command1_Click()
Dim a(6) As Integer
For i = 1 To 6
a(i) = InputBox("请输入6个数")
Next i
For i = 6 To 2 Step -1
For j = 1 To i - 1
If a(j) > a(j + 1) Then
x = a(j)
 ...

你的x没定义。
2009-07-18 09:18
bczgvip
Rank: 14Rank: 14Rank: 14Rank: 14
等 级:贵宾
威 望:66
帖 子:1310
专家分:5312
注 册:2009-2-26
收藏
得分:0 
Sort

Sort.rar (1.02 KB) 看看吧!~

2009-07-18 10:37
multiple1902
Rank: 8Rank: 8
等 级:贵宾
威 望:42
帖 子:4881
专家分:671
注 册:2007-2-9
收藏
得分:0 
以下是引用bczgvip在2009-7-18 10:37的发言:

Sort

挺好的,数据结构课要学的排序和数据结构课不要学的排序都有了。
2009-07-18 10:47
qykong
Rank: 1
等 级:新手上路
帖 子:6
专家分:0
注 册:2009-7-5
收藏
得分:0 
哦,呵呵,忘记了,不用定义也可以运行的。
2009-07-18 10:53
快速回复:VB数组排序
数据加载中...
 
   



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

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