Private Sub Command1_Click()Dim s As Strings = InputBox("请输入字符串")MsgBox ("输入的字符串长度是" & Len(s))End Sub
