Private Sub Form_Load()
Me.AutoRedraw = True
a = InputBox("")
For i = 1 To Len(a)
b = Mid(a, i, 1)
If Not (IsNumeric(b)) Then
If UCase(b) = b Then
s = "%B" & s
Else
s = UCase(b) & s
End If
Else
s = b & s
End If
Next i
Print s
Print "字符串的长度 " & Len(s)
End Sub