利用VB编写一段代码，使得汉字大于10个，则取前7个字换行；如果少于10个，大于8个，取前6个字换行，谢谢

利用VB编写一段代码，使得汉字大于10个，则取前7个字换行；如果少于10个，大于8个，取前6个字换行，谢谢

s =input

if s>10 then
s = left(s,7)
elseif s>8 then
s = left(s,6)
endif

msgbox s追问能不能针对这个写一下呢，辛苦了，使得name字段的汉字大于10个，则取前7个字换行；如果少于10个，大于8个，取前6个字换行
追答function findlabel (byval str as string )
dim s as string
if len(str)>10 then
s= left(str,7) & vbcrlf
elseif len(str)>8 then
s = left(str,6) & vbcrlf
else
s =str
endif
findlabel = s
end function

请问，是否要考虑，还包括非汉字？追问name字段全是汉字，只考虑汉字就可以了追答Function FindLabel([Name])
Dim L as integer
L=len(Name)
if L>10 Then
FindLabel = Left(Name,7) & Vbcrlf & right(Name,L-7)
elseIf >8 Then
FindLabel = Left(Name,6) & Vbcrlf & right(Name,L-6)
end if
End Function追问
谢谢你写的，很容易理解，就是不知道我是不是哪里没弄好，帮忙看下追答我不清楚，你这个是什么环境，我没有用过？
我熟悉的是VB6 环境。
我只是看了你上面那个，就编了个函数。追问额，我也不清楚哎，下面有解析说是VBScript