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

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

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

幫幫忙》。。

有一本叫做BASIC趣味程序的小册子，好像是谭浩强编写的，有好多的相应程序，可以参考

沒人幫忙嗎?

= =^跪求了,排序部份

这么简单的怎么都没人回答？
附件不知为何不能上传。代码如下：

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 编辑 ]