Dim a As String, b As String
a = InputBox("a=") '键盘输入a的值
b = InputBox("b=") '键盘输入b的值
If a>b Then
a=a+b
Else
b=b+a
End If
Print a+b