Question

vb程序题:在text1里输入一串字符，在text2中按升序排列，求代码，如果答案正确立刻采纳

Answer 1

Private Sub Command1_Click()
stri = Text1.Text
For i = 1 To Len(stri) - 1
For j = i + 1 To Len(stri)
If Mid(stri, i, 1) > Mid(stri, j, 1) Then
stri = Left(stri, i - 1) & Mid(stri, j, 1) & Mid(stri, i + 1, j - i - 1) & Mid(stri, i, 1) & Mid(stri, j + 1)
End If
Next j, i
Text2.Text = stri
End Sub

追问

能问一下mid（stri，i+1，j-i-1）是什么意思吗