UC知道VB 递减次序排列
来源：百度知道 编辑：UC知道 时间：2024/06/01 03:48:01
输入一系列字符串，按递减次序排列。程序的运行界面如下所示。
【提示】（1）要声明窗体级变量n（表示放若干个字符串的计数器）及一个字符串数组。
（2）每输入一个字符串，按Enter键后将Text的内容放到数组中，可用事件：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
…
End If
End Sub
(3) 单击“排序”按钮，进行排序并显示在图形框中。
(4) 字符的排序与数字的排序原理是一样的（利用字符的ASC码）
【提示】（1）要声明窗体级变量n（表示放若干个字符串的计数器）及一个字符串数组。
（2）每输入一个字符串，按Enter键后将Text的内容放到数组中，可用事件：
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
…
End If
End Sub
(3) 单击“排序”按钮，进行排序并显示在图形框中。
(4) 字符的排序与数字的排序原理是一样的（利用字符的ASC码）
Dim n As Integer
Dim aaa(100) As String
Private Sub Command1_Click()
For i = 1 To n - 1
For j = i To n
If aaa(i) < aaa(j) Then
temp = aaa(i)
aaa(i) = aaa(j)
aaa(j) = temp
End If
Next j
Next i
Picture1.Cls
For i = 1 To n
Picture1.Print aaa(i)
Next i
End Sub
Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
Picture1.Print Text1.Text
n = n + 1
aaa(n) = Text1.Text
Text1.Text = ""
End If
End Sub
兄弟，不要以为众人的脑力劳动不值钱，你竟然抠门的一分都不出？