VB程序题：输入一个字符串，分别调用UCase、Len、Mid、Left、Right函数，显示如图2.2.4所示的效果。

以下是VB程序代码：

Dim str As String
Dim lenStr As Integer
Dim midStr As String
Dim leftStr As String
Dim rightStr As String

str = InputBox("请输入一个字符串：")

lenStr = Len(str)
midStr = Mid(str, 2, 3)
leftStr = Left(str, 3)
rightStr = Right(str, 4)

MsgBox "UCase函数的结果：" & UCase(str) & vbCrLf & _
        "Len函数的结果：" & lenStr & vbCrLf & _
        "Mid函数的结果：" & midStr & vbCrLf & _
        "Left函数的结果：" & leftStr & vbCrLf & _
        "Right函数的结果：" & rightStr
        

运行程序后，将弹出一个输入框，让用户输入一个字符串。用户输入后，程序会调用各个函数，并将结果显示在一个消息框中，如下图所示：