VB编程 在文本框中输入文本,怎么使在窗体上显示从小到大输入的文本??如输入"ADCB"则输出"ABCD''
发布网友
发布时间：2022-12-29 14:47
共2个回答
热心网友
时间：2023-10-26 20:40
什么意思
"ADCB"则输出"ABCD''
输入"现在是十点钟" 输出则为"十在是点现钟"
没看出规律
热心网友
时间：2023-10-26 20:40
Dim b() As String
a = Len(Text1)
For i = 1 To a
ReDim Preserve b(i)
b(i) = Mid(Text1, i, 1)
Next
Text1 = ""
'排序
For i = 1 To a
For j = i + 1 To a
If b(j) < b(i) Then
c = b(i)
b(i) = b(j)
b(j) = c
End If
Next
Text1 = Text1 & b(i)
Next
End Sub
