大佬们，字符串怎么比较

这里要比较的不是字符串整体，而是字符串当中的字符
（所以我说嘛，“字符串怎么比较”这根本不成问题啊）
这个题需要把字符串当成“字符数组”来做（甚至可以用字符串的本质——字节数组）
字符串当中的每个字符都可以用Mid函数表示出来：Mid(a, i, 1)
如果上述的a是个普通数组，那么a(i)就表示一个数组元素了（这里是对“字符数组”和普通数组的形式比较）
表示出每个字符之后，要进行比较就简单了

Private Sub Command1_Click()
Dim a As String, b As String
Dim n As Integer, k As Integer
Dim i As Integer
a = Text1
b = Text2
n = Asc(Mid(a, 1, 1))
k = 1
For i = 2 To Len(a)
If Asc(Mid(a, i, 1)) < n Then
n = Asc(Mid(a, i, 1))
k = i
End If
Next
If k = Len(a) Then
Text3 = a & b
Else
Text3 = Mid(a, 1, k) & b & Mid(a, k + 1)
End If
End Sub

n 存放的是字母串每一个字符的码
k代表在字符中位置，初始值为1