VB 如何判断字符串长度为6

VB 如何判断字符串长度为6

Print "字符串中中间两个字符是：" & Mid(s, 2)
改成
Print "字符串中中间两个字符是：" & Mid(s, 3.2)

len的话，每个汉字都算1个字，这个需要注意，请问您输入什么样的字符串，然后什么都出不来追问追问Private Sub Form_Load()
Dim s As String
s = InputBox("请输入长度为6的字符串：")
If Len(s) = 6 Then
Print "字符串中前两个字符是：" & Left(s, 2)
Print "字符串中中间两个字符是：" & Mid(s, 2)
Print "字符串中后两个字符是：" & Right(s, 2)
Else
Print "输入字符串长度错误"
End If
End Sub
我哪里做错了？为什么输入以后什么都出不来？评论|赞同0追答Print "字符串中中间两个字符是：" & Mid(s, 2)
这个不对，中间两个是 mid(s,3,2) 从第三个字开始取2个字

你输入的是什么字符串？另外print不一定能看见，要看你的form是什么样的，建议把
print改成msgbox追问Private Sub Form_Load()
Dim s As String
s = InputBox("请输入长度为6的字符串：")
If _______Then
Print "字符串中前两个字符是：" &_____
Print "字符串中中间两个字符是：" &____
Print "字符串中后两个字符是：" & _____
Else
______
End If
End Sub
大神，这是原题。。。求填空。。。

If Len(s) = 6 Then
MsgBox "字符串s的长度为6"
Else
MsgBox "字符串s的长度不为6"
EndIf追问Private Sub Form_Load()
Dim s As String
s = InputBox("请输入长度为6的字符串：")
If Len(s) = 6 Then
Print "字符串中前两个字符是：" & Left(s, 2)
Print "字符串中中间两个字符是：" & Mid(s, 2)
Print "字符串中后两个字符是：" & Right(s, 2)
Else
Print "输入字符串长度错误"
End If
End Sub
我哪里做错了？为什么输入以后什么都出不来？追答首先，Form的AutoRedaw属性要设为True
其次，Mid(s, 2)要改为Mid(s, 3, 2)