一个简单的程序填空.窗体上有一个命令按钮Command1和文本框Text1,程序运行时在Text1中输入不超过100个字母的字符串,单击命令按钮,将文本框中的字符按其ASCII码值由小到大重新排列,并在Label1上

Question

一个简单的程序填空.
窗体上有一个命令按钮Command1和文本框Text1,程序运行时在Text1中输入不超过100个字母的字符串,单击命令按钮,将文本框中的字符按其ASCII码值由小到大重新排列,并在Label1上显示排序后的字符串.
空格的地方应该怎样填?请知道的朋友帮帮忙,
Private Sub Command1_Click()
Dim A(100) As String * 1,str1 As String,T As String
Dim I As Byte,J As Byte,P As Byte,n As Byte
Str1=Text1.Text：n=Len(str1)
For I = 1 To n
A(I) = ____________
Next I
For I = 1 To n-1
P = I
For J = I + 1 To n
____________
Next J
If PI Then ____________
Next I
For I = 1 To n
____________
Next I
End Sub

Answer 1

Private Sub Command1_Click()
Dim A(100) As String * 1,str1 As String,T As String
Dim I As Byte,J As Byte,P As Byte,n As Byte
str1 = Text1.Text:n = Len(str1)
For I = 1 To n
A(I) = Mid(str1,I,1)
Next I
For I = 1 To n - 1
P = I
For J = I + 1 To n
If A(P) > A(J) Then P = J
Next J
If P I Then T = A(I):A(I) = A(P):A(P) = T
Next I
For I = 1 To n
Label1 = Label1 & A(I)
Next I
End Sub