Private Sub Form_Load() Dim str As String str = "This Is Test Word!" MsgBox UCase(str) & " 字符串长度：" & Len(str)End Sub
一定要现成代码吗
