UC知道VB求救！！
来源：百度知道 编辑：UC知道 时间：2024/05/25 00:37:19
private sub command1_click( )
dim s,y,t as string
s=trim(text1.text)
y=""
for k=1 to len(s)
x=mid(s,k,1)
t=ucase(x)
if t>="A" and t<="Z" then
y=y+x
end if
next k
text2.text=y
end sub
如果把代码中的x=mid(s,k,1)换成x=left(s,k)可以吗？
另外y=y+x是什么意思？
dim s,y,t as string
s=trim(text1.text)
y=""
for k=1 to len(s)
x=mid(s,k,1)
t=ucase(x)
if t>="A" and t<="Z" then
y=y+x
end if
next k
text2.text=y
end sub
如果把代码中的x=mid(s,k,1)换成x=left(s,k)可以吗？
另外y=y+x是什么意思？
1、不可以，mid(s,k,1)是从第k个字符开始向截取1个字符，而left(s,k)是从第一个字符开始截取k个字符。
2、y=y+x是把y+x的结果赋值给y。
不可以 意思不一样
y+x后得到的值再次付给y