| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 1149 人关注过本帖
标题:一個考到遞減次序排列的問題~
只看楼主 加入收藏
hyp625
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2010-5-7
结帖率:75%
收藏
 问题点数:0 回复次数:5 
一個考到遞減次序排列的問題~
图片附件: 游客没有浏览图片的权限,请 登录注册

3、输入一系列字符串,按递减次序排列。程序的运行界面如下所示。

排列不分我不會...
 (3) 单击“排序”按钮,进行排序并显示在图形框中。
 (4) 字符的排序与数字的排序原理是一样的。

遞減排列做完后遞增怎麼做呢~

搜索更多相关主题的帖子: 排列 
2010-05-31 17:30
hyp625
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2010-5-7
收藏
得分:0 
幫幫忙》。。
2010-05-31 21:15
纪永君
Rank: 2
来 自:山东蓬莱,蓬莱祥林
等 级:论坛游民
威 望:1
帖 子:68
专家分:37
注 册:2008-6-27
收藏
得分:0 
有一本叫做BASIC趣味程序的小册子,好像是谭浩强编写的,有好多的相应程序,可以参考
2010-06-01 21:35
hyp625
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2010-5-7
收藏
得分:0 
沒人幫忙嗎?
2010-06-05 13:25
hyp625
Rank: 1
等 级:新手上路
帖 子:26
专家分:0
注 册:2010-5-7
收藏
得分:0 
= =^跪求了,排序部份
2010-06-05 18:22
jjiahe
Rank: 1
等 级:新手上路
帖 子:3
专家分:7
注 册:2007-6-29
收藏
得分:0 
回复 楼主 hyp625
这么简单的怎么都没人回答?
附件不知为何不能上传。代码如下:
程序代码:
Dim t As Integer
Dim s(100)
Private Sub Command1_Click()
s1 = Text1.Text
t = t + 1
For i = 0 To t - 1
If s1 >= s(i) Then
  For j = t - 1 To i Step -1
    s(j + 1) = s(j)
  Next j
  s(i) = s1
  Exit For
End If
Next i
Label1.Caption = ""
Label1.Caption = s(0)
For i = 1 To t
  Label1.Caption = Label1.Caption + Chr(10) + s(i)
Next i
End Sub

Private Sub Form_Load()
t = 0
End Sub




[ 本帖最后由 jjiahe 于 2010-6-25 23:51 编辑 ]
2010-06-25 23:49
快速回复:一個考到遞減次序排列的問題~
数据加载中...
 
   



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

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