- input = inputbox("请输入要排序的字符")
- Dim a, b, num, vbstr
- vbstr = " "
- For a=1 To Len(input)
- num = 0:b = 1
- For b = 1 To a
- If Mid(input,a,1) >= Mid(vbstr,b,1) Then num = num+1
- Next
- vbstr = Mid(vbstr,1,num) & Mid(input,a,1) & Mid (vbstr,num+1,Len(vbstr)-num)
- Next
- MsgBox "排序前:" & input & vbCrLf & "排序后:" & Mid(vbstr,2,Len(vbstr)) , 0 , "运算结果如下"
复制代码
|